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

不使用变量的多重引线

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

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

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

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

从命令行输出来看，似乎您已经本地化了“暂停”符号，从而使其值为零。
 
尝试：
(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

这是全部代码：
 
(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

如果我使用这段代码，我可以填充文本，但在我完成函数之前，我无法直观地看到引线要去哪里。
 
(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)

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

你试过我先前的建议了吗？

ksperopoulos 发表于 2022-7-6 00:38:36

是的，但结果是一样的。

ksperopoulos 发表于 2022-7-6 00:42:07

我的代码或命令本身是否有问题，无法暂停用户输入，然后插入文本？
页: [1] 2
查看完整版本: 不使用变量的多重引线