在AUTOCAD中如何用lisp语言新建一个标注样式

Question

标注样式管理器中显示的结构如下：
bz <=====首先新建一个名为bz的样式
|
|--线性 <=====再新建一个名为bz下的线性样式
|--角度 <=====再新建一个名为bz下的角度样式
standard

Answer 1

标注样式要先建立字体样式。

如果箭头没有块的话，要建立块。

;;;主程序标注样式
(defun TextDim ()
 (tssd2)
 (if (null (tblsearch "DIMSTYLE" "TSSD_50_50-250"));1
  (progn
   (if (null (tblobjname "BLOCK" "_ARCHTICK"))
    (progn
     (entmake (list '(0 . "BLOCK") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbBlockBegin") '(70 . 0) '(10 0.0 0.0 0.0) '(2 . "_ARCHTICK") '(1 . "")))
     (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(62 . 0) '(6 . "ByBlock") '(100 . "AcDbPolyline") '(90 . 2) '(43 . 0.15) '(10 -0.5 -0.5 0.0) '(10 0.5 0.5 0.0) '(210 0.0 0.0 1.0)))
     (entmake (list '(0 . "ENDBLK")))
     (entupd (tblobjname "Block" "_ARCHTICK"))
    )
   )
   (entmake (list '(0 . "DIMSTYLE") 
                  '(100 . "AcDbSymbolTableRecord") 
                  '(100 . "AcDbDimStyleTableRecord") 
                  '(70 . 0)
                  '(2 . "TSSD_50_50-250")   ; æ ‡æ³¨æ ·å¼å
                  '(3 . "")        ; æ ‡æ³¨å‰ç¼€
                  '(4 . "")
                  '(40 . 0.0)       ; æ ‡æ³¨ç‰¹å¾æ¯”例，缩放到布局
                  '(41 . 60)        ; ç®­å¤´å°ºå¯¸
                  '(42 . 50)        ; èµ·ç‚¹åç§»é‡
                  '(43 . 0)         ; åŸºçº¿é—´è·
                  '(44 . 0)         ; è¶…出尺寸线
                  '(47 . 0.000)     ; ä¸Šåå·®
                  '(48 . 0.000)     ; ä¸‹åå·®
                  '(71 . 0)         ; å…¬å·®æ— 
                  '(73 . 0)         ;设置对齐或水平的内部文字
                  '(74 . 0)         ;设置外部文字对齐或水平
                  '(77 . 2)         ; æ–‡å­—在尺寸线外部
                  '(140 . 230)      ; æ–‡å­—高度
                  '(141 . 0)        ; åœ†å¿ƒæ ‡è®°
                  '(142 . 0)        ;箭头斜线的大小
                  '(144 . 1.0)      ; æµ‹é‡æ¯”例单位
                  '(146 . 0.5)      ; å…¬å·®é«˜åº¦æ¯”例
                  '(147 . 60)       ; æ–‡å­—从尺寸线偏移
                  '(172 . 2)        ; å°ºå¯¸ç•Œçº¿é—´è¿žçº¿
                  '(173 . 0)        ; ç»˜åˆ¶ç®­å¤´çš„用户定义块 
                  '(174 . 4)        ; é™åˆ¶æ–‡å­—在延伸线间
                  '(176 . 256)      ; éšå±‚
                  '(177 . 256)      ; éšå±‚
                  '(178 . 256)      ; éšå±‚
                  '(271 . 0)        ; å°ºå¯¸æ ‡æ³¨ç²¾åº¦
                  '(272 . 3)        ; å…¬å·®æ ‡æ³¨ç²¾åº¦
                  '(275 . 0)        ; è§’度标注制式，十进制。
                  '(280 . 0)        ;确定文字的水平位置
                  '(283 . 1)        ;DIMTOLJ é€šç”¨ è®¾ç½®å…¬å·®æ–‡å­—的竖向位置
                  '(288 . 0)        ;手动放置尺寸
                  '(279 . 2)        ;文字移动;
                  (cons 340 (tblobjname "style" "TSSD_Dimension")) ; æ–‡å­—样式名
                  (cons 342 (cdr (assoc 330 (entget (tblobjname "BLOCK" "_ARCHTICK")))));;;DIMBLK:
              )
   )
  )
 )
)

;建立TSSD_Dimension字体
(defun TSSD2 ( / newt)
 (if (null (tblsearch "style" "TSSD_Dimension"))
  (progn
   (if (null vlax-dump-object) (vl-load-com) )
   (setq newT (vla-add (vla-get-TextStyles (vla-get-activedocument (vlax-get-acad-object))) "TSSD_Dimension"))
   (vla-put-fontfile newT "tssdeng.shx")
   (vla-put-bigfontfile newT "hztxt.shx");大字体为hztxt
   (vla-put-height newT 0);高度0
   (vla-put-width newT 0.5);宽度因子0.6
   (vla-put-obliqueAngle newT (/ (* pi 3) 180));倾斜角度3
  )
 )
);【注意：字体库里面必需有"tssdeng.shx""hztxt.shx"两个字体】

Answer 2

(setq
etmkrtn (entmake (list
(cons 0 "DIMSTYLE")
(cons 100 "AcDbSymbolTableRecord")
(cons 100 "AcDbDimStyleTableRecord")
(cons 2 "Sdimstyle_by_chen")
(CONS 5 "_ARCHTICK")
(CONS 6 "_ARCHTICK")
(CONS 7 "_ARCHTICK")
(cons 40 0.01)
(cons 41 120.0)
(cons 42 200.0)
(cons 43 200.0)
(cons 44 200.0)
(cons 45 10.0)
(cons 70 0)
(cons 73 0)
(cons 74 0)
(cons 77 1)
(cons 78 12)
(cons 140 280.0)
(cons 141 1.0)
(cons 143 1.0)
(cons 144 100.0)
(cons 145 1.6667)
(cons 146 0.1667)
(cons 147 100.0)
(cons 171 0)
(cons 172 1)
(cons 173 1)
(cons 174 1)
(cons 176 256)
(cons 177 256)
(cons 178 3)
(cons 274 0)
(cons 284 12)
(cons 285 12)
(cons 286 12)
(cons 340 dltxt)
)
)
)
)

Answer 3

直接使用ddim命令不是很方便吗？