文字按钮Lisp

matthewrussell · 发表于 2022-7-6 17:41:23

我找到了原因。我必须将lisp中使用的textstyle设置为当前的textstyle。然而，这让我感到困惑，因为代码本身有（setvar“TEXTSTYLE”BMD isocp），这是为了设置命令的样式。

matthewrussell · 发表于 2022-7-6 17:44:25

我想出来了。所以它工作正常。剩下的唯一问题是。有没有可能这样做，如果你想在中输入更多的文本，你必须再次运行该命令。

因此，在选定的点中键入文本后，完成。而不是要求更多的文本。不确定要在编码中更改什么才能做到这一点。

出于某种原因，它还会将文本放在文本框的底部。它是通过在实际测试上方放置空行来实现的。

这只是我同事的反馈。他们对你写的代码很满意

干杯

jammie · 发表于 2022-7-6 17:46:51

也许这会有帮助，一种获取用户输入的替代方法，可以合并到上述代码中

copy


(command "mtext" pause  "H" "3.5" pause "");<create an empty mtext
(command "_mtedit" (entlast))              ;<edit  mtext, when completed the function will continue

干杯

Lee Mac · 发表于 2022-7-6 17:51:31

也许像这样：

[code]---2.5文本---（定义c:25text（/*error*varLst oldVars pt）；--错误陷阱---（defun*Error*（msg）（mapcar'setvar varLst oldVars）（if（=msg“”）（princ“\n函数完成。”）（普林斯“\n按了错误或Esc…”）；_结束if（princ））；结束*错误*（setq varLst（list“CMDECHO”“CLAYER”“TEXTSTYLE”“TEXTSIZE”）oldVars（mapcar'getvar varLst））；结束setq；--错误陷阱---（setvar“cmdecho”0）（if（not（tblsearch“layer”“25T”））（命令“-layer”“m”“25T”“”）（setvar“clayer”“25T”）；_结束if（setvar“textstyle”“BMD isocp”）（setvar“textsize”2.5）（while（/=（setq pt（getpoint”\n为文本指定点：））nil）（命令“-mtext“pt pause”）；