连续移动对象（高程点）
本帖最后由 skg123 于 2013-6-16 11:26 编辑;;skg123,2013-6-16
;;本程序用于连续移动对象，应用在高程点移位
(defun C:lx-move ( )
(while
(setq en (entsel "选择对象:"));要求碰选一个对象（高程点）、空选退出
(setq en_data (entget (car en))) ;取得元体资料列表
(setq pt (cdr (assoc 10 en_data))) ;求得高程点坐标pt
(command "move" en "" pt pause)
)
) 请问大神，这个程序如何做到空选不退出，继续循环啊 勤快小熠 发表于 2014-12-15 17:28 static/image/common/back.gif
请问大神，这个程序如何做到空选不退出，继续循环啊
entsel 换成 ssget 试试 谢谢分享!辛苦了
页:
[1]