几何尺寸与公差论坛------致力于产品几何量公差标准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)
-   -   如何获得某个command后生成的所有物体 (http://www.dimcax.com/hust/showthread.php?t=11908)

yang686526 2009-04-26 07:43 PM

如何获得某个command后生成的所有物体
 
如何获得某个command后生成的所有物体
www.dimcax.com
如何获得某个command后生成的所有物体
想获得copy命令后新生成物体的选择集,还有连续标注(dimcontinue)生成的标注选择集
或者,有无类似的系统变量,象undo那样先设置一个标志,以后就可以获得标识之后新生成物体的选择集?
d
;; [功能] 获取在图元 en 之后产生的图元的选择集
;; [参数] en----图元名
;; [返回] 选择集
;; [测试]1.( ent ())
;; 执行创建图元的命令,如 line,boundary
;; ( lst (lt:ss-entnext ent))
;; 2.( s (lt:ss-entnext ((entsel))))
( lt:ss-entnext (en / ss)
( en
(
( ss ())
( ( en ( en)) ( en ss))
( ( ( ss)) ( ss nil))
ss
)
( "_x")
)
)
(setq en (entlast))
(command ....)
(lt:ss-entnext en))
d
如果,(entlast)返回nil,那么该函数就不能执行了.
d
不是说不能执行,我是说选择的不是所需要的,而是 (
"_x")
d
"_x")
如果(entlast)为nil,则图中未画任何实体。所以可用(ssget "x")取得lisp命令执行后生成的所有实体。
踅摸


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