请教用autolisp实现相切相切直径画圆

ljpfeng2004

不是相切相切半径的方式，因为输入半径很多时候不方便，需要计算。但我捣鼓了半天也弄不好，getpoint方式画不出来的，请高手赐教代码。
5 g6 c4 _& G3 V. f0 O. @2 O结贴，很好的lisp，感谢sunvei老师了。

cswswq2009

请看http://www.askcad.com/bbs/viewth ... &extra=page%3D1

ljpfeng2004

都是我的ID，晕了。我就要lisp不要无关的答案，谢谢。

ljpfeng2004

(
defun ggtt()
(setvar "osmode" 256)
(getpoint"请选择点")
)

' `) a4 R! E$ a! o0 r(
defun c:c2(/ p1 p2 diameter radius)
(setq diameter (getreal"\n 输入直径"))
(setq radius (* diameter 0.5))
3 q2 e& k. V8 d! j$ R6 U- n(command "circle" "t" (ggtt) (ggtt) radius)
7 V/ I' }" e% A8 W
)
. |- `0 c) B, X6 A这个是我自己鼓捣的代码，不行啊。郁闷。高手帮忙吧。求助中。。。。。。

SunVei

;; 简单的雏型
4 j* A$ x* R% _' f' k) m;; For test only
, _( t* w2 b4 n. j(defun C:TTD ()
  (command "Circle" "TTR"
" q0 D. ?$ W3 I) u7 @4 p    "tan" pause
0 b/ O- y# d7 m4 k, }$ F) D% v    "tan" pause
" m, `* o1 r; j( ^    (/ (getdist ">> Diameter: ") 2)
  )
, m9 A3 \& Q, s- })

ljpfeng2004

老大，您是高手啊。佩服，有不明白的地方，"TTR"难道是02版本之前提示参数吗？另外“tan”也是参数吗？菜鸟一个，请您不吝赐教了。

ysryc99001

(defun c:ttt()
(setq baspt (getpoint "请求输入基准点: "))
1 X3 W0 c; ]6 u8 J) e8 o(setq rad (getdist baspt "\n请求输入小圆半径: "))
1 `5 v, n5 L( p. R& i# V(setq num (getint "\n请求输入相切的小圆数量: "))
9 d$ W0 ]: I: m4 g2 r( q+ ?8 `( l(setq ang1 (/ (* pi 2) (* num 2)))
(setq kk (/ rad (sin ang1)))
, q/ y" ~8 J% J7 Z) G' x* z( \(setq ang2 (- (/ pi 2) ang1))
0 d; U) Z. w9 E3 ^' V: F3 G(setq cenpt (polar baspt ang2 kk))
(command "circle" baspt rad)                               
, I. G3 p3 g& y3 k; M(command "array" (entlast) "" "p" cenpt num 360 "Y")
(princ)
)
, M" ~1 W! v4 _, Z( P( J# S9 q6 ^(prompt "\n << 5TEST2>>自动等圆相切绘制")
(princ)

isabeth

不管，只要好用就行，试过了，挺好的。已经保存LISP.感谢楼主和LISP提供者