[求助]请教我在工作中遇到的一个问题

simon_hbedi

我在工作中遇到的一个问题
在CAD的图中有两个层，分别为LAYER1，LAYER2
在LAYER1中有N条线（N未知），在LAYER2中有M条线（M未知）
求LAYER1中的线和LAYER2中的线的交点
这个LSIP程序该怎么写？

ll_j

如果是Line就方便点，可以用以下方法：
1.对layer1及layer2分别构造选择集；
2.分别构造点表如(pt10 pt11) (pt20 pt21) ....)；
3.用mapcar及inters求交点：
  (mapcar
    '(lambda(x)
       (mapcar
         '(lambda(y)
            (if (setq pt (eval (cons 'inters (append x y))))
              (setq ptlist (cons pt ptlist))
            )
          )
         list2
       )
     )
    list1
  )

如为其他实体，基本方法同上，但不可以用inters求交点，需寻求其他函数，可到XDsoft问问，好像XD_api有求两条线交点的函数。

陈伯雄

龙龙仔