求一个画矩形带中心线的程序

664571221

   输入tt 提示选择点  鼠标点第一点 鼠标点第二点 形成矩形    然后矩形要带中心线

qijun0818

(defun c:tt(/ p1 p2 p3 p4 pa pb pc pd)
        (setq
                p1(getpoint)
                p3(getcorner p1)
                p2(list (car p3)(cadr p1))
                p4(list (car p1)(cadr p3))
                pa(mapcar '(lambda (a b)(* (+ a b) 0.5)) p1 p4)
                pb(mapcar '(lambda (a b)(* (+ a b) 0.5)) p2 p3)
                pc(mapcar '(lambda (a b)(* (+ a b) 0.5)) p1 p2)
                pd(mapcar '(lambda (a b)(* (+ a b) 0.5)) p3 p4)
        )
        (command "RECTANG" p1 p3)
        (command "LINE" pa pb "" "LINE" pc pd "")
        (princ)
)

qijun0818

看看是不是你想要的

lenlenq

要把捕捉关了

lostbalance

lenlenq 发表于 2018-6-29 21:27
要把捕捉关了

command里每个p点前加”non”就可以，关捕捉还要做恢复…