lisp - 在闭合多段线上绘制多边形

Question

我试着用我拙劣的英语水平很好地描述这个问题:
我在我的 dwg 文件上关闭了 block ，这些 block 由许多连接在一起的多段线组成，但它们不是一体的(集成的)，我想要的只是一个 lisp 在这个 block 上绘制一个多边形并创建一个一体的堵塞。有什么办法吗？谢谢

Answer 1

假设:

• 当你说“加入”时，你的意思是他们的末端是接触的，
• 当您说“一体式”时，您实际上指的是 AutoCAD 意义上的“连接”，

然后尝试以下操作:

(defun convert_block_to_polyline (block / old_entlast new_entlast curr polylines_set)
  (setq old_entlast (entlast))
  (command "explode" block)
  (setq new_entlast (entlast))
  (setq
    curr (entnext old_entlast)
    polylines_set (ssadd)
    )
  (while (entnext curr)
    (ssadd curr polylines_set)
    (setq curr (entnext curr))
    )
  (command "join" (entlast) polylines_set "")
  (princ)
)

这个函数假定:

• 您不想保留原始 block ，如果您这样做，那么在分解之前创建一个副本并在之后将其粘贴到同一位置是一个简单的问题。
• 该 block 仅由可以包含在连接命令中的对象(直线、多段线等)组成。