(defun c:tt (/ ss p1 p2 p3 p4)
(command "_.undo" "be")
(if(setq ss (ssget ":L"))
(progn
(setq p1 (getpoint "\n选择基点1: ")
p2 (getpoint p1 "\n选择基点2: "))
(command ".copy"ss "" "non"p1 "non"p1)
(setq p3 (getpoint "\n目标基点1: ")
p4 (getpoint p3 "\n目标基点2: "))
(command "_.ALIGN" ss "" "non"p1 "non"p3"non"p2 "non"p4 "" "" )
)
)
(command "_.undo" "_e")
(princ)
) kwok 发表于 2024-5-21 12:53
;简单的对复制并对齐
(defun c:tt (/ ss p1 p2 p3 p4)
(command "_.undo" "be")
闪退
_.undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是，图层 = 是
输入要放弃的操作数目或 [自动(A)/控制(C)/开始(BE)/结束(E)/标记(M)/后退(B)] <1>: be
命令: ; 错误: 参数太少 moranyuyan 发表于 2024-5-22 06:27
闪退
_.undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是，图层 = 是
输入要放弃的操作数目或 [自动( ...
把这一句(if(setq ss (ssget ""))
改为(if(setq ss (ssget))就好了 OooCcc 发表于 2024-5-24 10:46
把这一句(if(setq ss (ssget ""))
改为(if(setq ss (ssget))就好了
谢谢解答，效果棒极了:loveliness:
页:
1
[2]