画直线如何 变成直角

迷失2004

一条直线 确实可以做出无数个直角的C点 楼主点意思大概是 A点，B点 分别画正交构造线，相交点为C点，上面有这个 (list (car A) (cadr B))或(list (car B) (cadr A))，看起来OK，但如果 A B两点本身就在同水平线上 或者同垂直线上呢？

ghgh0130

(defun c:tt (/ ob pp)
  (if (and (setq ob (entsel "\n选择直线:")) (setq pp (getpoint (cadr ob) "\n选择位置:")))
    (command "_undo"
             "be"
             "_rectang"
             "f"
             0
             "_non"
             (trans (vlax-curve-getstartpoint (car ob)) 0 1)
             "_non"
             (trans (vlax-curve-getendpoint (car ob)) 0 1)
             "_trim"
             ob
             ""
             (list (entlast) (polar (cadr ob) (angle pp (cadr ob)) (distance (cadr ob) pp)))
             ""
             "_undo"
             "e"
    )
  )
  (princ)
)

张大锤

顺这个贴子 求学一下 如果不像他这样的直角 而是45的角 要如何计算呢？

张大锤

迷失2004 发表于 2018-6-16 02:06
一条直线 确实可以做出无数个直角的C点 楼主点意思大概是 A点，B点 分别画正交构造线，相交点为C点，上面有 ...

这个我试了一下 如果是垂线与横线的时候 会有个点~ 肯定是要加判断的了