连续移动对象（高程点）

skg123 · 发表于 2013-6-16 11:14:39

本帖最后由 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:07

请问大神，这个程序如何做到空选不退出，继续循环啊

skg123 · 发表于 2014-12-20 10:38:19

勤快小熠发表于 2014-12-15 17:28
请问大神，这个程序如何做到空选不退出，继续循环啊

entsel 换成 ssget 试试

jxy308 · 发表于 2014-12-22 08:15:14

谢谢分享!辛苦了

账号		自动登录	找回密码
密码			注册

连续移动对象（高程点）

评分

相关帖子