求(entmake (list '(0 . "MLINE")...的基本条件

Dea25 · 发表于 2022-7-26 12:10:00

各们大神：求(entmake (list '(0 . "MLINE")...的最基本条件

czb203 · 发表于 2022-7-26 14:37:00

这个是啥东西，请大神求解～

fangmin723 · 发表于 2022-7-26 15:48:00

双线

自贡黄明儒 · 发表于 2022-7-26 15:53:00

我在画型钢时，考虑过用Mline来画，但Mline设置复杂放弃了。可以看一下字典。

llsheng_73 · 发表于 2022-7-26 22:07:00

参考这个帖子26楼
entmake创建图元必要条件(慢慢更新)
(出处: 乐筑天下CAD社区)
然后我改写了一下它，实际上和26楼的代码完全一样，只是写法习惯不同

copy

(defun MinDxf(ename / en)
  (vl-every(function(lambda(x / e a)
                      (if(setq a(vl-remove x en)e(entmakex a))
                        (setq e(entdel e)en a)t)))
           (setq en(entget ename)))
  en)