文本中的变量

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

大家好，

首先，新年快乐。

其次，我在插入带有变量的文本时遇到了问题，
但是我无法得到文本之间的变量。

这是我的密码。
问题出在这条线上：
当T1是A，T2是B时，我想做的是把文本写成“doorsnede A-B”。

我怎样才能做到这一点？

很抱歉收到荷兰语文本。

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

这

copy


(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

我以前的代码将取代您在例程中执行的所有代码，只需完成一些修改，无论您当前的图层名称或文本样式是什么。。
更换这些。。。。

copy

。。。。

copy

注意，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

copy

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

[编程交流] 文本中的变量

发表回复

精选推荐