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

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

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

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

<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">没有现成的函数 ....</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">老前辈的分享如附件</font></p>
<p></p>

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

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

<p>非常感谢！</p>

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

知识保护，严重支持
页: [1]
查看完整版本: [求助]如何利用lisp删除扩展属性项！