lisp删除xdata扩展数据
本帖最后由 NetBee 于 2021-2-20 09:05 编辑在站上找了一下没有找到lisp相关代码段。
这里上一下。
(defun nbtf_xdataDEL (e na / elst xdata)
(if (and (setq elst (entget e '("*")))
(setq xdata (cdr (assoc -3 elst)))
)
(progn
(setq xdata (subst (list na)(assoc na xdata) xdata)
elst(subst (cons -3 xdata) (assoc -3 elst) elst)
)
(entmod elst)
)
)
)
调用测试
(nbtf_xdatadel (car(entsel))"TEST")
我也不知道对不对。
(entmod (vl-remove-if '(lambda(x) (= (car x) -3)) (entget (car(entsel "选择图元:")) '("*")))) http://bbs.mjtd.com/thread-112857-1-1.html
页:
[1]