有一个问题想请教飞哥

SWAYWOOD · 发表于 2004-5-25 21:30:00

我想用lisp新建一个标注样式如sw10，然后将该样式的文字样式修改为已有文字样式如sm,将标注比例设置为10，怎么样实现？我实在想不出来……

spring · 发表于 2004-5-25 21:51:00

看帮助文件里的标注变量

jwrhylyvqfo.jpg

meflying · 发表于 2004-5-25 22:30:00

to spring:这样是不行的，，，，具体组码意义再去参考帮助文件中的DXF部分：

copy


(defun MakeDimStyle (Name TextStyle TextHeight DimScale / Dxf)
   (setq Dxf '((0 . "DIMSTYLE")   (100 . "AcDbSymbolTableRecord")
             (100 . "AcDbDimStyleTableRecord") (70 . 0) (43 . 3.75)
             (73 . 0) (74 . 0) (77 . 1) (78 . 8) (141 . 2.5)
             (143 . 0.0393701) (171 . 3) (172 . 1) (271 . 2)
             (272 . 2) (274 . 3) (278 . 44) (283 . 0) (284 . 8)))
   (setq Dxf (append Dxf (list
         (cons 2 Name)
         (cons 140 TextHeight)
         (cons 40 DimScale)
         (cons 41 TextHeight)
         (cons 42 (/ TextHeight 4.0))
         (cons 44 (/ TextHeight 2.0))
         (cons 147 (/ TextHeight 4.0))
         (cons 340 (tblobjname "style" TextStyle)))))
   (entmake Dxf)
)
(defun EditDimStyle (Name / dimst)
   (setq dimst (entget (tblobjname "dimstyle" Name)))
   (setq dimst (subst (cons 41 15.0) (assoc 41 dimst) dimst))
   (entmod dimst)
)