领导Lisp程序

au-s · 发表于 2022-7-6 10:21:08

你好

我有Lisp程序的这一部分，可以成为领导者。
我使用ACAD 2008/2010。它对我来说是可行的，但当我在办公室的另一个桌面上执行它时，它就不起作用了。
它的行为类似于，它请求lisp中的三个点，但在即将输入文本时停止。
为什么它对我有效，但对他无效。我们使用相同的台式机，相同的ACAD。真奇怪。设置中是否有一些选项可以阻止领导者成功执行？

代码如下：

copy

(defun leader(/ p1 p2 p3)
 (setq p1 (getpoint "\nstart point: ")
p2 (getpoint p1 "\nsecond point: ")
 )
 (grdraw p1 p2 1 1)
 (setq p3 (getpoint p2 "\ntext: "))
 (command "_leader" p1 p2 p3 "" "" "" "")
 (redraw)
)

Michaels · 发表于 2022-7-6 10:25:36

您最好将引线的设置更改为2点，或者更好地将其包含在代码中，以使其在所有其他Cad引线设置中正常运行。

祝你好运

BlackBox · 发表于 2022-7-6 10:33:34

根据您发布的代码，这*应该*就是您所需要的：

copy


(defun c:FOO (/ p1 p2)
 (if (setq p1 (getpoint "\n  >>  Specify Start Point: "))
   (progn
     (setq p2 (getpoint p1 "\n  >>  Specify End Point: "))
     (command "._leader" p1 p2 "" pause)))
 (princ))

Michaels · 发表于 2022-7-6 10:35:45

干得好Renderman。

但例程的名称是cad的标准命令之一。加载例程时，cad将从cad的命令开始
根据我前面提到的，该例程还将首先考虑Cad的命令设置，因此如果Qleader的点数被切换到无限制
因此qleader根本不会停止插入文本。

如果你想用的话，这是我的。

copy


(defun c:LEAD (/ p1 p2)
 (if (and (setq p1 (getpoint "\n Specify Start Point: "))
          (setq p2 (getpoint p1 "\n Specify End Point: "))
   )
 (command "._leader" p1 p2 "" pause))
 (princ)
 )

谢谢

BlackBox · 发表于 2022-7-6 10:39:16

谢谢你指出这一点，这是我的疏忽。代码已在我之前的帖子中更正。

Lee Mac · 发表于 2022-7-6 10:42:58

不确定您是否需要文本，但我的条目：

copy


(defun c:test ( / p1 p2 ) (vl-load-com)
 (if (and (setq p1 (getpoint "\nPick First Point: "))
          (setq p2 (getpoint "\nPick Next Point: " p1))
     )
   (vlax-invoke
     (vlax-get (vla-get-ActiveDocument (vlax-get-acad-object))
       (if (= 1 (getvar 'CVPORT)) 'PaperSpace 'ModelSpace)
     )
     'AddMLeader (append p1 p2) 0
   )
 )
 (princ)
)

stevesfr · 发表于 2022-7-6 10:49:21

李，在这里，领导者的“尾巴”总是向左，即使领导者的坡度向右。
我想我把事情搞砸了，还是程序中有错误？
史蒂夫

Lee Mac · 发表于 2022-7-6 10:54:46

这是一个非常简单的代码Steve，只是用来创建leader对象的。如果用户要走这条路线，他们必须修改引线以添加文本/更改狗腿方向等。我可以添加更多代码，但我会先看看OP希望以哪种方式继续。

irneb · 发表于 2022-7-6 10:57:46

嗯，李。。。这将创建一个多重引线。OP想要一个老式的QLeader。并不是说我不喜欢MLEADER，而是有些人想要旧的类型，因为有些功能不容易使用MLEADER。如果要通过vla AddLeader创建引线实体，首先需要创建多行文字实体，然后将其用作AddLeader方法的参数。或者随后将其添加到引线的注释属性中。

Lee Mac · 发表于 2022-7-6 11:01:04

哦，对了，那就忽略我的帖子吧

[编程交流] 领导Lisp程序

发表回复

精选推荐