FlyinDance 发表于 2007-7-12 13:15:00

[求助]线相交的问题

有一个表示一条直线的点表，和一个表示竖线X值的点表<br/>怎么才能用最简单的代码求出竖线和直线的交点呢？<br/>

c3a139 发表于 2007-7-12 18:15:00

<p>看看这个能用否，好像来自本坛</p><p>(DEFUN c:tmp (/ ENT1 ENT2 N PT PTS SSG FILE)</p><p>&nbsp;&nbsp; (vl-load-com)<br/>&nbsp;&nbsp; (SETQ ent1 (VLAX-ENAME-&gt;vla-OBJECT (CAR (ENTSEL "\n选取一根线:"))))<br/>&nbsp;&nbsp; (PRINC "\n选取一组竖向坐标线:")<br/>&nbsp;&nbsp; (SETQ ssg (SSGET '((0 . "LINE"))))<br/>&nbsp;&nbsp; ;;获取交点集<br/>&nbsp;&nbsp; (SETQ pts nil)<br/>&nbsp;&nbsp; (REPEAT (SETQ n (SSLENGTH ssg))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (SETQ ent2 (VLAX-ENAME-&gt;vla-OBJECT (SSNAME ssg (SETQ n (1- n)))))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (IF (SETQ pt (VLAX-INVOKE ent1 'IntersectWith ent2 ACEXTENDNONE))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ pts (CONS pt pts))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; )</p>

tianguipeng 发表于 2008-6-18 19:28:00

<p>好像帮助上就有这个例子</p><p>但好像不是这样写的</p>

caoyin 发表于 2008-6-19 09:18:00

用 inters 比较好
页: [1]
查看完整版本: [求助]线相交的问题