2如何使用on测量2个点

NoelStalker · 发表于 2022-7-6 17:17:03

大家好，我通过线程查看，没有看到任何关于此的内容。在我工作的最后一个地方，我曾经能够键入“ERA”，它的工作方式与“距离”命令类似，只是它为第一个点启用了“最近的”OSNAP，然后为第二个点禁用并启用了“垂直”。我也可以输入“EEE”，它会为这两个点做端点或“ECC”，它会为这两个点寻找中心点。“ECA”表示中心到垂线等。

有没有Lisp程序的地方，我可以用来做这件事。我不喜欢先键入“DIST”，然后键入“NEA”，再键入“PER”。我更不喜欢使用OSNAP。我也不喜欢使用鼠标中键。我真的很喜欢能够键入一个命令并选择我的观点。

Lee Mac · 发表于 2022-7-6 17:33:55

copy

(defun c:era ()
   (command "_dist"
       "_nea"
       pause
       "_per"
       pause
   ) ; end dist
   (princ)
)

copy

(defun c:eee ()
   (command "_dist"
       "_end"
       pause
       "_end"
       pause
   ) ; end dist
   (princ)
)

copy


(defun c:ecc ()
   (command "_dist"
       "_mid"
       pause
       "_mid"
       pause
   ) ; end dist
   (princ)
)

copy


(defun c:eca ()
   (command "_dist"
       "_mid"
       pause
       "_per"
       pause
   ) ; end dist
   (princ)
)

希望这有帮助！

CAB · 发表于 2022-7-6 17:46:21

要查看命令行上的距离，请尝试以下操作：

copy

(defun c:ERA()
 (command "._dist" "_nea" pause "_per")
)
(defun c:EEE()
 (command "._dist" "_end" pause "_end")
)

NoelStalker · 发表于 2022-7-6 17:52:09

李-谢谢你的回复！它可以自动加载我想要的osnap，但在命令结束后不会给我距离值。

NoelStalker · 发表于 2022-7-6 18:05:15

出租车-呜呼！这是可行的。这太棒了。我知道如何为任意数量的组合定义函数。非常感谢你。

CAB · 发表于 2022-7-6 18:15:08

不客气。
李的功能可以更改为：

copy

(defun c:era ()
  (command "_dist" "_nea" pause "_per" pause)
  (print (getvar "distance"))
  (princ)
)

Lee Mac · 发表于 2022-7-6 18:19:10

很抱歉，我很快就把它们打出来了，忘了包括显示距离的线！如果您在命令行历史记录中较早地滚动，但只是按照Charles指出的修改代码以改进它，则会显示此消息。

[编程交流] 2如何使用on测量2个点

发表回复

精选推荐