[求助]：删除扩展属性中某一应用程序名

sxdyh · 发表于 2004-10-25 14:25:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

某一实体的扩展属性有若干应用程序名并有属性数据，如何才能删除某一指定应用程序名和其相映数据，但不改变实体句柄。谢谢！

PLgis · 发表于 2004-10-25 14:59:59

参见：
http://www.mjtd.com/bbs/dispbbs. ... ID=27866&page=1

aeo · 发表于 2004-10-26 00:02:46

删除某一个：
[php]
(defun delapp(e name / app del en)
  (if(and(setq en(entget e '("*")))
      (setq app(cdr(assoc -3 en)))
      (setq del(assoc(strcase name) app))
      (setq app(subst(list name)del app))
      (setq en (subst(cons -3 app)(assoc -3 en)en))
   )
   (entmod en) nil
)
)
[/php]

aeo · 发表于 2004-10-26 00:12:08

这是删除所有的:
[php]
(defun delallapp(e / app en)
(if(and(setq en(entget e '("*")))
      (setq app(cdr(assoc -3 en)))
      (setq app (mapcar '(lambda(x)(list(car x)))app))
      (setq en (subst(cons -3 app)(assoc -3 en)en))
   )
   (entmod en) nil
)
)
[/php]

aeo · 发表于 2004-10-26 00:21:41

用一下
[php]
(defun c:delapp( / e name)
(command "undo""begin")
  (if(setq e(car(entsel"\n选择要删除app的实体: ")))
   (if(= ""(setq name(getstring "\n输入app的名称(回车全部): ")))
      (delallapp e)
      (delapp e name)
))
  (command "undo""end")
  (princ)
)
[/php]

命令: delapp
由于是零时写的:)
:和上面的两贴拷贝成一个文件.

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

[求助] [求助]：删除扩展属性中某一应用程序名

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子