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

ljpfeng2004

( `* }) u* t: f2 j9 g4 c/ M* y不是相切相切半径的方式，因为输入半径很多时候不方便，需要计算。但我捣鼓了半天也弄不好，getpoint方式画不出来的，请高手赐教代码。
, I3 L  h+ \$ e- g% m! h结贴，很好的lisp，感谢sunvei老师了。

cswswq2009

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

ljpfeng2004

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

ljpfeng2004

(
defun ggtt()
* t, S. j$ n8 _1 @(setvar "osmode" 256)
6 ~5 y* y1 Z, a* [(getpoint"请选择点")
$ G/ Y% N% J3 }& R)

9 r% n! u$ }# L; F  O(
! }$ J* G7 i- o/ D% y; Jdefun c:c2(/ p1 p2 diameter radius)
(setq diameter (getreal"\n 输入直径"))
(setq radius (* diameter 0.5))
+ ^6 D" E6 p+ O3 N(command "circle" "t" (ggtt) (ggtt) radius)

( [2 E. s" P* H) B)
& g7 d( a. x9 l. f, l& u( n% B这个是我自己鼓捣的代码，不行啊。郁闷。高手帮忙吧。求助中。。。。。。

SunVei

;; 简单的雏型
;; For test only
, P# g7 B: Y6 S; H2 W( H(defun C:TTD ()
. v- C2 P: e# T. o1 U  (command "Circle" "TTR"
    "tan" pause
    "tan" pause
1 x# t8 q0 m* t5 _; A2 J' A; p    (/ (getdist ">> Diameter: ") 2)
  )
  l6 j2 ^  n5 [)

ljpfeng2004

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

ysryc99001

(defun c:ttt()
. I' [: L! A( {( l4 ?4 ^(setq baspt (getpoint "请求输入基准点: "))
" W6 \; O* f6 J; Q6 E. M(setq rad (getdist baspt "\n请求输入小圆半径: "))
(setq num (getint "\n请求输入相切的小圆数量: "))
8 g( C/ T6 ?9 G& o6 N8 S' T3 i(setq ang1 (/ (* pi 2) (* num 2)))
(setq kk (/ rad (sin ang1)))
(setq ang2 (- (/ pi 2) ang1))
(setq cenpt (polar baspt ang2 kk))
(command "circle" baspt rad)                               
(command "array" (entlast) "" "p" cenpt num 360 "Y")
- p- Y# L# P1 h0 a(princ)
2 h# R& ~6 r% r& {" ~% ]0 l0 f)
(prompt "\n << 5TEST2>>自动等圆相切绘制")
(princ)

isabeth

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