[LISP程序]：直接计算两直线夹角的小程序

wharan

选择两根直线，可以自动显示夹角的小程序。将程序复制到AutoCAD的路径下，直接加载，命令行状态下键入：lang，直接显示结果。

huiling6868

可是我不能下载,是否能给我发一个.
E-MAIL
HUILING6868@163
         谢谢.

li809

下了，谢谢楼主

huiling6868

下了也安装了,但有个建议,点取两条线后再点取两线之间的空白处,点那边就量那边的夹角,现在量出的角度看不出是那个方向的,但还是要谢谢你!

PFD8667

谢谢楼主,很好用,但未能显示度,分,秒.

灵雨飘零

thanks

zml84

;;;=======================================
;;;功能：角平分线
(vl-load-com)
(defun C:TT4 (/ SS1 ENT1 SS2 ENT2 PT0 PT1 PT2 PT3)
    (and (setq SS1 (entsel "\n点取直线段1: "))
         (setq ENT1 (entget (car SS1)))
         (= (cdr (assoc 0 ENT1)) "LINE")
         (setq SS2 (entsel "\n点取直线段2: "))
         (setq ENT2 (entget (car SS2)))
         (= (cdr (assoc 0 ENT2)) "LINE")
         (setq PT0 (inters
                       (cdr (assoc 10 ENT1))
                       (cdr (assoc 11 ENT1))
                       (cdr (assoc 10 ENT2))
                       (cdr (assoc 11 ENT2))
                       NIL
                   )
         )
         ;;最近的线上的点
         (setq PT1 (vlax-curve-getclosestpointto
                       (vlax-ename->vla-object (car SS1))
                       (cadr SS1)
                   )
               PT2 (vlax-curve-getclosestpointto
                       (vlax-ename->vla-object (car SS2))
                       (cadr SS2)
                   )
         )
         (setq PT2 (polar PT0 (angle PT0 PT2) (distance PT0 PT1)))
         (setq PT3 (polar PT1 (angle PT1 PT2) (* 0.5 (distance PT1 PT2))))
         (entmake
             (list (cons 0 "LINE") (cons 10 PT0) (cons 11 PT3))
         )
    )
)

JiangYJii

这个实现起来应该比较简单

挚友01

2222222222

qqqincccken

谢谢楼主,很好用,希望有更多資源

kqqt6236

谢谢分享。

Daihongy

下了，谢谢楼主