本帖最后由 vormittag 于 2012-1-5 10:30 编辑
如果仅仅是线(spline 或者 polyline),用下面的办法可能也行。

- (defun c:tt(/ ss)
- (setq ss (ssget))
- (command "move" ss "" "0,0,0" "0,0,1e99")
- (command "move" ss "" "0,0,1e99" "0,0,0")
- )
事实证明,对于二维图元,如圆、圆弧、实面、宽线、文字、属性、属性定义、形、插入、二维多段线、二维顶点、优化多段线、图案填充、图像,上面方法不起作用甚至可能出错。 |