嗨，在L区需要点帮助

Saqib_theleo · 发表于 2022-7-6 08:07:54

大家好，
我有一个区域的Lisp程序，其中放置了区域S.F.（不是我的，我可能是从这里得到的）。它可以在拾取的点上添加区域作为文本。我想这个Lisp程序，以添加一个领导人，这将需要两次点击，一个在区域空间内的其他地方放置面积和增加了一个领导人也面积文本。我做不到，因为我对Lisp了解不多。
如果有人能做到，请帮忙，我会很感激的。
再见。
地区lsp

pBe · 发表于 2022-7-6 08:20:35

您是否以任何方式修改了此lisp代码？

它似乎产生了一个坏结果。平方英寸等于平方英尺。

我不相信这是原作者的意图。

我只是说。。。。

Saqib_theleo · 发表于 2022-7-6 08:26:28

你好，pBe，
不，我没有修改或编辑以对其进行更改。我下载了这个，它给了我想要的正确区域。为什么会有不好的结果。哪里出了问题。
可以通过询问两个拾取点来将引线添加到文本中吗。
谢谢

pBe · 发表于 2022-7-6 08:31:34

我想这还不算现在的Lunits。

是的，可以添加引线。但是我不想再修改原始lisp了。
也许其他人会帮你。

提示：

copy

(command "leader" pause pause pause "" "" "n")

Saqib_theleo · 发表于 2022-7-6 08:39:50

你好，pBe，
但是，我应该将其放在Lisp中的什么位置，以及如何将引线连接到文本，以便将文本放置在引线末端的最后一个拾取点上。
希望你能理解，如果你能把它写进Lisp程序的话，我会很感激的。
谢谢

pBe · 发表于 2022-7-6 08:47:32

哦，好吧。。。。[免责声明：………布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉布拉

copy

(defun _Leader ()
     (command "leader" pause pause pause "" "" "n") T)

copy

.....
(if   [color=blue](and (_leader)[/color]
               (setq pt (getpoint "\nPick text placement: "))[color=blue])[/color]
......

希望您知道文本对齐是居中的。

干杯

Saqib_theleo · 发表于 2022-7-6 08:52:33

你好，pBe，
苏里无法理解这一点。我已经说过我不知道Lisp。但是谢谢你的帮助。我期待着有人能帮助我。
或者，如果有人有更好的区域命令，并有一个引线来文本。
谢谢

pBe · 发表于 2022-7-6 08:59:51

这太不幸了，萨奇布。。但它就在我的帖子上。这将是一个很好的时间来学习如何做到这一点。

至少试着找出这条线应该走到哪里。

Saqib_theleo · 发表于 2022-7-6 09:05:02

谢谢pBe的鼓励，我会尽量做到这一点，并张贴我是如何做到的。如果有什么不对劲，希望你能告诉我。

Saqib_theleo · 发表于 2022-7-6 09:13:05

我试过了，但不知道这个代码应该放在哪里。当我不知道Lisp的基本知识时，Lisp对我来说太长了。

[编程交流] 嗨，在L区需要点帮助

发表回复

精选推荐