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

ljpfeng2004

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

cswswq2009

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

ljpfeng2004

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

ljpfeng2004

(
% O$ i; w& r( q( }3 B8 f+ c6 p0 rdefun ggtt()
  p% w! K; i, B+ r/ W& ^4 H  t(setvar "osmode" 256)
, e. ^5 k7 Y) i2 W: U" ^2 P- Y, k(getpoint"请选择点")
* A7 l" e( W  |: H9 e)
+ d0 C# i8 H4 v5 s
( M2 ?' Z( j4 A+ [8 B(
defun c:c2(/ p1 p2 diameter radius)
, N) f0 S& J/ G; O5 \" U, F& W(setq diameter (getreal"\n 输入直径"))
(setq radius (* diameter 0.5))
(command "circle" "t" (ggtt) (ggtt) radius)
' ^3 T/ c  m! K& F
: ~/ o$ k" y- S! R/ K3 S( b)
2 i7 j0 z. Y* [" E这个是我自己鼓捣的代码，不行啊。郁闷。高手帮忙吧。求助中。。。。。。

SunVei

;; 简单的雏型
;; For test only
(defun C:TTD ()
  (command "Circle" "TTR"
0 n( [) U5 p6 ?. H9 {& m    "tan" pause
9 F) F* C/ Y. x% }8 H5 j' R    "tan" pause
: p8 L5 `6 C" H7 W- T! O( f    (/ (getdist ">> Diameter: ") 2)
  )
)

ljpfeng2004

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

ysryc99001

(defun c:ttt()
2 B5 k' J$ i3 O(setq baspt (getpoint "请求输入基准点: "))
8 Z+ p5 a: R0 e(setq rad (getdist baspt "\n请求输入小圆半径: "))
(setq num (getint "\n请求输入相切的小圆数量: "))
(setq ang1 (/ (* pi 2) (* num 2)))
3 @4 J! n# a6 i, M(setq kk (/ rad (sin ang1)))
(setq ang2 (- (/ pi 2) ang1))
! o6 x9 ?8 X- X' \7 ?(setq cenpt (polar baspt ang2 kk))
(command "circle" baspt rad)                               
3 g4 v% k$ [2 t( C( x(command "array" (entlast) "" "p" cenpt num 360 "Y")
/ N3 S: S# t8 b8 e# u(princ)
- x' C+ N) X% Q  J  \/ e. r)
(prompt "\n << 5TEST2>>自动等圆相切绘制")
9 \: X) j7 V% z$ \4 a(princ)

isabeth

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