[求助]：请问如何求出两条多义线的交点？

xnlu007 · 发表于 2003-11-30 23:28:03

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

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

×

*-*i

cdhua001 · 发表于 2003-11-30 23:35:53

捕捉交点啊

lsjjm · 发表于 2003-12-1 04:18:07

程序中可以使用: (vla-IntersectWith obj1 obj2 acExtendnone)函数.
REFER TO:
(defun c:test ()
  (vl-load-com)
  (setq fst (car (entsel "\nSelect First Object: ")))
  (setq nxt (car (entsel "\nSelect Second Object: ")))
  (setq fst (vlax-ename->vla-object fst)
      nxt (vlax-ename->vla-object nxt)
mde 3)
  (setq IntLst (vlax-invoke Fst "IntersectWith" Nxt Mde))
  (cond
(IntLst
   (repeat (/ (length IntLst) 3)
      (setq PntLst
            (cons
               (list(car IntLst)(cadr IntLst)(caddr IntLst))
      PntLst
      )
   IntLst (cdddr IntLst))
   )
   (reverse PntLst)
)
(T nil)
  )
)

xnlu007 · 发表于 2003-12-1 12:33:34

谢谢。

John Sun · 发表于 2003-12-1 14:11:31

延伸不就行了嘛？

lsjjm · 发表于 2003-12-1 15:48:00

最初由 John Sun 发布
[B]延伸不就行了嘛？ [/B]

不明白你的意思, 本来就已相交的, 还延伸什么? 即使两线本身不相交, 程序也可以求其延长线的交点, 也用不着延伸呀?

海兰兰 · 发表于 2003-12-1 17:15:45

直接用画点方式绘图，只是要选上所画的点是两条多义线的交点使用自动跟踪功能！！！

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

[求助]：请问如何求出两条多义线的交点？

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

相关帖子

浏览过的版块