查看单个帖子
旧 2009-04-26, 03:06 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 [求助]问个扩展数据的问题!

[求助]问个扩展数据的问题!
www.dimcax.com
[求助]问个扩展数据的问题!
在一张图中,有什么可能,会导致一个没有注册的扩展数据应用名注册不了?
另外,请问如何快速的清理掉那些空的扩展数据应用名(无扩展数据)?
d
知道的,说一声,谢谢!
d
(defun c:delapp ()
(setq r (tblnext "appid" t))
(while r
(vl-catch-all-apply 'vla-delete (list(vlax-ename->vla-object(tblobjname "appid" (cdr(assoc 2 r))))))
(setq r (tblnext "appid"))
)
)
这种方法每次都要扫描图形,超慢!!!
d
1.没遇到这种情况
2.可编程删除没有使用的appid
用函数(tblnext table-name [rewind]) 得到所有的appname
对每一个appname
如果(ssget "x" '((-3 ("appname"))))为空
就删除这个app
删除app的方法,论坛上有
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)