社区 › Auto Lisp › 如何在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

 
我会这样写：
 
(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
 
(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
)
 
 
这可能不会让你感到困惑。。？

(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)
)

fathihvac 发表于 2022-7-6 09:58:07

谢谢msasu，这对我很有效。
谢谢大家，你们帮了我很多。

MSasu 发表于 2022-7-6 10:00:10

欢迎你！
 
当做
米尔恰

fathihvac 发表于 2022-7-6 10:04:19

你好
另一个问题是如何修改文本行之间的间距？

Lt Dan's l 发表于 2022-7-6 10:05:34

 
11
 
或查找极轴
 
（极点角度距离）

查看完整版本: 如何在autolisp中使用DTEXT