Lisp来放置文本-做什么

Tiger · 发表于 2022-7-6 00:31:36

谢谢大家，除了文本以90度角输入外，它就像一个符咒。是的，它应该移动文本，以便我可以将其放置在我想要的地方。有时有很多点靠得很近，所以我需要调整文本的位置，而且在开始时比之后容易多了。

是的，最初的代码有点不对劲，首先是因为它是AC的工作，对他来说非常习惯，然后重新编写，以适应我的设置。

Lee Mac · 发表于 2022-7-6 00:33:43

我认为文本在原始代码中设置为90度，所以在这一个中实现了它。。。但可能是Alan换了几个其他的系统变量来改变这个。。。

编辑：我对代码中将其设置为90度的部分进行了注释。它以弧度为单位，因此（/pi 2）-只需将其更改为0。

Tiger · 发表于 2022-7-6 00:37:48

el1是实际坐标还是文本位置的坐标？

可能

Lee Mac · 发表于 2022-7-6 00:39:41

el1和el2是单击点后正在移动的文本实体。看起来很奇怪，你会点击并指向它，然后离开它。就这样：眨眼：

eldon · 发表于 2022-7-6 00:42:22

非常感谢您的评论。它是10年前写的，当时我不得不在没有任何帮助的情况下完成它。我在没有设置任何Osnap的情况下工作，并根据需要使用F键（加速器键）设置Osnap。但是代码可以提供一些想法，即使只是为了说明什么是不应该做的

Tiger · 发表于 2022-7-6 00:44:54

嗯也许我没有在这里读到你的意思，但从我看到的地方看，原来的CR.lsp和你的CR.lsp的工作方式是一样的，点击一个点，点击你想要放置文本的地方。如果代码绕道而行，我不知道。

谢谢你的90度修正

Lee Mac · 发表于 2022-7-6 00:50:57

没问题，艾尔顿~我真的太小气了，喜欢看“漂亮”的代码

不，我只是想知道你希望文本在你点击的地方，仅此而已。

Tiger · 发表于 2022-7-6 00:52:16

啊，好吧，不，这就是为什么甜甜圈在那里-显示坐标是指什么点。问题中的要点不能用文本覆盖，文本也需要可见。

哦，我觉得自己在这里像个白痴——但我似乎无法将90度改为0度。。。。你介意把它按代码中的样子打出来吗？

编辑：如果我将其更改为

（setq t2
（生成文字（极坐标0（*lFac tSze））
（strcat“Y:（RTO（/（cadr pt）1000））
(/ 0 2.)
tSze tLay tSty）

indead的文本确实以正确的方式出现了——但现在他们又回到了彼此的巅峰状态！！

Lee Mac · 发表于 2022-7-6 00:57:04

对不起，老虎，

我是个白痴-我解释得不够。。我忘了你也需要更改偏移量

请参见此处：

[code]（defunc:cr（/[color=BLUE vl load com[color=BLUE b]）（[color=BLUE b]]setqdoc（vla get ActiveDocument（vlax get acad object]]（defun*错误*[color=RED b]（msg[color=RED b][color=RED=BLUE]ifdoc（vla ENDUDOMARK[color]doc（如果[color]ov b]（[color=BLUE mapcar][color=BLUE setvar][color]vl ov b]（if（not[color]wcmatch（[color=BLUE strcasemsg）[/color b]“*中断，*取消*，*退出*”([/b

Tiger · 发表于 2022-7-6 01:00:15

Thanks mate! Just the irony of it that two pages down into a problem, and the same problem occurs

[编程交流] Lisp来放置文本-做什么

发表回复

精选推荐