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

simon_hbedi · 发表于 2002-8-12 21:11:00

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

ll_j · 发表于 2002-8-12 21:54:00

如果是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有求两条线交点的函数。

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

发表回复

精选推荐

浏览过的版块