几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   [求助]问个扩展数据的问题! (http://www.dimcax.com/hust/showthread.php?t=11356)

yang686526 2009-04-26 03:06 PM

[求助]问个扩展数据的问题!
 
[求助]问个扩展数据的问题!
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


所有的时间均为北京时间。 现在的时间是 08:59 PM.