社区 › CAD › 我的缩放窗口宏已停止w

rookie37 发表于 2022-7-7 03:06:22

我的缩放窗口宏已停止w

多年来，这个宏运行良好。现在突然，它停止了。
 
我不知道为什么
 
 
 
(defun c:zw ()
   (setq pt1 (getpoint "\nSelect First Window Point: "))
   (setq pt1 (osnap pt1 "_endp"))
   (setq pt2 (getpoint "\nSelect Second Window Point: "))
   (setq pt2 (osnap pt2 "_endp"))
   (command "zoom"
   "w"
   pt1
   pt2
   ) ; end zoom
    (princ)
) ; end program

Lee Mac 发表于 2022-7-7 04:05:39

可能允许语言更改：
 

(defun c:zw ( / p1 p2 )

(if (and (setq p1 (getpoint "\nSelect First Window Point: "))
          (setq p1 (osnap p1 "_end"))
          (setq p2 (getcorner "\nSelect Second Window Point: " p1))
          (setq p2 (osnap p2 "_end")))

   (command "_.zoom" "_w" p1 p2)
)
(princ)
)

alanjt 发表于 2022-7-7 04:26:12

JIC。。。
(command "_.zoom" "_endp" PAUSE "_endp" PAUSE)

查看完整版本: 我的缩放窗口宏已停止w