想取得所有（直接，间接）与指定线相交的线，但程序太慢

bigboom

我用ssget "x" 取得所有线，然后把所有与指定线相交的线放入一个序列，再依次取此序列中的值求与其相交的线并将其添加的序列中如此下去。
是不是可以用函数嵌套呀
我做了一个但速度太慢，因为图中线条太多，每个每个比较是否有交点(inters)，我该怎么办？

tukuitk

用IntersectWith方法，进行循环即可，不需要用函数嵌套

meflying

不知道你怎样算快，怎样算慢，看看这个
(vl-load-com)
(defun HasInters (ax_ent_1 ax_ent_2 / ax_ent_1 ax_ent_2 intpoints)
  (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendboth))
  (setq intpoints (vlax-variant-value intpoints))
  (if (> (vlax-safearray-get-u-bound intpoints 1) 0)
    t
    nil
  )
)
(defun c:test( / ent ss ssnew i entNew)
  
  (setq ent (vlax-ename->vla-object (car (entsel "选择指定直线"))))
  (setq ss (ssget "X"))
  (setq ssNew (ssadd))
  (setq i 0)
  (setq time (getvar "date"))
  (repeat (sslength ss)
    (if (HasInters ent (vlax-ename->vla-object (setq entNew (ssname ss i))))
      (ssadd entNew ssNew)
    )
    (setq i (1+ i))
  )
  (princ (- (getvar "date") time))
  ssNew
)

bigboom

我要得效果像这样的（如红线所示）并且实际中的图中线条多的多，而且是3d的，再z方向上也有线条，我的意图是通过找到所有直接或间接相交的线并把他们改变颜色以方便观察，当点别的线时还原颜色。如a与b c d 有交点，b与f g有交点，d与h i有交点，把a b c d f g h i全部改变颜色。

meflying

知道你的意思了，线较多的话应该会比较慢了，以前我用VC编一个类似于资源管理器的东西时，查找文件夹也是这样的，也用到了函数的嵌套调用，
可否看看你的程序？

bigboom

可以，但程序还没有完成。
我想用嵌套，但还不知道怎么嵌套，所以暂时用repeat循环代用。
这个决定向下查找的深度

aeo000000

meflying发表于2003-11-1 15:18:00不知道你怎样算快，怎样算慢，看看这个
(vl-load-com)
(defun HasInters (ax_ent_1 ax_ent_2 / ax_ent_1 ax_ent_2 intpoints)
   (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2

他的意思不是这样的.

他要的:假定a交b ,b交c,c交d....通过点a得到abcd....

既然都是直线，不妨用ssget "f"
得到的选集再进行判断是否相交.
然后再循环，别忘了把已经求过的去除，不然肯定死循环.

龙龙仔

aeo000000比我快一步說出關鍵點,
;;思路
;;利用下列特性替代尋找交點
;;(ssget "F" (list A11 A10) '((0 . "LINE")))

bigboom

龙斑竹
;;(ssget "F" (list A11 A10) '((0 . "LINE")))语句提示参数过多
用“f"应该输入点序列作为篱选的参数，你怎么用两个实体作参数，能详细解释一下吗？

龙龙仔

;取出LINE端点
(defun getentendpoint(ent)
  (setq att (entget ent))
  (setq A11 (cdr (assoc 11 ett)))
  (setq A10 (cdr (assoc 10 ett)))
)


A11 & A10 是線的端點