请教：如何根据图元表创建这个图元？

dinosaurhxe

印象中MJTD有这个的例子，刚才又没有搜到。

比如Text，我从别的Text里获取了图元表，稍稍修改其中一两项之后，就需要将其创建成另一个Text，不想再调用Command等命令，直接从由这个图元表生成。

wwwliuyu

是可以的,用ASSOC和SUBST配合ENTMAKE函数就可以做到了.

dinosaurhxe

看来就是ENTMAKE了，谢谢提醒！我回去查查。

dinosaurhxe

看来entmake还是没有学会，
下面这段程序的目的是将TEXT改为ATTDEF，但entmake总是nil，不知道是哪里的问题？请高人指点。

2. (defun c:atdef ()
3.   (setq ss (ssget '((0 . "TEXT"))))
4.   (repeat (setq n (sslength ss))
5.     (setq ent1 (entget (setq name (ssname ss (setq n (1- n))))))
6.     (setq newat '((0 . "ATTDEF")))
7.     (setq lst '(67 410 8 10 40 50 41 51 7 71 72 11 210 73))
8.     (foreach xh lst
9.       (setq dd (assoc xh ent1))
10.       (if (/= dd nil)
11. (setq newat (append newat (list dd)))
12.       ) ;_ 结束if
13.     ) ;_ 结束foreach
14.     (setq dd (cons 2 (get 1 ent1)))
15.     (setq newat (append newat (list dd)))
16.     (setq dd (cons 3 (get 1 ent1)))
17. ;|    (setq newat (append newat (list dd)))
18.     (setq dd (cons 70 0))
19.     (setq newat (append newat (list dd)))
20.     (setq dd (cons 74 0))
21.     (setq newat (append newat (list dd)))
22.     (setq dd (cons 280 0))
23.     (setq newat (append newat (list dd)))|;
24.   ) ;_ 结束repeat
25.   (entmake newat)
26. ) ;_ 结束defun
27. (defun get (aaaaa bbbbb /)
28.    (cdr (assoc aaaaa bbbbb))
29. )

(defun c:atdef ()   (setq ss (ssget '((0 . "TEXT"))))   (repeat (setq n (sslength ss))     (setq ent1 (entget (setq name (ssname ss (setq n (1- n))))))     (setq newat '((0 . "ATTDEF")))     (setq lst '(67 410 8 10 40 50 41 51 7 71 72 11 210 73))     (foreach xh lst       (setq dd (assoc xh ent1))       (if (/= dd nil) (setq newat (append newat (list dd)))       ) ;_ 结束if     ) ;_ 结束foreach     (setq dd (cons 2 (get 1 ent1)))     (setq newat (append newat (list dd)))     (setq dd (cons 3 (get 1 ent1))) ;|    (setq newat (append newat (list dd)))     (setq dd (cons 70 0))     (setq newat (append newat (list dd)))     (setq dd (cons 74 0))     (setq newat (append newat (list dd)))     (setq dd (cons 280 0))     (setq newat (append newat (list dd)))|;   ) ;_ 结束repeat   (entmake newat) ) ;_ 结束defun (defun get (aaaaa bbbbb /)    (cdr (assoc aaaaa bbbbb)) )

龙龙仔

我2002年寫的,現在應有更簡單的寫法

http://www.xdcad.net/forum/showthread.php?s=&threadid=22453&perpage=15&display=&pagenumber=1

无痕

dinosaurhxe发表于2008-4-10 21:35:00看来entmake还是没有学会，下面这段程序的目的是将TEXT改为ATTDEF，但entmake总是nil，不知道是哪里的问题？请高人指点。(defun c:atdef ()  (setq ss (ssget '((0 . \"TEXT\")))) 

组码   100？

dinosaurhxe

无痕发表于2008-4-11 13:46:00组码   100？

里头两个100啊，怎么区别这个？组码这个东西有没有相应教材什么的？我一直对这个比较迷惑。

另：谢谢龙龙仔，您的大作我正在学习中。

dinosaurhxe2

龙龙仔发表于2008-4-11 8:08:00我2002年寫的,現在應有更簡單的寫法http://www.xdcad.net/forum/showthread.php?s=&threadid=22453&perpage=15&display=&pagenumber=1

感谢龙龙仔，我参考您的程序，问题得以顺利解决。至于更简单的方法，我就想不出来了。

2. ;TEXT转ATTDEF
3. ;改自LUCAAS@XDCAD
4. ;参考http://www.xdcad.net/forum/showthread.php?s=aa9beae0d44d80471f8c672d59d1133b&threadid=22453&perpage=15&display=&pagenumber=1
5. ;By Dinosaur Deng 2008.4.12
6. (defun text2attdef (/ name ent newent ent73 ent1)
7.   (setq ss (ssget '((0 . "TEXT"))))
8.   (repeat (setq n (sslength ss))
9.     (setq ent (entget (setq name (ssname ss (setq n (1- n))))))
10.     (setq newent (member '(100 . "AcDbEntity") ent))
11.     (setq ent73 (cdr (assoc 73 newent)))
12.     (setq ent1 (cdr (assoc 1 newent)))
13.     (setq newent (append '((0 . "ATTDEF"))
14.     (reverse (cddr (reverse newent)))
15.     '((100 . "AcDbAttributeDefinition")
16.       (70 . 0)
17.      )
18.     (list (cons 74 ent73)
19.           (cons 3 ent1)
20.           (cons 2 ent1)
21.     )
22.    )
23.     )
24.     (entmake newent)
25.     (command "_.erase" name "")
26.   )
27. )

;TEXT转ATTDEF ;改自LUCAAS@XDCAD ;参考http://www.xdcad.net/forum/showthread.php?s=aa9beae0d44d80471f8c672d59d1133b&threadid=22453&perpage=15&display=&pagenumber=1 ;By Dinosaur Deng 2008.4.12 (defun text2attdef (/ name ent newent ent73 ent1)   (setq ss (ssget '((0 . "TEXT"))))   (repeat (setq n (sslength ss))     (setq ent (entget (setq name (ssname ss (setq n (1- n))))))     (setq newent (member '(100 . "AcDbEntity") ent))     (setq ent73 (cdr (assoc 73 newent)))     (setq ent1 (cdr (assoc 1 newent)))     (setq newent (append '((0 . "ATTDEF"))     (reverse (cddr (reverse newent)))     '((100 . "AcDbAttributeDefinition")       (70 . 0)      )     (list (cons 74 ent73)           (cons 3 ent1)           (cons 2 ent1)     )    )     )     (entmake newent)     (command "_.erase" name "")   ) )

wwwliuyu

dinosaurhxe发表于2008-4-12 10:02:00里头两个100啊，怎么区别这个？组码这个东西有没有相应教材什么的？我一直对这个比较迷惑。另：谢谢龙龙仔，您的大作我正在学习中。

AutoCAD帮助里开发者文档有很详细的说明.

dinosaurhxe

谢谢楼上的兄弟，我已经发现这个帮助文档了。