[求助]：如何求几条线的交点的选择集

wzg · 发表于 2004-5-19 09:03:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

比如，我画了几条横线和竖线（好比画轴网），如何构造一个选集，只包括线与线的交点

lzy9788 · 发表于 2004-5-19 09:14:57

选线，(setq ss (ssget '((0 . "LINE"))))

求交点
(defun intquyu (/ SSL  ;length of SS
;    PTS ;returning list
   AOBJ1  ;Object 1
   AOBJ2  ;Object 2
   N1 ;Loop counter
   N2 ;Loop counter
   IPTS ;intersects
   A N NN HOLDOSMODE
)
  (vl-load-com)
(setq pts nil)
  (setq N1  0 ;index for outer loop
SSL (sslength SS)
  )    ; Outer loop, first through second to last
  (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
) ; variant result
   IPTS  (vlax-variant-value IPTS)
   )
;;;Variant array has values?
   (if (> (vlax-safearray-get-u-bound IPTS 1) 0)
(progn ;array holds values, convert it
(setq IPTS ;to a list.
(vlax-safearray->list IPTS)
)
;;;Loop through list constructing points
(while (> (length IPTS) 0)
   (setq PTS  (cons (list (car IPTS)
   (cadr IPTS)
   (caddr IPTS)
      )
      PTS
      )
IPTS (cdddr IPTS)
   )
)
)
   )
   (setq N2 (1+ N2))
)    ;inner loop end
(setq N1 (1+ N1))
  )    ;outer loop end
);end defun

playboy · 发表于 2004-5-19 10:32:51

楼上的程序有问题
我改了可是也不知道怎么用啊

lzy9788 · 发表于 2004-5-19 11:52:12

你加载此函数到程序，PTS这个是交点列表。

wzg · 发表于 2004-5-19 14:48:19

我想不通过选线，直接用框选线与线的交点，可以实现吗

lzy9788 · 发表于 2004-5-19 15:58:34

框选与线的交点？？
通过两点穿越选择还差不多吧
你用inters就行了。

陌生人 · 发表于 2004-5-19 16:43:58

不知道你想求选集还是想求交点：（

playboy · 发表于 2004-5-19 17:08:57

最初由 lzy9788 发布
[B]你加载此函数到程序，PTS这个是交点列表。 [/B]

只能用于求 line 线的交点吗
lwpline或者pline的交点不行吗

lzy9788 · 发表于 2004-5-19 17:44:18

http://www.mjtd.com/bbs/dispbbs. ... ID=30063&skin=1
有个类似的，你参考下

wzg · 发表于 2004-5-20 10:39:56

to:白银长老
我想不通过选择线，而是选择（框选）线和线的交点（实际上没有）构造一个选集，不知可行吗？

陌生人 · 发表于 2004-5-20 13:17:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

最初由 wzg 发布
[B]to:白银长老
我想不通过选择线，而是选择（框选）线和线的交点（实际上没有）构造一个选集，不知可行吗？ [/B]

昏死过去也！
你是要求交点表（交点集，不叫交点选集）
还是通过框选求有交点的曲线的集合？
或者通过选择交点，得相交的曲线集合？

wzg · 发表于 2004-5-21 11:06:00

to:白银长老：
想求交点表

陌生人 · 发表于 2004-5-21 13:51:57

[iframe h=600]http://www.xdcad.net/forum/search.php?s=&action=showresults&searchid=69165&sortby=lastpost&sortorder=descending[/iframe]

playboy · 发表于 2004-5-23 17:48:42

陌生人做的真到位啊

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何求几条线的交点的选择集

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块