社区 › Auto Lisp › 我们如何连接选定的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)
)

hosyn 发表于 2022-7-5 23:44:27

Thanx至alanjt
你的代码工作得很好。有没有办法用“ssget”选择块。？？我将“entget”改为“ssget”，但表现不好：（

BIGAL 发表于 2022-7-5 23:50:27

hosyn你的问题太简短了，你需要解释更多，Alan Jt代码正确地选择了被称为“插入”的块

hosyn 发表于 2022-7-5 23:54:51

bigal我想用鼠标同时选择两个块，我不想一个一个地选择它们。

hosyn 发表于 2022-7-5 23:57:50

在每个绘图中都有很多块，我必须用（直线或圆弧）连接它们，这比用鼠标拖动来选择它们要容易得多，而不是逐个选择。有没有修改上述代码的建议？？？

查看完整版本: 我们如何连接选定的bl