我们如何连接选定的bl

hosyn · 发表于 2022-7-5 23:39:50

所以thnx给所有特别的alanjet
这个Lisp程序就是我的想法。有没有一种方法可以用鼠标拖动两个以上的块（没有一个一个选择）。

alanjt · 发表于 2022-7-5 23:40:27

(defun c:l2b (/ ss)
 (if (and (setq ss (ssget '((0 . "INSERT")))) (eq (sslength ss) 2))
   (entmakex (list '(0 . "LWPOLYLINE")
                   '(100 . "AcDbEntity")
                   '(100 . "AcDbPolyline")
                   '(90 . 2)
                   (assoc 10 (entget (ssname ss 0)))
                   (assoc 10 (entget (ssname ss 1)))
                   (assoc 210 (entget (ssname ss 1)))
             )
   )
 )
 (princ)
)