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

841594

我试图用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

无痕

我也想知道，呵呵：）

meflying

注意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)
)

yzl_good

新建是可以的，但是，怎么修改文字类型呢？我每次都不能修改成功，提示说：没有找到“宋体”

meflying

(entget (tblobjname "style" "standard"))


;这样应该知道该怎么继续了吧