获取与用户的距离

flowerrobot · 发表于 2022-7-6 07:49:06

G'day伙计们

我无法获得与用户的距离。我试着把三件事考虑进去。

1、用户将在模型空间中输入2个点
2.用户将在纸张空间中输入2个点
3、用户将输入值。

基本上尝试复制“Getdist”功能，使其在纸张空间中工作。

附件是我的代码。

copy

(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)
        )
)
)

BlackBox · 发表于 2022-7-6 08:16:49

我以前从未见过有人像这样发布代码。。。GETDIST是否有一个我没有注意到的缺陷，会促使您进行所有这些额外的工作？

即使您不想使用GETDIST，当然一个带有and和测试表达式的if语句调用GETPOINT也应该起作用，不是吗？

flowerrobot · 发表于 2022-7-6 08:26:19

是的，“GetDist”完全符合我的要求，但是当通过视图端口选择两个点（对象捕捉到实体）时，它不会返回“正确”的长度。就像“Dist”一样。
是的，两个“GetPoint”后跟一个“GetDist”就可以做到这一点，这就是我在这里看到的，但是我也会检查用户是否在纸空间中，选择了两个链接到对象的点，并将它们转换为模型点。

你说“我以前从未见过有人像这样发布代码”是什么意思？是写得很差还是。。。？

BlackBox · 发表于 2022-7-6 08:46:21

由于GETPOINT返回nil或有效点，可能我不理解在您发布的代码中使用VL-CATCH-ALL-APPLY和VL-CATCH-ALL-ERROR-P。

在我有限的经验中，GETPOINT是所有需要的。请从中获取您想要的信息，因为这是为了帮助您，而不是批评您的代码编写。

干杯

flowerrobot · 发表于 2022-7-6 09:03:53

我之所以包含错误处理，是因为如果用户按esc键，我不希望lisp程序关闭。在大多数应用程序中，我想回到对话框。
我认为最好的方法是捕捉库函数中的所有内容，因为您不知道函数的外部在做什么。

[编程交流] 获取与用户的距离

发表回复

精选推荐