请问entmake函数生成单行文字必须设置的dxf组码有哪些
我采用下面代码无法生成单行文字，命令行返回nil，应该是缺少必要的组码，请问还缺少哪些。(entmake (list '(0 . "TEXT") '(1 . "abc") '(10 0 0 0)))
本帖最后由 llsheng_73 于 2025-1-8 17:45 编辑
绝大多数图元，可以通过自己先搞一个，entget它的DXF数据后，不停测试去掉某个组能不能entmake出来，最后可以留下必要组码，少数图元不行
entmake创建图元必要条件(慢慢更新)
http://bbs.mjtd.com/forum.php?mo ... 2482&fromuid=202795
(出处: 明经CAD社区)
(defun NecDXF(e / s en a);;;图元必要组码
(foreach x(setq en(entget e))
(if(setq e(entmakeX(setq a(vl-remove x en))))
(setq s(cons e s)en a)))
(foreach x s(entdel x))
en)
(NECDXF(car(entsel)))=>((0 . "CIRCLE") (10 1092.79 1948.12 0.0) (40 . 500.0))
(NECDXF(car(entsel)))=>((0 . "TEXT") (10 2382.15 2263.81 0.0) (40 . 2.5) (1 . "3"))
试出来了，原来少了一个字高(40 . 300) llsheng_73 发表于 2025-1-8 17:44
绝大多数图元，可以通过自己先搞一个，entget它的DXF数据后，不停测试去掉某个组能不能entmake出来，最后可 ...
感谢大神!!! 这种用 vla-Add 就好，对象方式简单明了。 学习一下
页:
[1]