How to create dimstyles etc. with a click...

Here I am again,

I can't find a way to create (if possible: with one click in a menu) a dimensionstyle in a new or empty drawing.

(Yes, by inserting a block that is or has a predefined dimstyle but not by creating). Or by manually setting all sytemvariables.

Is there a way to do so? Same question for multiline or lintypes...

For multiline I found this:

(defun C:MLNEW(/ dxfLst mlDict)

(setq dxfLst

(list'(0 . "MLINESTYLE")'(102 . "{ACAD_REACTORS")'(102 . "}")

'(100 . "AcDbMlineStyle") '(2 . "Kabelgoot")

'(70 . 274)'(3 . "")'(62 . 256)'(51 . 1.5708)'(52 . 1.5708)

'(71 . 2)'(49 . 0.5)'(62 . 256)'(6 . "BYBLOCK")

'(49 . -0.5)'(62 . 256)'(6 . "BYBLOCK"))); end setq

(if

(null

(member

(assoc 2 dxfLst)

(dictsearch

(namedobjdict)

"ACAD_MLINESTYLE")))

(progn

(setq mlDict

(cdr

(assoc -1

(dictsearch

(namedobjdict)

"ACAD_MLINESTYLE"))))

(dictadd mlDict

(cdr(assoc 2 dxfLst))(entmakex dxfLst))

); end progn

); end if

); end of MLNEW

This creates allmost the multiline that I need but it displays the joints and it uses the wrong color and linetype. Which parameters in the routine are for what purpose?

Any help is welcome. Gr.,MarcoW.

Hi

Read this

@+

You can bash this up to get what you need. I use it to create the dimstyle for Arch:

;;; ------------------------------------------------------------------------
;;;    STDLIB_CREATEDIMSTYLE.LSP
;;;
;;;    Copyright © December, 2008
;;;    Timothy G. Spangler
;;;
;;;    Permission to use, copy, modify, and distribute this software
;;;    for any purpose and without fee is hereby granted, provided
;;;    that the above copyright notice appears in all copies and
;;;    that both that copyright notice and the limited warranty and
;;;    restricted rights notice below appear in all supporting
;;;    documentation.
;;;
;;;    STDLIB_CREATE_DIMSTYLE
;;;
;;;		 Description:
;;;			Called from a menu pulldown or rightclick menu
;;;		* (STDLIB_CREATE_DIMSTYLE <STYLENAME> <DIMSCALE> <TEXTSTYLE> <CURRENT>)
;;;		<STYLENAME>	=	STRING	=	Name of dimstyle to be created
;;;		<DIMSCALE>		=	REAL		=	Dimscale
;;;		<TEXTSTYLE>	=	STRING	=	Valid textstyle name
;;;		<CURRENT>			=	BOOLE	=	If T then it set the created layer current
;;;
;;;			Returns:
;;;
;;; ------------------------------------------------------------------------

;;; MAIN FUNCTION ;;;;;;;;;;;;;;;;;;;;;;;;;
(defun STDLIB_CREATE_DIMSTYLE (StyleName StyleScale TextStyle Current / OldDimBlk OldCmdEcho StyleScale TextStyle)

;; Check arguments
(if (not StyleScale)
	(setq StyleScale 1.0)
)
(if (not TextStyle)
	(setq TextStyle (getvar "TEXTSTYLE"))
)
;; Create dimstyle
(if (not (tblsearch "DIMSTYLE" StyleName))
	(progn
		;; Set echo
		(setq OldCmdEcho (getvar "CMDECHO"))
		(setvar "CMDECHO" 0)
		
		;; Create textstyle
		;;; STD LIB Function
		(STDLIB_CREATE_TEXTSTYLE TextStyle 4.5 "Archquik" nil)
		
		;; Create dimblk
		(if (not (tblobjname "block" "_Oblique"))
			(progn
				(setq OldDimBlk (getvar "dimblk"))
				(if (= OldDimBlk "")
					(setq OldDimBlk ".")
				)
				(setvar "dimblk" "_Oblique")
				(setvar "dimblk" OldDimBlk)
			)
		)
		;; Create dimstyle
		(entmake
			(list
				(cons 0 "DIMSTYLE"); Table
				(cons 100 "AcDbSymbolTableRecord"); Subclass marker
				(cons 100 "AcDbDimStyleTableRecord"); Subclass marker
				(cons 2 StyleName); Dimstyle name
				(cons 70 0); Standard flag
				(cons 3 ""); DIMPOST
				(cons 4 ""); DIMAPOST
				(cons 5 "_Oblique"); DIMBLK
				(cons 6 "_Oblique"); DIMBLK1
				(cons 7 ""); DIMBLK2
				(cons 40 StyleScale); DIMSCALE
				(cons 41 0.0937); DIMASZ
				(cons 42 0.0937); DIMEXO
				(cons 43 0.38); DIMDLI
				(cons 44 0.0625); DIMEXE
				(cons 45 0.0); DIMRND
				(cons 46 0.0625); DIMDLE
				(cons 47 0.0); DIMTP
				(cons 48 0.0); DIMTM
				(cons 140 0.0937); DIMTXT
				(cons 141 0.09); DIMCEN
				(cons 142 0.0); DIMTSZ
				(cons 143 25.4); DIMALTF
				(cons 144 1.0); DIMLFAC
				(cons 145 0.0); DIMTVP
				(cons 146 1.0); DIMTFAC
				(cons 147 0.0625); DIMGAP
				(cons 71 0); DIMTOL
				(cons 72 0); DIMLIM
				(cons 73 0); DIMTIH
				(cons 74 0); DIMTOH
				(cons 75 0); DIMSE1
				(cons 76 0); DIMSE2
				(cons 77 1); DIMTAD
				(cons 78 3); DIMZIM
				(cons 170 0); DIMALT
				(cons 171 2); DIMALTD
				(cons 172 0); DIMTOFL
				(cons 173 0); DIMSAH
				(cons 174 0); DIMTIX
				(cons 175 0); DIMSOXD
				(cons 176 0); DIMCLRD
				(cons 177 0); DIMCLRE
				(cons 178 2); DIMCRRT
				(cons 270 4); DIMUNIT
				(cons 271 4); DIMDEC
				(cons 272 4); DIMTDEC
				(cons 273 2); DIMALTU
				(cons 274 2); DIMALTTD
				(cons 275 0); DIMAUNIT
				(cons 276 2); DIM?????
				(cons 277 4); DIMLUNIT
				(cons 279 2); DIM????
				(cons 280 0); DIMJUST
				(cons 281 0); DIMSD1
				(cons 282 0); DIMSD2
				(cons 283 1); DIMTOLJ
				(cons 284 0); DIMTZIN
				(cons 285 0); DIMALTZ
				(cons 286 0); DIMALTTZ
				(cons 287 5); DIMFIT
				(cons 288 0); DIMUPT
				; DIMTXSTY
				(cons 340 (tblobjname "style" TextStyle))
				; DIMLDRBLK
				(cons 342 (cdr	(assoc 330 (entget(tblobjname "block" "_Oblique")))))
				; DIMLDRBLK1
				(cons 343 (cdr	(assoc 330 (entget(tblobjname "block" "_Oblique")))))
				; DIMLDRBLK2 Block for the leader
				;(cons 341 (cdr	(assoc 330 (entget(tblobjname "block" "")))))
			)
		)
	)
	(progn
		(princ "\n Dimension Style not created")
		(exit)
	)
)
;; Set dimstyle current
(if Current
	(command "-dimstyle" "restore" StyleName)
)
;; Set echo
(setvar "CMDECHO" OldCmdEcho)
(princ)
)
(princ)

and this to create the textstyle:

;;; ------------------------------------------------------------------------
;;;    STDLIB_CREATE_TEXTSTYLE.LSP
;;;
;;;    Copyright © December, 2008
;;;    Timothy G. Spangler
;;;
;;;    Permission to use, copy, modify, and distribute this software
;;;    for any purpose and without fee is hereby granted, provided
;;;    that the above copyright notice appears in all copies and
;;;    that both that copyright notice and the limited warranty and
;;;    restricted rights notice below appear in all supporting
;;;    documentation.
;;;
;;;    STDLIB_CREATE_TEXTSTYLE
;;;
;;;		 Description:
;;;			Called from a menu pulldown or rightclick menu
;;;		* (STDLIB_CREATE_TEXTSTYLE <STYLENAME> <TEXTSIZE> <FONTNAME> T)
;;;		<STYLENAME>	=	STRING	=	Name of textstyle to be created
;;;		<TEXTSIZE>		=	REAL		=	Text size
;;;		<FONTNAME>		=	STRING	=	Valid font name
;;;		<CURRENT>			=	BOOLE	=	If T then it set the created layer current
;;;
;;;			Returns:
;;;
;;; ------------------------------------------------------------------------

;;; MAIN FUNCTION ;;;;;;;;;;;;;;;;;;;;;;;;;
(defun STDLIB_CREATE_TEXTSTYLE (StyleName TextHeight FontName Current / TextHeight FontName)

;; Check arguments
(if (not StyleName)
	(progn
		(princ "\n Style not created")
		(exit)
	)
)
(if (not TextHeight)
	(setq TextHeight 1.0)
)
(if (not FontName)
	(setq FontName "Simplex.shx")
)	
;; Create textstyle
(if (not (tblsearch "STYLE" StyleName))
	(entmake 
		(list
			(cons 0 "STYLE") 
		  (cons 100 "AcDbSymbolTableRecord") 
		  (cons 100 "AcDbTextStyleTableRecord") 
		  (cons 2 StyleName)															;; Style Name
		  (cons 70 0)
		  (cons 40 TextHeight)													;; Fixed text height
		  (cons 41 1.0)																		;; Width Factor
		  (cons 50 0.0)																		;; Oblique angle
		  (cons 71 0)
		  (cons 42 TextHeight)													;; Last height used
		  (cons 3 FontName)															;; Primary font name 
		  (cons 4 "")																			;;  Big font name
		)
	)
)
(if Current
	(setvar "TEXTSTYLE" StyleName)
)
(princ)
)
(princ)

I can't find a way to create (if possible: with one click in a menu) a dimensionstyle in a new or empty drawing.

Can you not have a LISP set all the variables to exactly how you want them, then just do a

(command "-dimstyle" "save"...

?

Nice post Tim - hadn't thought of doing it that way

I use it from a pull-down menu to create all different dimstyles for different scale drawings. It seems to work. The only issue when developing it, was the custom block for the arrows. Hope someone gets some use out of it

Here I am again,

 

I can't find a way to create (if possible: with one click in a menu) a dimensionstyle in a new or empty drawing.

 

(Yes, by inserting a block that is or has a predefined dimstyle but not by creating). Or by manually setting all sytemvariables.

 

Is there a way to do so? Same question for multiline or lintypes...

 

For multiline I found this:

 

(defun C:MLNEW(/ dxfLst mlDict)

(setq dxfLst

(list'(0 . "MLINESTYLE")'(102 . "{ACAD_REACTORS")'(102 . "}")

'(100 . "AcDbMlineStyle") '(2 . "Kabelgoot")

'(70 . 274)'(3 . "")'(62 . 256)'(51 . 1.5708)'(52 . 1.5708)

'(71 . 2)'(49 . 0.5)'(62 . 256)'(6 . "BYBLOCK")

'(49 . -0.5)'(62 . 256)'(6 . "BYBLOCK"))); end setq

(if

(null

(member

(assoc 2 dxfLst)

(dictsearch

(namedobjdict)

"ACAD_MLINESTYLE")))

(progn

(setq mlDict

(cdr

(assoc -1

(dictsearch

(namedobjdict)

"ACAD_MLINESTYLE"))))

(dictadd mlDict

(cdr(assoc 2 dxfLst))(entmakex dxfLst))

); end progn

); end if

); end of MLNEW

 

This creates allmost the multiline that I need but it displays the joints and it uses the wrong color and linetype. Which parameters in the routine are for what purpose?

 

Any help is welcome. Gr.,MarcoW.

Here is my own lisp for it.... created by me with my very very poor knowledgment on lisp... I just made an abbreviation for each desired type of dimstyle... It is made for Metric Units with particular settings... you may use it to make your own.

I use a dialog based routine to load Architectural Civil Metric Milimeters and Metric meters routine made for the company... I shouldn´t share that one... but there must be some in the web. Maybe in ...

std.zip