画直线如何 变成直角

首页

画直线如何 变成直角

画线A 到B 计算出C

lch8526

C点坐标有两个，(list (car A) (cadr B))或(list (car B) (cadr A))

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)
)

迷失2004

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

lostbalance

直线水平和垂直吗？不然c点有无数个啊……

669423907

lostbalance 发表于 2018-6-14 13:52
直线水平和垂直吗？不然c点有无数个啊……

标题上，直角

首页

lostbalance 发表于 2018-6-14 13:52
直线水平和垂直吗？不然c点有无数个啊……

固定的都是直角 不会有各种角度

首页

这个东西 不求源码 有源码那更无敌了
希望大家给个思路 都要得到什么数值才可以 算出来啊

首页

首页 发表于 2018-6-14 15:00
这个东西 不求源码 有源码那更无敌了
希望大家给个思路 都要得到什么数值才可以 算出来啊

我感觉我要回炉学一下三角函数

张大锤

lch8526 发表于 2018-6-14 15:50
C点坐标有两个，(list (car A) (cadr B))或(list (car B) (cadr A))

学习了

lostbalance

669423907 发表于 2018-6-14 14:35
标题上，直角

我本来想问的是ac和bc是不是一根线水平，一根线竖直。不然ab为直径的圆上所有的点都满足ac垂直bc的......

evayleung

如楼上所说，无解。