0 Members and 1 Guest are viewing this topic.
(defun c:IDIM (/ acdoc dsobj obj)(vl-load-com) (setq acdoc (vla-get-activedocument (vlax-get-acad-object))) (setq dsobj (vla-get-dimstyles acdoc)) (vlax-for obj dsobj (vla-put-activedimstyle acdoc (vla-item dsobj (vla-get-name obj))) ;set dimstyle current (vlax-invoke acdoc 'setvariable "DIMADEC" 0) (vlax-invoke acdoc 'setvariable "DIMALT" 0) (vlax-invoke acdoc 'setvariable "DIMALTD" 2) (vlax-invoke acdoc 'setvariable "DIMALTF" 25.4000) (vlax-invoke acdoc 'setvariable "DIMALTRND" 0.0000) (vlax-invoke acdoc 'setvariable "DIMALTTD" 2) (vlax-invoke acdoc 'setvariable "DIMALTTZ" 0) (vlax-invoke acdoc 'setvariable "DIMALTU" 2) (vlax-invoke acdoc 'setvariable "DIMALTZ" 0) (vlax-invoke acdoc 'setvariable "DIMARCSYM" 0) (vlax-invoke acdoc 'setvariable "DIMASSOC" 2) (vlax-invoke acdoc 'setvariable "DIMASZ" 0.1800) (vlax-invoke acdoc 'setvariable "DIMATFIT" 3) (vlax-invoke acdoc 'setvariable "DIMAUNIT" 0) (vlax-invoke acdoc 'setvariable "DIMAZIN" 0) (vlax-invoke acdoc 'setvariable "DIMCEN" 0.0900) (vlax-invoke acdoc 'setvariable "DIMCLRD" 0) (vlax-invoke acdoc 'setvariable "DIMCLRE" 0) (vlax-invoke acdoc 'setvariable "DIMCLRT" 0) (vlax-invoke acdoc 'setvariable "DIMCONSTRAINTICON" 3) (vlax-invoke acdoc 'setvariable "DIMCONTINUEMODE" 1) (vlax-invoke acdoc 'setvariable "DIMDEC" 2) (vlax-invoke acdoc 'setvariable "DIMDLE" 0.0000) (vlax-invoke acdoc 'setvariable "DIMDLI" 0.3800) (vlax-invoke acdoc 'setvariable "DIMEXE" 0.1800) (vlax-invoke acdoc 'setvariable "DIMEXO" 0.0625) (vlax-invoke acdoc 'setvariable "DIMFRAC" 0) (vlax-invoke acdoc 'setvariable "DIMFXL" 1.0000) (vlax-invoke acdoc 'setvariable "DIMFXLON" 0) (vlax-invoke acdoc 'setvariable "DIMGAP" 1.0000) ;(vlax-invoke acdoc 'setvariable "DIMJOGANG" 0.7854) (vlax-invoke acdoc 'setvariable "DIMJUST" 0) (vlax-invoke acdoc 'setvariable "DIMLFAC" 1.0000) (vlax-invoke acdoc 'setvariable "DIMLIM" 0) (vlax-invoke acdoc 'setvariable "DIMLUNIT" 2) (vlax-invoke acdoc 'setvariable "DIMLWD" -2) (vlax-invoke acdoc 'setvariable "DIMLWE" -2) (vlax-invoke acdoc 'setvariable "DIMPICKBOX" 5) (vlax-invoke acdoc 'setvariable "DIMRND" 0.0000) (vlax-invoke acdoc 'setvariable "DIMSAH" 0) (vlax-invoke acdoc 'setvariable "DIMSCALE" 1.0000) (vlax-invoke acdoc 'setvariable "DIMSD1" 1) (vlax-invoke acdoc 'setvariable "DIMSD2" 1) (vlax-invoke acdoc 'setvariable "DIMSE1" 1) (vlax-invoke acdoc 'setvariable "DIMSE2" 1) (vlax-invoke acdoc 'setvariable "DIMSOXD" 0) (vlax-invoke acdoc 'setvariable "DIMTAD" 1) (vlax-invoke acdoc 'setvariable "DIMTDEC" 2) (vlax-invoke acdoc 'setvariable "DIMTFAC" 1.0000) (vlax-invoke acdoc 'setvariable "DIMTFILL" 0) (vlax-invoke acdoc 'setvariable "DIMTFILLCLR" 0) (vlax-invoke acdoc 'setvariable "DIMTIH" 0) (vlax-invoke acdoc 'setvariable "DIMTIX" 0) (vlax-invoke acdoc 'setvariable "DIMTM" 0.0000) (vlax-invoke acdoc 'setvariable "DIMTMOVE" 0) (vlax-invoke acdoc 'setvariable "DIMTOFL" 0) (vlax-invoke acdoc 'setvariable "DIMTOH" 0) (vlax-invoke acdoc 'setvariable "DIMTOL" 0) (vlax-invoke acdoc 'setvariable "DIMTOLJ" 1) (vlax-invoke acdoc 'setvariable "DIMTP" 0.0000) (vlax-invoke acdoc 'setvariable "DIMTSZ" 0.0000) (vlax-invoke acdoc 'setvariable "DIMTVP" 0.0000) (vlax-invoke acdoc 'setvariable "DIMTXSTY" Standard) (vlax-invoke acdoc 'setvariable "DIMTXT" 3.5000) (vlax-invoke acdoc 'setvariable "DIMTXTDIRECTION" 0) (vlax-invoke acdoc 'setvariable "DIMTXTRULER" 1) (vlax-invoke acdoc 'setvariable "DIMTZIN" 0) (vlax-invoke acdoc 'setvariable "DIMUPT" 0) (vlax-invoke acdoc 'setvariable "DIMZIN" 0) (vla-copyfrom obj acdoc) ; update the Dim Style ) (princ))
; error: Autodesk Civil 3D 2023: Error setting system variable