不使用变量的多重引线

ksperopoulos · 发表于 2022-7-5 23:59:18

我试图在用户为引线选择两点后，将文本（存储在变量中）插入到多重引线中。如果我使用“getpoint”将用户输入存储在变量中，我可以获得要插入的文本。但我希望能够让用户看到引线的位置，就像使用默认的多重引线功能时一样。当使用默认方法时，我尝试使用“暂停”来允许用户拾取他们的点，文本将不会插入第二个拾取点之后。我做错了什么？

copy

(command "mleader" pause pause spl)

Tharwat · 发表于 2022-7-6 00:04:56

您可能有超过两个最大引线点（只是猜测）

Lee Mac · 发表于 2022-7-6 00:12:32

从命令行输出来看，似乎您已经本地化了“暂停”符号，从而使其值为零。

尝试：

copy

(command "_.mleader" "\" "\" spl)

ksperopoulos · 发表于 2022-7-6 00:16:40

@Tharwat-使用的多重引线样式设置为2点。

@李-本地化做什么？

Lee Mac · 发表于 2022-7-6 00:21:20

本地化变量

ksperopoulos · 发表于 2022-7-6 00:24:45

这是全部代码：

copy

(setq obj (entget (car (entsel "\nSelect Object"))))
(setq oln (cdr (assoc 8 obj)))
(setq spl (cdr (nth 17 obj)))
(command "clayer" (strcat oln "-IDEN"))
(command "mleader" pause pause spl)

我不确定我怎么会无意中定位了一个变量？变量参数中没有调用符号，也没有defun语句。

ksperopoulos · 发表于 2022-7-6 00:28:50

如果我使用这段代码，我可以填充文本，但在我完成函数之前，我无法直观地看到引线要去哪里。

copy

(setq obj (entget (car (entsel "\nSelect Object"))))
(setq oln (cdr (assoc 8 obj)))
(setq spl (cdr (nth 17 obj)))
(setq pt1 (getpoint))
(setq pt2 (getpoint))
(command "clayer" (strcat oln "-IDEN"))
(command "mleader" pt1 pt2 spl)