[分享]新增標註型式LSP

主題回顧 :


https://youtu.be/zveWnCRRsn4
(defun c:ddd ()
 (vl-load-com)
 (setvar "cmdecho" 0)
 (SETQ A (GETREAL "\n尺寸比例:"))
 (SETQ B (GETREAL "\n圖面比例:"))
 (COMMAND "-STYLE" "尺" "isocp.shx,chineset.shx" "0" "0.8" "" "" "")
 (setvar "DIMALTF" 2.5)
 (setvar "DIMTOLJ" 0)
 (setvar "DIMTFAC" 0.8000)
 (setvar "DIMTDEC" 3)
 (setvar "DIMTZIN" 8)
 (setvar "DIMFXL" (/ 1.25 B))
 (setvar "DIMATFIT" 3)
 (setvar "DIMALTTD" 3)
 (setvar "DIMLTEX1" "BYLAYER")
 (setvar "DIMLTEX2" "BYLAYER")
 (setvar "DIMEXO" (/ 0.6250 B))
 (setvar "DIMEXE" (/ 1.250 B))
 (setvar "DIMLWE" 13)
 (setvar "DIMCLRE" 3)
 (setvar "DIMTOFL" 1)
 (setvar "DIMTAD" 1)
 (setvar "DIMGAP" (/ 0.6250 B))
 (setvar "DIMTIH" 0)
 (setvar "DIMTXSTY" "尺")
 (setvar "DIMTOH" 0)
 (setvar "DIMCLRT" 1)
 (setvar "DIMTXT" (/ 3.0 B))
 (setvar "DIMLTYPE" "BYLAYER")
 (setvar "DIMLWD" 13)
 (setvar "DIMDLI" (/ 3.750 B))
 (setvar "DIMCLRD" 3)
 (setvar "DIMASZ" (/ 3.0 B))
 (setvar "DIMDEC" 3)
 (setvar "DIMLFAC" (/ 1 A))
 (setvar "DIMZIN" 8)
 (setvar "DIMAZIN" 2)
 (setvar "DIMADEC" 3)

 (if (= A B 1)
   (SETQ TT "ISO-25")
   (PROGN

     (SETQ TT (STRCAT (setq A (rtos A 2 1))
      '"-ISO-25-"
      (setq B (rtos B 2 1))
      )
     )
   )


 )
;-------------------------------------------------------------

 (setq ad (vla-get-ActiveDocument (vlax-get-acad-object)))
 (setq obj (vla-add (vla-get-dimstyles ad) TT))
 (vla-copyfrom Obj ad)
 (vla-put-activedimstyle ad Obj)

 (princ)
)

很常使用，可減少很多的時間。謝謝分享