如何画三角交叉排列的递增圆?

kevinchan

如图所示:如何能根据输入ABC三个点的直径大小和XY的间距画出递增的圆?
A---B递增
A--C递增
B--C递增
然后AC间的点------BC间的点递增.

kevinchan

能帮帮忙吗?

kevinchan

mjcad大哥帮帮忙啊!!

kevinchan

真没有人能帮我
做到吗?

雪山飞狐_lzh

什么数据也没有怎么做?每层的比例关系如何,距离,个数....

kevinchan

是A-C A-B B-C AC-BC都是等差的关系,个数根据人工输入,距离是均等的.ljpnb大哥已经用LISP帮我做出来了,但我想用VBA做,能帮我编译一下吗? ;;;圆随形阵列,程序by ljpnb
(defun c:test ()
(setq ent1 (entget (car (entsel "\n选择一个圆: "))))
(setq ent2 (entget (car (entsel "\n选择另一个圆: "))))
(setq ent3 (entget (car (entsel "\n选择另一个圆: "))))
(setq n (getint "\n输入一个阵列的数目: "))
(setq r1 (cdr (assoc 40 ent1))
p1 (cdr (assoc 10 ent1))
r2 (cdr (assoc 40 ent2))
p2 (cdr (assoc 10 ent2))
r3 (cdr (assoc 40 ent3))
p3 (cdr (assoc 10 ent3))
)
(setq dis12 (distance p1 p2)
dis13 (distance p1 p3)
dis23 (distance p2 p3)
ang12 (angle p1 p2)
ang13 (angle p1 p3)
ang23 (angle p2 p3)
)
(setq len12 (/ dis12 (* n 2))
len13 (/ dis13 n)
len23 (/ dis23 n)
r12 (/ (- r2 r1) (* n 2))
r13 (/ (- r3 r1) n)
r23 (/ (- r3 r2) n)
)
(setq j 0)
(setvar "cmdecho" 0)
(setq os(getvar "osmode"))
(setvar "osmode" 0)
(repeat n
(setq k (* (- n j) 2))
(setq i 1)
(repeat (1- k)
(setq p0 (polar p1 ang12 (* len12 i)))
(command "circle" p0 (+ r1 (* r12 i)))
(setq i (1+ i))
)
(if (/= (setq j (1+ j)) n)
(progn

(setq p1 (polar p1 ang13 len13))
(setq p2 (polar p2 ang23 len23))
(setq ang12 (angle p1 p2))

(setq len12 (/ (distance p1 p2) (* (- n j) 2)))
(setq r1 (+ r1 r13)
r2 (+ r2 r23)
)
(setq r12 (/ (- r2 r1) (* (- n j) 2)))
(command "circle" p1 r1)
(command "circle" p2 r2)
)
)
)
(setvar "osmode" os)
(setvar "cmdecho" 1)
(princ)
)