Lisp Help to Change all Dimensions to Layer Dimension, Color Bylayer, Lineweight Bylayer and Linetype to Bylayer

[Anonymous]

Hey Fam, i need help with a lisp im trying to put together. 

I was able to get the layers portion to work but i cannot seem to get color, lineweight and linetype to all change to bylayer. can someone look at this code for me please. i was able to change it all with line commands but via lisp it wont work for me 😞

(defun c:DL (/ SelectDim)
(setq SelectDim (ssget "X" '((0 . "DIMENSION"))))
(command "._Chprop" SelectDim "" "Layer" "DIMENSION" "Color" "BYLAYER" "LWeight" BYLAYER" "LType" BYLAYER" "")
(princ)
); end of defun

Thanks Fam!!

[Anonymous]

sorry Fam, i forgot to add the Dim DWG

The DWG show the correct format for this Dim and how they should be throughout my drawing.

[doaiena · Accepted solution]

You just had the quotation marks wrong.

(defun c:DL (/ SelectDim)
(setq SelectDim (ssget "X" '((0 . "DIMENSION"))))
(command "._Chprop" SelectDim "" "Layer" "DIMENSION" "Color" "BYLAYER" "LWeight" "BYLAYER" "LType" "BYLAYER" "")
(princ)
); end of defun

[Anonymous]

That works! thank you so much!

[Anonymous]

omg i just realized what you said lol....im a dork for missing the quotation marks...thanks again!

[kevin]

;Dimensions are influenced by many variables.  Colors start with "DIMCLR" plus one more letter D, T, E, etc.

;Here's my Lisp file/script file below for setting my dims.  The default for bylayer is a period.

 ;* By Kevin McDougall, 1994
;* C:DIMEN command, Sets the following dimension variables.
(command "DIMASZ" "0.14"
"DIMTIH" 0
"DIMTOH" 0
"DIMTAD" 1
"DIMEXE" "0.04"
"DIMGAP" "0.04"
"DIMTIX" 0
"DIMTXT" "0.11"
"REGENAUTO" "ON"
"UCSICON" "ON"
"DIMADEC" 0
"DIMALT" OFF
"DIMALTD" 2
"DIMALTF" 0.3048
"DIMALTRND" 0.00
"DIMALTTD" 2
"DIMALTTZ" 0
"DIMALTU" 2
"DIMALTZ" 0
"DIMAPOST" "m"
"DIMASO" ON
"DIMASZ" 0.11
"DIMATFIT" 3
"DIMAUNIT" 0
"DIMAZIN" 0
"DIMBLK" ""
"DIMBLK1" ""
"DIMBLK2" ""
"DIMCEN" 0.02
"DIMCLRD" 0
"DIMCLRE" 0
"DIMCLRT" 0
"DIMDEC" 2
"DIMDLE" 0.00
"DIMDLI" 0.38
"DIMDSEP" "."
"DIMEXE" 0.03
"DIMEXO" 0.06
"DIMFIT" 3
"DIMFRAC" 0
"DIMGAP" 0.03
"DIMJUST" 0
"DIMLDRBLK" ""
"DIMLFAC" 1.0000
"DIMLIM" OFF
"DIMLTYPE" CONTINUOUS
"DIMLUNIT" 2
"DIMLWD" -1
"DIMLWE" -1
"DIMPOST" "'"
"DIMRND" 0.00
"DIMSAH" OFF
"DIMSD1" OFF
"DIMSE1" OFF
"DIMSE2" OFF
"DIMSHO" ON
"DIMTAD" 1
"DIMTDEC" 2
"DIMTFAC" 1.0000
"DIMTIH" OFF
"DIMTIX" OFF
"DIMTM" 0.00
"DIMTMOVE" 0
"DIMTOFL" OFF
"DIMTOH" OFF
"DIMTOL" OFF
"DIMTOLJ" 1
"DIMTP" 0.00
"DIMTSZ" 0.00
"DIMTVP" 0.0000
"DIMLAYER" "."
"DIMTXSTY" "L120"
"DIMTXT" 0.12
"DIMTZIN" 0
"DIMUNIT" 2
"DIMUPT" OFF
"DIMZIN" 0
"SDI" 0
"psltscale" 1
"DYNMODE" -1
"wipeout" "f" "off"
"SELECTIONCYCLING" 0
"UCSDETECT" 0
"ORTHOMODE" 0
"DYNMODE" 0
"ROLLOVERTIPS" 0
"SAVEFIDELITY" 0
"QPMODE" 0
"SNAPMODE" 0
"SELECTIONPREVIEW" 0
"PROPERTYPREVIEW" 0
"ANNOALLVISIBLE" 0
"annoautoscale" 0
"textstyle" "L120"
);command
(prompt "\nStandard dimensioning style set.")
(princ)