David Bethel 发表于 2022-7-6 08:29:01

基本测试可以是：
 

(equal (distance center_of_circle end_point_of_line ) radius_of_circle fuzz)

 
-大卫

Qonfire 发表于 2022-7-6 08:33:00

谢谢你的回复，我会查一下那句话是关于什么的。

Qonfire 发表于 2022-7-6 08:35:51

(while (< N1 (1- SSL))
    ; Get object 1, convert to VLA object type
    (setq aObj1 (ssname SS N1)
    aObj1 (vlax-ename->vla-object aObj1)
    N2 (1+ N1)) ;index for inner loop
    ; Inner loop, go through remaining objects
    (while (< N2 SSL)
      ; Get object 2, convert to VLA object
      (setq aObj2 (ssname SS N2)
      aObj2 (vlax-ename->vla-object aObj2)
      ; Find intersections of Objects
      iPts (vla-intersectwith aObj1
       aObj2 0)
 
我们在选择集objet1中得到第一个项目，然后在选择集中与下一个objet2共有。我的问题是，如果objet1和objet 4之间发生相交怎么办。

Qonfire 发表于 2022-7-6 08:38:17


(defun c:Test (/ l b) (vl-load-com)
(if (and (setq l (car (entsel "\n Select line :")))
          (setq b (car (entsel "\n Select Block :")))
   )
   (if (vlax-invoke (vlax-ename->vla-object l) 'Intersectwith
         (vlax-ename->vla-object b)
         AcExtendNone
       )
   (alert "Yes, The two objects are Intersected with each others")
   (alert "No, There are not Intersected at all ")
   )
)
(princ)
)

 
你对我的问题Lisp程序。这就像是先上大学，然后在同一天获得博士学位。谢谢

pBe 发表于 2022-7-6 08:40:39

Qonfire，
 
请原谅我的问题，但是，你可以看到这条线是否与这些块相交。根据你帖子的标题
 
 
你的意思是起点或终点，但不在两者之间？[从您所附的图片中]这是否意味着如果其不是直线的端点/起点，则测试结果为零？或者你真的想说块在直线的任何坐标处相交？如果测试为T，是否还会有另一组函数？我猜会有，对吗？那么你日常生活的主要功能是什么？

Qonfire 发表于 2022-7-6 08:43:31

外部循环。。。内环。。duahhh，这是在我看到你最后的回复之前发布的，我应该阅读评论，我专注于手表中的数据。
只是我的技术词汇有限。我想看看如何找到相交点的“坐标”。

Qonfire 发表于 2022-7-6 08:48:23

块在直线上的任意点相交，我现在没事。谢谢
 
 

Tharwat 发表于 2022-7-6 08:49:54

 
我没明白你的意思

pBe 发表于 2022-7-6 08:55:22

 
知道这一点很好，但我知道还有更多的事情，只有T或nil，你能为我们展示或描述测试后接下来会发生什么吗？

Qonfire 发表于 2022-7-6 08:58:39

 
没关系。我是在开玩笑。
页: 1 [2]
查看完整版本: 如果直线坐标与