大神帮我修改一下可以动态连续移动复制加移动连续旋转
本帖最后由 万事如意 于 2024-6-1 15:40 编辑;;复制旋转
(defun c:ZX ()
(command "undo" "be");一步撤销
(setq os (getvar "osmode"));;获取捕捉模式
(setvar "osmode" 16319)
(setq s1 (ssget))
(setq p1 (getpoint "\n请选择起点:"))
(while
(setq p2 (getpoint p1"\n请选取基点"))
(setq en (entlast))
(command "copy" s1 "" p1 p2)
(setq p3 (getpoint p2"\n请选取旋转点"))
(setq p4 (getpoint p3"\n请选取对其点"))
(setq s2 (ssadd))
(while (setq en (entnext en))
(setq s2 (ssadd en s2))
)
(command "rotate" s2 "" p2 "r" p2 p3 p4)
)
(setvar "osmode" os);;恢复捕捉模式
(command "undo" "e");一步撤销
(princ)
)
矩阵不是入门吗
页:
[1]