如果直线坐标与

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

copy

(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

copy


(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，是否还会有另一组函数？我猜会有，对吗？那么你日常生活的主要功能是什么？