请教

koalabear · 发表于 2004-4-12 14:40:00

各位：我想问一下，用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 · 发表于 2004-4-12 17:10:00

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

meflying · 发表于 2004-4-12 18:05:00

自己琢磨一下吧
用法：(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)
)