社区 › Auto Lisp › 文本中的变量

dirkvandonkelaa 发表于 2022-7-6 08:28:38

文本中的变量

大家好，
 
首先，新年快乐。
 
其次，我在插入带有变量的文本时遇到了问题，
但是我无法得到文本之间的变量。
 
这是我的密码。
问题出在这条线上：
当T1是A，T2是B时，我想做的是把文本写成“doorsnede A-B”。
 
我怎样才能做到这一点？
 
很抱歉收到荷兰语文本。

Tharwat 发表于 2022-7-6 08:36:42

这
 

(command "text" "J" "BL" pause "" 0 (strcat "doorsnede " T1 "-" T2) )

dirkvandonkelaa 发表于 2022-7-6 08:45:05

谢谢Tharwat，
 
成功了，你真的帮了我。

Tharwat 发表于 2022-7-6 08:53:03

 
不客气。。
 
考虑这个例子，它比在命令调用之前和之后多次使用setvars在entmake函数中包含Textstyle和层名称要好得多。
 
如果你遇到任何问题，尽管问。
 
塔瓦特

dirkvandonkelaa 发表于 2022-7-6 09:04:11

嗨，塔瓦，
 
替换setvars的代码很好。
也许我错了，但我想将层更改回上一层，而您的代码在不将其更改回上一层的情况下设置层。
由于我是LISP编码的初学者，这是更改层的最简单方法。也许你有更好的建议。

Tharwat 发表于 2022-7-6 09:06:45

我以前的代码将取代您在例程中执行的所有代码，只需完成一些修改，无论您当前的图层名称或文本样式是什么。。
更换这些。。。。
4。。。。
 
5
 
注意，p是相对于UCS定义的，DXF组10和11需要相对于OCS（对象坐标系）定义的点。如果WCS平面=UCS平面，则OCS=WCS，但是，如果不是，则需要将点转换为OCS。

Lee Mac 发表于 2022-7-6 09:13:46

Tharwat 发表于 2022-7-6 09:26:09

Thanks Lee , Codes updated .

Lee Mac 发表于 2022-7-6 09:33:09

(setq p(getpoint "\n Specify Text location :"))...(cons 10 p) (cons 11 (trans p 0 1))
 
Note that p is defined relative to the UCS, and DXF Groups 10 & 11 require points defined relative to the OCS (Object Coordinate System). If the WCS plane = UCS plane then the OCS = WCS, however, if not, the points will need to be transformed to the OCS.

查看完整版本: 文本中的变量