2如何使用on测量2个点
大家好，我通过线程查看，没有看到任何关于此的内容。在我工作的最后一个地方，我曾经能够键入“ERA”，它的工作方式与“距离”命令类似，只是它为第一个点启用了“最近的”OSNAP，然后为第二个点禁用并启用了“垂直”。我也可以输入“EEE”，它会为这两个点做端点或“ECC”，它会为这两个点寻找中心点。“ECA”表示中心到垂线等。有没有Lisp程序的地方，我可以用来做这件事。我不喜欢先键入“DIST”，然后键入“NEA”，再键入“PER”。我更不喜欢使用OSNAP。我也不喜欢使用鼠标中键。我真的很喜欢能够键入一个命令并选择我的观点。 (defun c:era ()
(command "_dist"
"_nea"
pause
"_per"
pause
) ; end dist
(princ)
)
(defun c:eee ()
(command "_dist"
"_end"
pause
"_end"
pause
) ; end dist
(princ)
)
(defun c:ecc ()
(command "_dist"
"_mid"
pause
"_mid"
pause
) ; end dist
(princ)
)
(defun c:eca ()
(command "_dist"
"_mid"
pause
"_per"
pause
) ; end dist
(princ)
)
希望这有帮助！ 要查看命令行上的距离，请尝试以下操作：
(defun c:ERA()
(command "._dist" "_nea" pause "_per")
)
(defun c:EEE()
(command "._dist" "_end" pause "_end")
) 李-谢谢你的回复！它可以自动加载我想要的osnap，但在命令结束后不会给我距离值。 出租车-呜呼！这是可行的。这太棒了。我知道如何为任意数量的组合定义函数。非常感谢你。 不客气。
李的功能可以更改为：
(defun c:era ()
(command "_dist" "_nea" pause "_per" pause)
(print (getvar "distance"))
(princ)
) 很抱歉，我很快就把它们打出来了，忘了包括显示距离的线！如果您在命令行历史记录中较早地滚动，但只是按照Charles指出的修改代码以改进它，则会显示此消息。
页:
[1]