获取与用户的距离
G'day伙计们我无法获得与用户的距离。我试着把三件事考虑进去。
1、用户将在模型空间中输入2个点
2.用户将在纸张空间中输入2个点
3、用户将输入值。
基本上尝试复制“Getdist”功能，使其在纸张空间中工作。
附件是我的代码。
(defun Sub_GetDistance (Str_Msg / Pt_Point1 Pt_Point2)
(if
(and
(not (vl-catch-all-error-p (setq Pt_Point1 (vl-catch-all-apply 'getpoint (list Str_Msg)))))
Pt_Point1
(not (vl-catch-all-error-p (setq Pt_Point2 (vl-catch-all-apply 'getpoint (list Pt_Point1 "\nSelect second point :")))))
Pt_Point2
)
(if
(and ;If all true measuring item in paper space through v port
(zerop (getvar "tilemode"))
(not (zerop (getvar "cvport")))
(setq Pt_Point1 (trans Pt_Point1 2 0)
Pt_Point2 (trans Pt_Point2 2 0))
(equal Pt_Point1 (osnap Pt_Point1 "_End,_Int,_Qua,_Cen,_Mid,_Node"))
(equal Pt_Point2 (osnap Pt_Point2 "_End,_Int,_Qua,_Cen,_Mid,_Node"))
)
(distance (trans Pt_Point1 3 2)(trans Pt_Point2 3 2)) ;This only uses the latest view port created
(distance Pt_Point1 Pt_Point2)
)
)
) 我以前从未见过有人像这样发布代码。。。GETDIST是否有一个我没有注意到的缺陷，会促使您进行所有这些额外的工作？
即使您不想使用GETDIST，当然一个带有and和测试表达式的if语句调用GETPOINT也应该起作用，不是吗？ 是的，“GetDist”完全符合我的要求，但是当通过视图端口选择两个点（对象捕捉到实体）时，它不会返回“正确”的长度。就像“Dist”一样。
是的，两个“GetPoint”后跟一个“GetDist”就可以做到这一点，这就是我在这里看到的，但是我也会检查用户是否在纸空间中，选择了两个链接到对象的点，并将它们转换为模型点。
你说“我以前从未见过有人像这样发布代码”是什么意思？是写得很差还是。。。？ 由于GETPOINT返回nil或有效点，可能我不理解在您发布的代码中使用VL-CATCH-ALL-APPLY和VL-CATCH-ALL-ERROR-P。
在我有限的经验中，GETPOINT是所有需要的。请从中获取您想要的信息，因为这是为了帮助您，而不是批评您的代码编写。
干杯 我之所以包含错误处理，是因为如果用户按esc键，我不希望lisp程序关闭。在大多数应用程序中，我想回到对话框。
我认为最好的方法是捕捉库函数中的所有内容，因为您不知道函数的外部在做什么。
页:
[1]