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

ljpfeng2004

0 l! H4 b, \7 l$ G
不是相切相切半径的方式，因为输入半径很多时候不方便，需要计算。但我捣鼓了半天也弄不好，getpoint方式画不出来的，请高手赐教代码。
结贴，很好的lisp，感谢sunvei老师了。

cswswq2009

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

ljpfeng2004

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

ljpfeng2004

(
4 }6 o3 s. l5 B4 B6 |% S4 a# `defun ggtt()
3 {( O3 m1 b+ F2 O) ](setvar "osmode" 256)
(getpoint"请选择点")
)

9 L9 ], z9 S: |5 l4 ~3 P(
6 K# g5 P' [( W9 E" W' edefun c:c2(/ p1 p2 diameter radius)
6 K2 R( {: M: Y3 `/ J  e6 i; D(setq diameter (getreal"\n 输入直径"))
+ q- I, ^4 D! ?- F3 W4 {% h9 d(setq radius (* diameter 0.5))
& h8 j% q5 m8 J2 `; _* x0 A- {(command "circle" "t" (ggtt) (ggtt) radius)

)
( y1 |3 j' B; g( H+ F" h这个是我自己鼓捣的代码，不行啊。郁闷。高手帮忙吧。求助中。。。。。。

SunVei

;; 简单的雏型
;; For test only
( A2 L' B4 Q8 h' P  t% `3 {8 `(defun C:TTD ()
  (command "Circle" "TTR"
. K  ~* h0 N5 }$ h( e    "tan" pause
9 f3 C+ L& t1 W8 x    "tan" pause
1 s3 ~! w7 v" ~) a1 X: G+ G/ T  \    (/ (getdist ">> Diameter: ") 2)
  )
' c1 O- R7 e. U8 b)

ljpfeng2004

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

ysryc99001

(defun c:ttt()
4 [3 Y4 |: A1 b$ C( p(setq baspt (getpoint "请求输入基准点: "))
) y( s7 e& e# x2 e6 o6 B(setq rad (getdist baspt "\n请求输入小圆半径: "))
7 f  C; o' |5 @7 A" [9 `(setq num (getint "\n请求输入相切的小圆数量: "))
(setq ang1 (/ (* pi 2) (* num 2)))
0 R* C3 D7 ~5 x+ X$ g" v$ i(setq kk (/ rad (sin ang1)))
4 I' E' Y1 I' |' ?3 ](setq ang2 (- (/ pi 2) ang1))
(setq cenpt (polar baspt ang2 kk))
& D* p* a, i. s' A) P" N/ D(command "circle" baspt rad)                               
1 O  X( V/ T8 m1 P1 d9 k2 ^(command "array" (entlast) "" "p" cenpt num 360 "Y")
(princ)
# j) e; X! G% J/ e7 y0 c* W)
(prompt "\n << 5TEST2>>自动等圆相切绘制")
(princ)

isabeth

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