急！！求助高手：如何用lisp程序获取相交圆的交点？？

kingchoice00 · 发表于 2008-5-20 16:42

求助高手：如何用lisp程序获取相交圆的交点？？更一般地如何实现用程序实现cad里的捕捉交点，垂足，切点等待

Andyhon · 发表于 2008-5-20 19:14

可有示意图

kingchoice00 · 发表于 2008-5-21 14:41

就是过两圆的交点我想作一条直线，用什么获取交点坐标。因为我作图多半是直线和圆相交，相切的情况。

Andyhon · 发表于 2008-5-21 16:47

如所示图借三角几何解:
a. 由三边长求得面积
b. 由面积求得三角形的高
c. 再得出夹角

or 直接用vla-IntersectWith

kingchoice00 · 发表于 2008-5-22 18:38

大家帮我看看错在哪里啊，画不了过两个交点的直线啊！

(defun c:n ()
   (setq e1(vlax-ename->vla-object(car(entsel)))
         e2(vlax-ename->vla-object(car(entsel))))
(setq s (vlax-invoke e1 'intersectwith e2 3))
(setq s1 (car s)
  s4 (cddddr s)
  s2 (cadr s)
  s3 (cadddr s)
)
(setq s41 (car s4))
(setq p1 (list s1 s2 )
  p2 (list s3 s41 )
)
(command "line" p1 pt " ")
   (princ)
)

Andyhon · 发表于 2008-5-22 19:35

(defun c:n ()
(setq e1 (vlax-ename->vla-object (car (entsel)))
e2 (vlax-ename->vla-object (car (entsel)))
)
(setq s (vlax-invoke e1 'intersectwith e2 3)
p1 (list (car s) (cadr s))
p2 (cdddr s)
)
(command "line" "none" p1 "none" p2 "")
(princ)
)

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

急！！求助高手：如何用lisp程序获取相交圆的交点？？

本帖子中包含更多资源

本帖子中包含更多资源