[求助]如何求出两条曲线的交点？

qjb5725 · 发表于 2008-4-25 14:36:00

Autolisp中如何返回两条曲线（圆弧或者多义线）的交点？

c3a139 · 发表于 2008-4-25 17:33:00

在坛里搜索一下，有许多

qjb5725 · 发表于 2008-4-25 18:34:00

谢了。我试试

qianglcq · 发表于 2008-4-25 19:14:00

;;;获取两条直线的交点
(defun c:ff ()
(mycopyright)
(vl-load-com)
(setq ent1 (entsel "\n选择第一条曲线:"))
(setq ent2 (entsel "\n选择第二条曲线:"))
(setq ent_1 (car ent1)
ent_2 (car ent2)
)
(setq int_list nil)
(setq ax_ent_1 (vlax-ename->vla-object ent_1)
ax_ent_2 (vlax-ename->vla-object ent_2)
)
(setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
(setq intpoints (vlax-variant-value intpoints))
(if (> (vlax-safearray-get-u-bound intpoints 1) 0)
    (progn
      (setq i 0)
      (setq j 0)
      (setq disp "")
      (repeat
(/ (+ 1
       (- (vlax-safearray-get-u-bound intpoints 1)
   (vlax-safearray-get-l-bound intpoints 1)
       )
    )
    3
)
(setq
    disp (list
    (vlax-safearray-get-element intpoints j)

(vlax-safearray-get-element intpoints (+ 1 j))

    (vlax-safearray-get-element intpoints (+ 2 j))
  )
)
(setq i (+ 2 i)
        j (+ 3 j)
)
(setq int_list (append int_list (list disp)))
      )
    )
)
(setq int_list int_list)
)

asen · 发表于 2008-4-27 19:20:00

(defun c:n (/ obj p1 p2 p3 li)
(setq obj (vlax-ename->vla-object (car (entsel "\ncurve: ")))
p1 (trans (getpoint "\npoint 1: ") 1 0)
p2 (trans (getpoint p1 "\npoint 2: ") 1 0)
li (vla-addline (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object) ) ) (vlax-3d-point p1) (vlax-3d-point p2) )
p3 (vlax-invoke obj 'IntersectWith li acExtendNone)
)
(if p3
(vla-put-EndPoint li (vlax-3d-point (list (car p3) (cadr p3) (caddr p3))))
(vla-delete li)
)
(princ)
)

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