664571221 发表于 2018-6-24 17:26:59

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

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

qijun0818 发表于 2018-6-24 18:01:42

(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 发表于 2018-6-25 22:52:08

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


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

love_cq 发表于 2020-12-16 18:01:09

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


很好的资料，感谢大神的分享。
我试验了下，目前该程序只能选择2个矩形然后进行中心线相连；能否改进下，框选多个矩形然后逐个进行中心线相连呢？
页: [1]
查看完整版本: 求大神看看两个矩形中心点连线