[求助]如何利用lisp删除扩展属性项！

lijingxia81 · 发表于 2010-6-29 14:45:00

求助高手帮写个例子或是告诉我用哪个函数及此函数的用法！拜谢！

Andyhon · 发表于 2010-6-30 09:09:00

没有现成的函数 ....

老前辈的分享如附件

lijingxia81 · 发表于 2010-7-3 22:32:00

非常感谢！

jfxia · 发表于 2011-5-28 12:32:31

附件试用中，谢老前辈

652758365 · 发表于 2012-4-3 14:34:22

;          将所有对象的编码、属性清空
(defun gtdj-bmqk (/ j-g1 k-g1 sm-g1 dx-g1 ty-g1)
(setq j-g1 (ssget "x"))
  (if j-g1
(progn
(setq k-g1 0 sm-g1 (sslength j-g1))
  (while (< k-g1 sm-g1)
   (setq dx-g1 (ssname j-g1 k-g1))
   (setq ty-g1 (entget dx-g1'("*")))
(if (assoc -3 ty-g1)
   (progn
(entmake (vl-remove (assoc -3 ty-g1) ty-g1))
(entdel dx-g1)    ))
(setq k-g1 (+ k-g1 1)) )    ))
  (setq j-g1 nil)
  (princ)
)

野狼谷/〈M〉 · 发表于 2013-6-7 22:44:08

知识保护，严重支持

账号		自动登录	找回密码
密码			注册

[求助]如何利用lisp删除扩展属性项！

本帖子中包含更多资源

回复：（Andyhon）没有现成的函数 ....老前辈的分享...