请问entmake函数生成单行文字必须设置的dxf组码有哪些

完美

我采用下面代码无法生成单行文字，命令行返回nil，应该是缺少必要的组码，请问还缺少哪些。

(entmake (list '(0 . "TEXT") '(1 . "abc") '(10 0 0 0)))

llsheng_73

绝大多数图元，可以通过自己先搞一个，entget它的DXF数据后，不停测试去掉某个组能不能entmake出来，最后可以留下必要组码，少数图元不行
entmake创建图元必要条件(慢慢更新)
http://bbs.mjtd.com/forum.php?mo ... 2482&fromuid=202795
(出处: 明经CAD社区)

1. (defun NecDXF(e / s en a);;;图元必要组码
   
2.   (foreach x(setq en(entget e))
   
3.     (if(setq e(entmakeX(setq a(vl-remove x en))))
   
4.       (setq s(cons e s)en a)))
   
5.   (foreach x s(entdel x))
   
6.   en)

(defun NecDXF(e / s en a);;;图元必要组码<br />   (foreach x(setq en(entget e))<br />     (if(setq e(entmakeX(setq a(vl-remove x en))))<br />       (setq s(cons e s)en a)))<br />   (foreach x s(entdel x))<br />   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出来，最后可 ...

感谢大神!!!

e2002

这种用 vla-Add 就好，对象方式简单明了。

peter1991

学习一下