求大神看看两个矩形中心点连线

664571221

输入tt ，提示选择矩形 ，框选两个矩形，中心点之间形成一条线

qijun0818

(defun c:tt(/ ss i lst)
        (setq
                ss(ssget '((0 . "*LWPOLYLINE,POLYLINE")(90 . 4)))
                i -1
                lst nil
        )
        (repeat 2
                (setq
                        en(ssname ss (setq i (1+ i)))
                        pt(mapcar '(lambda (a b)(* 0.5 (+ a b)))(vlax-curve-getPointatParam en 0)(vlax-curve-getPointatParam en 2))
                        lst(append lst (list pt))
                )
        )
        (entmake (list '(0 . "line")
                                                 '(62 . 10)
                                                 (cons 10 (car lst))
                                                 (cons 11 (cadr lst))
                                         )
        )
        (princ)
)

ysq101

qijun0818 发表于 2018-6-24 18:01
(defun c:tt(/ ss i lst)
        (setq
                ss(ssget '((0 . "*LWPOLYLINE,POLYLINE")(90 . 4)))

应该授人以渔    因为你的鱼总会减少

love_cq

qijun0818 发表于 2018-6-24 18:01
(defun c:tt(/ ss i lst)
        (setq
                ss(ssget '((0 . "*LWPOLYLINE,POLYLINE")(90 . 4)))

很好的资料，感谢大神的分享。
我试验了下，目前该程序只能选择2个矩形然后进行中心线相连；能否改进下，框选多个矩形然后逐个进行中心线相连呢？