yunfengning 发表于 2011-5-23 00:48:49

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

本帖最后由 yunfengning 于 2011-5-23 00:53 编辑

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

Andyhon 发表于 2011-5-23 00:48:50

;;; 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 发表于 2011-5-23 09:29:13

程序可用，多谢Andyhon。另可以帮忙整一个类似程序吗？将两条不平行线按角度三等分。
页: [1]
查看完整版本: 申请：框选line1、line2，产生两条红色的三等分线