[LISP程序]：如何取得两线的交点

yuyang318 · 发表于 2006-12-10 07:47:36

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

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

×

请教：如何取得两线的交点?（线可能是直线，圆弧线）

Underway · 发表于 2006-12-10 09:56:15

http://www.cad777.com/sdxvc/hkdruiosxq/140758.htm
函数vla-IntersectWith详解

firstintimate · 发表于 2006-12-11 09:32:45

给一段别人写的代码
;;;;求两实体交点集  ，由taner修改
;;;change by taner from xdcad
(defun th-get2entinters (fst nxt k / intlst pntlst)
(if (= k 0)
(setq k acextendnone)
  )
  (if (= k 1)
(setq k acextendthisentity)
  )
  (if (= k 2)
(setq k acextendotherentity)
  )
  (if (= k 3)
(setq k acextendboth)
  )
  (setq intlst (vlax-invoke-method (vlax-ename->vla-object fst)  'intersectwith  (vlax-ename->vla-object  nxt) k))
  (if intlst
(progn
   (repeat (/ (length intlst) 3)
(setq pntlst (cons (list (car intlst) (cadr intlst) (caddr intlst))
            pntlst
         )
      intlst (cdddr intlst)
)
   )
   (reverse pntlst)
)
  )
)

phoenixdjq · 发表于 2006-12-11 13:31:33

明经的置顶帖子里面就有

happyboy75 · 发表于 2009-3-5 22:08:34

出现错误

fl202 · 发表于 2009-3-6 08:08:59

直线很简单，用inters函数就好了。别的不会。

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

[LISP程序]：如何取得两线的交点

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

相关帖子