社区 › AutoLISP/Visual LISP 编程技术 › entmake创建图元必要条件(慢慢更新)

lucas_3333 发表于 2015-9-11 14:09:52

本帖最后由 lucas_3333 于 2015-9-11 14:11 编辑

xyp1964 发表于 2015-9-11 13:59 static/image/common/back.gif
要先注册： (regapp "SOUTH")
咋把这个给忘了, 谢谢院长提醒!
(defun getxdata ( ent app )
    (cdr (assoc -3 (entget ent (list (cond (app) ("*"))))))
)

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


(defun putxdata ( ent app lst )
    (regapp app)
    (entmod (reverse (cons (list -3 (cons app lst)) (reverse (entget ent)))))
)

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

war32 发表于 2015-9-11 16:56:12

学习下，谢谢

angelnoeyeb 发表于 2015-9-11 21:55:07

向大神学习

czcxxx 发表于 2015-9-12 14:13:59

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

czcxxx 发表于 2015-9-12 15:06:12

楼主很给力，谢谢

moistmist 发表于 2015-9-14 15:05:45

要学学！ 找很久了

cuncun_101 发表于 2015-9-20 13:36:27

学习下，学习了,谢谢啊

笨笨熊007 发表于 2015-9-21 18:34:44

不错不错，学习了

egos 发表于 2015-10-12 21:55:02

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

376394482 发表于 2015-10-14 11:03:02

谢谢分享

查看完整版本: entmake创建图元必要条件(慢慢更新)