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

ljpfeng2004

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

cswswq2009

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

ljpfeng2004

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

ljpfeng2004

(
* n5 B' d+ t3 l/ zdefun ggtt()
2 f+ l  ]! @" a$ b# U(setvar "osmode" 256)
(getpoint"请选择点")
)
9 Y1 h( {3 f" p; e* L3 n
. n( b' f& u# q0 u+ b: ?; a# q7 k* |(
defun c:c2(/ p1 p2 diameter radius)
(setq diameter (getreal"\n 输入直径"))
(setq radius (* diameter 0.5))
(command "circle" "t" (ggtt) (ggtt) radius)
, Y% p& n  Y5 @4 d; D( f+ r
)
  w' I) p8 }( q. P; D这个是我自己鼓捣的代码，不行啊。郁闷。高手帮忙吧。求助中。。。。。。

SunVei

;; 简单的雏型
;; For test only
(defun C:TTD ()
5 g0 n3 Y2 m0 f9 w  (command "Circle" "TTR"
( Y% u2 }9 l4 t    "tan" pause
) r: K7 m# p: C8 ?/ u    "tan" pause
0 d( x& g! _+ d" L' |3 f9 z    (/ (getdist ">> Diameter: ") 2)
( ~2 [; ]' Z) T: M, u% A9 U  )
)

ljpfeng2004

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

ysryc99001

(defun c:ttt()
(setq baspt (getpoint "请求输入基准点: "))
(setq rad (getdist baspt "\n请求输入小圆半径: "))
/ e! i+ \- D- {(setq num (getint "\n请求输入相切的小圆数量: "))
4 [/ B6 B% W; L) p) Q  O, ]3 k6 ~(setq ang1 (/ (* pi 2) (* num 2)))
- b( r+ \; ^& R, o* t(setq kk (/ rad (sin ang1)))
(setq ang2 (- (/ pi 2) ang1))
(setq cenpt (polar baspt ang2 kk))
; P( W3 k* M  Z: [% K$ L(command "circle" baspt rad)                               
1 k; D3 n) L5 I3 n7 k, a9 u# ^(command "array" (entlast) "" "p" cenpt num 360 "Y")
(princ)
)
(prompt "\n << 5TEST2>>自动等圆相切绘制")
; r7 O; t, {  _% g+ l9 T0 V6 f(princ)

isabeth

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