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

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

我试图用entmake创建一个字型但不成功，请指教。


_$ (setq ls (tblnext "style" 0))<BR>((0 . "STYLE") (2 . "Standard") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "txt") (4 . ""))<BR>_$ (setq ls1 (subst '(2 . "test1") (assoc 2 ls) ls))<BR>((0 . "STYLE") (2 . "test1") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "txt") (4 . ""))<BR>_$ (entmake ls1)<BR>nil<BR>

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

我也想知道，呵呵：）

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

注意tblobjname函数的使用,并配合entget


(defun c:test( / ls)<BR>       (setq ls '((0 . "STYLE") (100 . "AcDbSymbolTableRecord")<BR>                                       (100 . "AcDbTextStyleTableRecord")<BR>                                       (2 . "test2") (70 . 0) (40 . 0.0) (41 . 1.0)<BR>                                       (50 . 0.0) (71 . 0) (42 . 2.5) (3 . "txt") (4 . "")))<BR>       (entmake ls)<BR>)

yzl_good 发表于 2004-6-8 18:01:00

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

meflying 发表于 2004-6-8 18:28:00

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


;这样应该知道该怎么继续了吧
页: [1]
查看完整版本: [求助]帮我看看问题在那里。