图形复制并对齐【已修正】

kwok

;简单的对复制并对齐
(defun c:tt (/ ss p1 p2 p3 p4)
    (command "_.undo" "be")
(if(setq ss (ssget ""))
   (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)
)

moranyuyan

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
命令: ; 错误: 参数太少

OooCcc

moranyuyan 发表于 2024-5-22 06:27
闪退
_.undo 当前设置: 自动 = 开，控制 = 全部，合并 = 是，图层 = 是
输入要放弃的操作数目或 [自动( ...

把这一句(if(setq ss (ssget ""))
改为(if(setq ss (ssget))就好了

moranyuyan

OooCcc 发表于 2024-5-24 10:46
把这一句(if(setq ss (ssget ""))
改为(if(setq ss (ssget))就好了

谢谢解答，效果棒极了