下面这个是晓东版主newer帮我写的代码,经测试可以用,你试下。
原贴:
http://bbs.xdcad.net/thread-705818-1-1.html
代码:
 - (defun c:outxd ()
- (xdrx_prompt "\n选取提取轮廓的实体<退出>:")
- (if (setq ss (ssget))
- (progn
- (xdrx_begin)
- (xdrx_runtime t)
- (xdrx_geom_searchoutline ss 0)
- (prompt "\n运算时间:")
- (princ (xdrx_runtime))
- (xdrx_end)
- )
- )
- )
|