[求助]帮我看看问题在那里。

841594 · 发表于 2004-2-13 10:03:00

我试图用entmake创建一个字型但不成功，请指教。
_$ (setq ls (tblnext "style" 0))
((0 . "STYLE") (2 . "Standard") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "txt") (4 . ""))
_$ (setq ls1 (subst '(2 . "test1") (assoc 2 ls) ls))
((0 . "STYLE") (2 . "test1") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "txt") (4 . ""))
_$ (entmake ls1)
nil

无痕 · 发表于 2004-2-14 22:51:00

我也想知道，呵呵：）

meflying · 发表于 2004-2-16 13:30:00

注意tblobjname函数的使用,并配合entget
(defun c:test( / ls)
   (setq ls '((0 . "STYLE") (100 . "AcDbSymbolTableRecord")
   (100 . "AcDbTextStyleTableRecord")
   (2 . "test2") (70 . 0) (40 . 0.0) (41 . 1.0)
   (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "txt") (4 . "")))
   (entmake ls)
)