删除了离题帖子。请让我们试着更专业一点。 偶尔我需要一个没有文字的箭头。我只需执行qleader，当它要求我键入第一行（或输入多行文字编辑器）时，我只需点击escape，或者如果你允许它打开多行文字编辑，然后退出，它会给你一个漂亮的带狗腿的引线。
我不确定这是否是你想要的，但我想无论如何我还是要说出来。 这对我来说很有效。因为我已经将ESC键编程到了鼠标上的拇指按钮上。我所需要做的就是使用qleader命令，然后单击2次或3次引线点，然后用拇指按ESC键。非常快速和简单。只是另一个想法。
如果您感兴趣，这应该可以：
(defun c:test (/ #Point1 #Point2 #Point3)
(and (setq #Point1 (getpoint "\nSpecify first leader point: "))
(setq #Point2 (getpoint #Point1 "\nSpecify next point: "))
(not (grdraw #Point1 #Point2 7))
(or (setq #Point3 (getpoint #Point2 "\nSpecify next point: "))
(not (setq #Point3 nil))
) ;_ or
(not (redraw))
(if #Point3
(command "_.qleader" "_non" #Point1 "_non" #Point2 "_non" #Point3 nil)
(command "_.qleader" "_non" #Point1 "_non" #Point2 nil)
) ;_ if
) ;_ and
(princ)
) ;_ defun
不错，艾伦，我喜欢 哈哈，谢谢。这很快。
有时快速的是最好的
多么真实。这可能是我写的第一个宏，我每天都会多次使用它。
;MAKE A LAYER
(defun c:LM ()
(command "-layer" "make" )
(princ))
自从我知道如何写一个以来，它一直在我的创业Lisp程序。
我们将其称为“Es un rapidin”，“这是一个快速的”，但我们通常将其应用于其他情况（s.E.x.实际上：s哈哈哈）
好我检查了quickie，但我仍然更喜欢我自己的修改版本，以避免在第二段上按F8表示正交。我认为你实际上可以添加它，（我们知道，你可以做任何事情），但这只会给我们另一个选择来做同样的事情。
在其他方面，我们的总部发布了一种CAD报纸，并建议我们推出自己的版本。。。我会这么做的，我会提到你们俩和罗伯特·贝尔，感谢你们的贡献。我会花一个月的时间做这件事。。如果工作量允许的话，我会检查你们之前的帖子，看看我们是否可以从你们那里获得更多信息，将其整合到我们的命令中，并在报纸上发表。。。我会在文件发布时或发布前几周发布。 在第三个拾取点上使用正交模式的快捷键：
(defun c:test (/ *error* #OldOrthomode #Point1 #Point2 #Point3)
(defun *error* (msg)
(and #OldOrthomode (setvar "orthomode" #OldOrthomode))
) ;_ defun
(setq #OldOrthomode (getvar "orthomode"))
(setvar "orthomode" 0)
(and (setq #Point1 (getpoint "\nSpecify first leader point: "))
(setq #Point2 (getpoint #Point1 "\nSpecify next point: "))
(not (grdraw #Point1 #Point2 7))
(setvar "orthomode" 1)
(or (setq #Point3 (getpoint #Point2 "\nSpecify next point: "))
(not (setq #Point3 nil))
) ;_ or
(not (redraw))
(if #Point3
(command "_.qleader" "_non" #Point1 "_non" #Point2 "_non" #Point3 nil)
(command "_.qleader" "_non" #Point1 "_non" #Point2 nil)
) ;_ if
) ;_ and
(and #OldOrthomode (setvar "orthomode" #OldOrthomode))
(princ)
) ;_ defun
页:
1
[2]