entmake文本-不工作

drafter007 · 发表于 2022-7-6 07:49:38

这个坏了


 (foreach e elist
   (entmakex
     (list
   (cons 0 "TEXT")
   (cons 100 "AcDbText")
   (cons 10 (cadr e))
   (cons 40 INALT)
   (cons 1 (rtos (car e) 2 0))
   (if (< (caddr (cadr e)) 0.0)
     (cons 62 4)) 
   (cons 100 "AcDbText")
     ) 
   ) 
)

这一个正在工作

copy


 (foreach e elist
   (entmakex
     (list
   (cons 0 "TEXT")
   (cons 100 "AcDbText")
   (cons 10 (cadr e))
   (cons 40 INALT)
   (cons 1 (rtos (car e) 2 0))
   (cons 100 "AcDbText")
     ) 
   ) 
)

发生了什么？如何在entmake中设置颜色？如果有什么问题？

MSasu · 发表于 2022-7-6 07:54:36

代码可能会失败，因为当条件不满足时，IF测试将返回（并附加）nil。
对于第二个问题，颜色存储为DXF代码62下的整数；如果此代码不存在，则颜色被视为“ByLayer”。

Tharwat · 发表于 2022-7-6 07:57:13

你能发布变量列表（elist）吗？

drafter007 · 发表于 2022-7-6 08:03:01

((10 (21.4577 22886.2 20.0) ) (9 (379.39 22984.3 15.4)
) (8 (-61.2626 23323.3 11. ) (7
（329.486 23185.6 0.0））（6（279.582 22881.0 0.0）名称：7e6d9df0>）（5（252.479 23073.8 0.0））（4（73.0826
23034.2 0.0））（3（113.505 22821.4 0.0）7e6d9e00>）（2（169.449 23147.7-10.0））（1（505.011
23331.8 -24.7) ))

这是10个实体的elist示例