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

ljpfeng2004

8 L3 B& J$ {4 w" `& i不是相切相切半径的方式，因为输入半径很多时候不方便，需要计算。但我捣鼓了半天也弄不好，getpoint方式画不出来的，请高手赐教代码。
结贴，很好的lisp，感谢sunvei老师了。

cswswq2009

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

ljpfeng2004

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

ljpfeng2004

(
defun ggtt()
. K3 A- W2 ^6 p7 p6 g/ V(setvar "osmode" 256)
' t1 @* A0 |' E. w4 V8 p(getpoint"请选择点")
)
5 d/ M" f( P3 k6 K( |* b5 |
6 k, W4 k2 i1 @3 D(
2 w* ]* c6 |# ~defun c:c2(/ p1 p2 diameter radius)
(setq diameter (getreal"\n 输入直径"))
: W( b( {6 u- k* r- v. @0 I(setq radius (* diameter 0.5))
( W. X- t) ]! M3 u(command "circle" "t" (ggtt) (ggtt) radius)
/ c9 y) K+ s" S3 ^. }
) ~, r1 x- \" U9 V4 Q1 C)
这个是我自己鼓捣的代码，不行啊。郁闷。高手帮忙吧。求助中。。。。。。

SunVei

;; 简单的雏型
$ D  e9 L) p) A9 h0 ];; For test only
(defun C:TTD ()
  (command "Circle" "TTR"
    "tan" pause
8 H+ k% }3 P( n% Y; E1 F    "tan" pause
2 E5 e; w0 J6 s0 a2 ?* s4 r9 v- s    (/ (getdist ">> Diameter: ") 2)
( ^, m8 |# O7 _# b/ T  )
- ~: F% z2 A0 X% p. j, T)

ljpfeng2004

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

ysryc99001

(defun c:ttt()
- @8 V# j2 @2 b6 M, r( E(setq baspt (getpoint "请求输入基准点: "))
0 ~1 f7 e& j, X  O8 L* H6 ^(setq rad (getdist baspt "\n请求输入小圆半径: "))
" [' v: U, @4 T(setq num (getint "\n请求输入相切的小圆数量: "))
(setq ang1 (/ (* pi 2) (* num 2)))
(setq kk (/ rad (sin ang1)))
(setq ang2 (- (/ pi 2) ang1))
- v& w* o9 L7 h6 ]) w; C1 s7 E- |. H(setq cenpt (polar baspt ang2 kk))
(command "circle" baspt rad)                               
(command "array" (entlast) "" "p" cenpt num 360 "Y")
(princ)
6 D* v, E# Q6 ]: x)
: S5 `, n; N0 o+ U, u; [' m2 \0 e(prompt "\n << 5TEST2>>自动等圆相切绘制")
(princ)

isabeth

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