领导人！！

Cad64 · 发表于 2022-7-6 12:19:48

删除了离题帖子。请让我们试着更专业一点。

alanjt · 发表于 2022-7-6 12:23:47

偶尔我需要一个没有文字的箭头。我只需执行qleader，当它要求我键入第一行（或输入多行文字编辑器）时，我只需点击escape，或者如果你允许它打开多行文字编辑，然后退出，它会给你一个漂亮的带狗腿的引线。
我不确定这是否是你想要的，但我想无论如何我还是要说出来。

JeepMaster · 发表于 2022-7-6 12:25:30

这对我来说很有效。因为我已经将ESC键编程到了鼠标上的拇指按钮上。我所需要做的就是使用qleader命令，然后单击2次或3次引线点，然后用拇指按ESC键。非常快速和简单。只是另一个想法。

alanjt · 发表于 2022-7-6 12:28:26

如果您感兴趣，这应该可以：

copy

(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

Lee Mac · 发表于 2022-7-6 12:30:58

不错，艾伦，我喜欢

alanjt · 发表于 2022-7-6 12:36:23

哈哈，谢谢。这很快。

Lee Mac · 发表于 2022-7-6 12:37:26

有时快速的是最好的

alanjt · 发表于 2022-7-6 12:41:42

多么真实。这可能是我写的第一个宏，我每天都会多次使用它。

copy

;MAKE A LAYER
(defun c:LM ()
(command "-layer" "make" )
(princ))

自从我知道如何写一个以来，它一直在我的创业Lisp程序。

gilsoto13 · 发表于 2022-7-6 12:43:28

我们将其称为“Es un rapidin”，“这是一个快速的”，但我们通常将其应用于其他情况（s.E.x.实际上：s哈哈哈）

好我检查了quickie，但我仍然更喜欢我自己的修改版本，以避免在第二段上按F8表示正交。我认为你实际上可以添加它，（我们知道，你可以做任何事情），但这只会给我们另一个选择来做同样的事情。

在其他方面，我们的总部发布了一种CAD报纸，并建议我们推出自己的版本。。。我会这么做的，我会提到你们俩和罗伯特·贝尔，感谢你们的贡献。我会花一个月的时间做这件事。。如果工作量允许的话，我会检查你们之前的帖子，看看我们是否可以从你们那里获得更多信息，将其整合到我们的命令中，并在报纸上发表。。。我会在文件发布时或发布前几周发布。

alanjt · 发表于 2022-7-6 12:48:17

在第三个拾取点上使用正交模式的快捷键：

copy

(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

[编程交流] 领导人！！

发表回复

精选推荐