扩展属性问题求助

sxdyh · 发表于 2004-10-24 15:47:00

怎样才能删除已注册的扩展属性应用程序名？

BDYCAD · 发表于 2004-10-24 15:52:00

用entmake重新生面过对象, 但得注意生成前要vl-remove移除扩展数据的dxf组码.

sxdyh · 发表于 2004-10-24 15:56:00

不想改变原实体句柄，谢谢！

wdb · 发表于 2004-10-25 09:10:00

将 (setq eng (entget name '("你的注册名")))
改为(setq eng (entget name ))
然后再（entmod eng）

sxdyh · 发表于 2004-10-25 12:08:00

还是去不掉！请指教！谢谢！

Student · 发表于 2004-10-25 14:47:00

;请将下面的"application"改为你的"注册名"
(defun c:xx(/ ent ed)
   (setq ent (entsel "\nSelect object: "))
   (setq ent(car ent))
   (if ent
   (progn
   (setq ed(entget ent '("*")))
   (entmod (subst (cons -3 (list (cons "application" nil)))(assoc -3 ed) ed))
   )
   )
   (princ)
)
;

meflying · 发表于 2004-10-25 15:42:00

以上说的都是删除扩展数据,删除注册名用下面函数:用法test "aaa");"aaa"为要删除的注册名

copy


(vl-load-com)
(defun test(appname / doc regs reg)
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   (setq regs (vla-get-RegisteredApplications doc))
   (setq reg (vl-catch-all-apply 'vla-item (list regs appname)))
   (if (not (vl-catch-all-error-p reg))
       (vla-delete reg)
       (princ (strcat appname "不存在!"))
   )
   (princ)
)

sxdyh · 发表于 2004-10-25 22:45:00

两个好方法，谢谢了！

扩展属性问题求助

发表回复

精选推荐