求一个CAD中快捷相对移动的LISP

显示全部楼层 · 2013-8-12 10:24:29

你说的相对移动不需要写LISP程序的，可以使用移动命令move,选择对象-选择移动对象-选择相对基点-输入相对坐标(输入相对坐标时在坐标值前加一个"@"字符。就能实现你要的功能。也可以用以下LISP实现(defun c:m1 (/ a1 p1 p2)(prompt "选择移动对象:")(setq a1 (ssget))(prompt "选择相对基点:")(setq p1 (getpoint))(prompt "输入相对坐标:")(setq p2 (getpoint))(command "move" a1 "" p1 (mapcar
'+
p1
...

千问 · 2013-8-12 10:24:29

没那么复杂,选择要移动的对象,右键,出现菜单,选"复制选择到",想移哪能就移哪...

千问 · 2013-8-12 10:24:29

你确定需要用这种方式去移动对象吗，如确定我给你弄一个...