扩展属性问题求助

sxdyh

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

BDYCAD

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

sxdyh

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

wdb

将 (setq eng (entget        name         '("你的注册名")))


改为(setq eng (entget        name ))


然后再（entmod eng）

sxdyh

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

Student

;请将下面的"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

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

2. (vl-load-com)
3. (defun test(appname / doc regs reg)
4.    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
5.    (setq regs (vla-get-RegisteredApplications doc))
6.    (setq reg (vl-catch-all-apply 'vla-item (list regs appname)))
7.    (if (not (vl-catch-all-error-p reg))
8.        (vla-delete reg)
9.        (princ (strcat appname "不存在!"))
10.    )
11.    (princ)
12. )

(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

两个好方法，谢谢了！