[LISP程序]：兩點之間 等分

logo3490

依據輸入的兩點，等分，並劃出等分線

(defun c:test (/)

        (setq old_osmode         (getvar "OSMODE"))
        (setq old_ortho         (getvar "ORTHOMODE"))
        (setvar "OSMODE" 512)
        (initget 1)(setq p1 (getpoint "\n 等分長度，第一點: "))
        (setvar "OSMODE" 128)
        (initget 1)(setq p2 (getpoint p1 "\n 等分長度，第二點: "))

        (setvar "OSMODE" 0)
        (setvar "ORTHOMODE" 0)
        (initget 1)(setq p3 (getpoint "\n 等分線段長度，第一點: "))
        (initget 1)(setq p4 (getpoint p3 "\n 等分線段長度，第二點: "))
        (setvar "OSMODE" old_osmode)
        (setvar "ORTHOMODE" old_ortho)

        (initget 7)(setq num (getint "\n 等分數: "))

        (setq
                dst                (distance p1 p2)
                off_dst        (/ dst num)
                ang                (angle p1 p2)
                perang        (+ ang (/ pi 2.0))
                dp1                (inters p1 (polar p1 perang 1) p3 (polar p3 ang 1) nil)
                dp2                (inters p1 (polar p1 perang 1) p4 (polar p4 ang 1) nil)
        ) ; end setq

        (repeat (1- num)
                (setq
                        dp1                (polar dp1 ang off_dst)
                        dp2                (polar dp2 ang off_dst)
                ) ; end setq

                (entmake         (list
                                        (cons 0         "LINE")
                                        (cons 8         (getvar "CLAYER"))
                                        (cons 10         dp1)
                                        (cons 11         dp2)))


        ) ; end repeat

) ; end defun

xotoo

这一个不错嘛，在某些时刻很好用……

cpp520hb

收藏备用，谢谢分享