如何在autolisp中使用DTEXT

dbroada · 发表于 2022-7-6 09:38:22

我们的一个客户的规格与此类似。我相信写这本书的人都读过AutoCAD手册，上面说“你最多可以有256层和颜色”，所以他们决定使用这本书。它（几乎）是水平线

fathihvac · 发表于 2022-7-6 09:39:40

我不太明白
我的目标是一次插入两个文本text1和text2，但有两个不同的层layername1 layername2。
谢谢：）

BlackBox · 发表于 2022-7-6 09:45:27

抱歉造成混淆，我接受不相关切线的责任，fathihvac。
</blockquote>

MSasu · 发表于 2022-7-6 09:45:57

我会这样写：

copy

(foreach TextLabel (list (list Text1st Layer1st) (list Text2nd Layer2nd) (list Text3rd Layer3rd))
(command "_TEXT") (if InsertionPoint (setq InsertionPoint (command InsertionPoint TextHeight TextAngle)) (command ""))
(command (car TextLabel) "_CHPROP" (entlast) "" "_LA" (cadr TextLabel) "")
)

当做
米尔恰

dbroada · 发表于 2022-7-6 09:49:39

一些客户会做任何事情来延迟付款！只有在提交和拒绝cad文件后，我们的销售人员才将该标准传递给我们（显然不在预算内）。要重新制定他们的标准并不容易，除了这个新的设备位，它允许我们很快重新提交一些非常黄色的图纸（我认为我分解了所有内容，并且区块有不同的标准小节）。

Lt Dan's l · 发表于 2022-7-6 09:55:03

对于Renderman

copy

(defun rendermanrequest ( text insertionpoint layer color height )
 (entmakex
   (list
     (cons 0 "text")
     (cons 1 text);text content
     (cons 7 "Romans");style
     (cons 8 layer)
     (cons 62 color)
     (cons 10 insertionpoint)
     (cons 72 1)
     (cons 73 2)
     (cons 40 height)
     (cons 11 insertionpoint)
   )
 )
)
(
 (lambda ( co )
   (while (>= 256 (setq co (1+ co)))
     (rendermanrequest (strcat "Color" (itoa co)) (getvar 'viewctr) "0" co 4.)
   )
 )
 0
)

这可能不会让你感到困惑。。？

copy

 
(defun text ( text insertionpoint layer height )
 (entmakex
   (list
     (cons 0 "text")
     (cons 1 text);text content
     (cons 7 "Romans");style
     (cons 8 layer)
     (cons 10 insertionpoint)
     (cons 72 1)
     (cons 73 2)
     (cons 40 height)
     (cons 11 insertionpoint)
   )
 )
)
(foreach x 
 (list 
   (list "text #1" (list 0. 4. 0.) "0" 3.)
   (list "text #2" (list 0. 0. 0.) "Defpoints" 3.)
 )
 (apply (function text) x)
)