entmake创建图元必要条件(慢慢更新)

xyp1964

lucas_3333 发表于 2015-9-11 11:05
1001 组中有无效的的应用程序名
这样也不行,啥情况?

要先注册： (regapp "SOUTH")

lucas_3333

xyp1964 发表于 2015-9-11 13:59
要先注册： (regapp "SOUTH")

咋把这个给忘了, 谢谢院长提醒!

1. (defun getxdata ( ent app )
   
2.     (cdr (assoc -3 (entget ent (list (cond (app) ("*"))))))
   
3. )
   

(defun getxdata ( ent app )<br />     (cdr (assoc -3 (entget ent (list (cond (app) ("*"))))))<br /> )<br />

_$(getxdata (car (entsel)) "SOUTH")
(("SOUTH" (1002 . "{") (1000 . "301000") (1000 . "J") (1071 . 1) (1002 . "}")))

1. (defun putxdata ( ent app lst )
   
2.     (regapp app)
   
3.     (entmod (reverse (cons (list -3 (cons app lst)) (reverse (entget ent)))))
   
4. )
   
5. 
   
6. (defun removexdata ( ent app / lst )
   
7.     (if (setq lst (cdr (assoc -3 (entget ent (list (cond (app) ("*")))))))
   
8.         (entmod (list (cons -1 ent) (cons -3 (mapcar 'list (mapcar 'car lst)))))
   
9.     )
   
10. )

(defun putxdata ( ent app lst )<br />     (regapp app)<br />     (entmod (reverse (cons (list -3 (cons app lst)) (reverse (entget ent)))))<br /> )<br /> <br /> (defun removexdata ( ent app / lst )<br />     (if (setq lst (cdr (assoc -3 (entget ent (list (cond (app) ("*")))))))<br />         (entmod (list (cons -1 ent) (cons -3 (mapcar 'list (mapcar 'car lst)))))<br />     )<br /> )

war32

学习下，谢谢

angelnoeyeb

向大神学习

czcxxx

学习学习学习学习学习学习

czcxxx

楼主很给力，谢谢

moistmist

要学学！ 找很久了

cuncun_101

学习下，学习了,谢谢啊

笨笨熊007

不错不错，学习了

egos

有无其他办法直接获得必要条件？