申请：框选line1、line2，产生两条红色的三等分线

yunfengning

框选line1、line2两条line线，产生两条红色的三等分线。

Andyhon

;;; for test only
(defun c:Test ()
   (cond
    ((null (setq ss (ssget '((0 . "LINE"))))))
    (T
     (setq ee1 (ssname ss 0)
           ee2 (ssname ss 1)
            pa (cdr (assoc 10 (entget ee1)))
            pb (cdr (assoc 11 (entget ee1)))
            pc (cdr (assoc 10 (entget ee2)))
            pd (cdr (assoc 11 (entget ee2)))
            px (inters pa pb pc pd T)
     )
     (if px
       (setq px pc pc pd pd px)
     )
     (setq dd1 (/ (distance pa pc) 3)
           dd2 (/ (distance pb pd) 3)
           vv1 (angle pa pc)
           vv2 (angle pb pd)
            pe (polar pa vv1 dd1)
            pf (polar pb vv2 dd2)
            pg (polar pe vv1 dd1)
            ph (polar pf vv2 dd2)
     )
     (command "Line" "none" pe "none" pf "")
     (command "Line" "none" pg "none" ph "")
   ))
   (princ)
)

yunfengning

程序可用，多谢Andyhon。另可以帮忙整一个类似程序吗？将两条不平行线按角度三等分。