如何得到框选范围内所有直线的交点?

lee_yan_cn · 发表于 2004-9-27 13:35:00

如何得到框选范围内所有直线的交点?
说说你的思路?

meflying · 发表于 2004-9-27 13:42:00

(defun GetInterPoint (ent1 ent2 / intpoints points i)
   (setq intpoints (vla-intersectwith ent1 ent2 acextendnone))
   (setq intpoints (vlax-variant-value intpoints))
   (setq i 0)
   (if (> (vlax-safearray-get-u-bound intpoints 1) 0)
   (repeat (/ (+ 1
   (- (vlax-safearray-get-u-bound intpoints 1)
   (vlax-safearray-get-l-bound intpoints 1)
   )
   )
   3
   )
   (setq points (append points (list (list
   (vlax-safearray-get-element intpoints i)
   (vlax-safearray-get-element intpoints (+ i 1))
   (vlax-safearray-get-element intpoints (+ i 2))
   )))
   )
   (setq i (+ 3 i))
   )
   )
   points
)
(defun c:main( / ss n i j ent1 ent2 points)
   (setq ss (ssget))
   (if ss
   (setq n (sslength ss))
   )
   (setq i 0 j 0)
   (while ( (vlax-safearray-get-u-bound intpoints 1) 0)
   (repeat (/ (+ 1
   (- (vlax-safearray-get-u-bound intpoints 1)
   (vlax-safearray-get-l-bound intpoints 1)
   )
   )
   3
   )
   (setq points (append points (list (list
   (vlax-safearray-get-element intpoints i)
   (vlax-safearray-get-element intpoints (+ i 1))
   (vlax-safearray-get-element intpoints (+ i 2))
   )))
   )
   (setq i (+ 3 i))
   )
   )
   points
)
(defun c:main( / ss n i j ent1 ent2 points)
   (setq ss (ssget))
   (if ss
   (setq n (sslength ss))
   )
   (setq i 0 j 0)
   (while (vla-object ent1))
   (while (vla-object ent2))
   (setq points (append points (getinterpoint ent1 ent2)))
   (setq j (1+ j))
   )
   (setq i (1+ i))
   )
   (Princ points)
   (princ (strcat "\n共有交点" (itoa (length points)) "?"))
   (princ)
)

如何得到框选范围内所有直线的交点?

发表回复

精选推荐