为什么我CADlisp两个点明明是对角点，用command矩形画出来的就是一条线

发福的小瘦子

我设置成了全局变量，然后用！查了点的坐标，明明就是矩形的两个对角点坐标，但是运行命令后就是一条直线，为什么？

炫翔

上代码 可能是捕捉问题

发福的小瘦子

(defun c:xg ()
  (setvar "cmdecho" 0)
  (setvar "osmode" 33)
  (setvar "measurement" 1)
  (setq p1 (getpoint "\n请输入第一个对角点"))
  (setq p1 (trans p1 1 0))
  (setq p2 (getpoint p1 "\n请输入第二个对角点"))
  (setq p2 (trans p2 1 0))
  (setq L (getint "\n请输入下挂伸入墙体长度"))
  (if (null L)
    (setq L 0)
  )
  (setq x1 (car p1))
  (setq y1 (cadr p1))
  (setq x2 (car p2))
  (setq y2 (cadr p2))
  (setq dx (abs (- x1 x2)))
  (setq dy (abs (- y1 y2)))
  (defun xgsp ()                        ;下挂水平
    (cond ((< x1 x2)
           (setq p3 (polar p2 pi (+ L dx))
                 p4 (polar p1 0 (+ L dx))
           )
          )
          ((> x1 x2)
           (setq p3 (polar p2 0 (+ L dx))
                 p4 (polar p1 pi (+ L dx))
           )
          )
    )
  )

  (defun xgcz ()                        ;下挂垂直
    (cond ((> y1 y2)
           (setq p3 (polar p2 (* 0.5 pi) (+ L dy))
                 p4 (polar p1 (* 1.5 pi) (+ L dy))
           )
          )
          ((< y1 y2)
           (setq p3 (polar p2 (* pi 1.5) (+ L dy))
                 p4 (polar p1 (* pi 0.5) (+ L dy))
           )
          )
    )
  )

  (cond        ((< dx dy) (xgcz))                ;
        ((> dx dy) (xgsp))
  )
  (command "_rectang" p1 p2 "")
  (command "_rectang" p1 p3 "")
  (command "_rectang" p2 p4 "")
  (prin1)
)

发福的小瘦子

炫翔 发表于 2017-11-18 17:53

改成全部捕捉，确实可以了。

evayleung

发福的小瘦子 发表于 2017-11-18 18:15

在command前面把捕捉关掉，保证不会出错。

发福的小瘦子

evayleung 发表于 2017-11-18 20:38

嗯，试了，真的可以

kqqt6236

关闭捕捉。