请教

koalabear

各位：我想问一下，用lisp编写生成标注样式的程序，应该如何编写。我写了一个，生成样式名为标注，但是最后生成标注的样式替代。请哪位帮忙看看如何修改才能把标注样式里的内容修改。（比如：文字大小、文字样式） (defun c:aaa()
(setq chklay (tblsearch "dimstyle" "标注"))
(if (= chklay nil)
(progn (command "dimstyle" "s" "标注")


(setvar "dimasz" 3.5)
(setvar "dimatfit" 1)
(setvar "dimclrd" 256)
(setvar "dimclre" 256)
(setvar "dimclrt" 256)
(setvar "dimdec" 2)
(setvar "dimdli" 3.5)
(setvar "dimexe" 3)
(setvar "dimexo" 0)
(setvar "dimgap" 1.75)
(setvar "dimlwd" -3)
(setvar "dimlwe" -3)
(setvar "dimscale" 1)
(setvar "dimtxsty" "技术要求")
(setvar "dimtxt" 4.5)
(setvar "dimtmove" 2))
)
(prin1)
)
(prompt "〈〈〈aaa〉〉〉")
(prin1)

koalabear

????????????//

meflying

自己琢磨一下吧 用法：(MakeDimStyle "ABC" "STANDARD" 2 3) (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)
)

koalabear

谢谢斑竹，我再想想！

lzy9788

用set命令查下系统变量也行啊，再去试下。


这样做程序运行比较慢，我也用过这种思路。


不过可以省掉建立尺寸样式的繁琐事。

meflying

比较慢?首先,ENTMAKE函数并不是一个运行很慢的函数,另外,应该不会建立成千上万个文字样式吧,就建那么几个文字样式,能对程序速度产生多少影响?