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

ljpfeng2004

' R+ g) K# N1 m" @( s$ v不是相切相切半径的方式，因为输入半径很多时候不方便，需要计算。但我捣鼓了半天也弄不好，getpoint方式画不出来的，请高手赐教代码。
, e! f9 ^8 q- C( x5 ~  L结贴，很好的lisp，感谢sunvei老师了。

cswswq2009

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

ljpfeng2004

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

ljpfeng2004

(
defun ggtt()
- ^2 e4 M7 n1 ](setvar "osmode" 256)
(getpoint"请选择点")
)
* C" Y# B# Q, ^4 N, n5 M# J0 c
(
defun c:c2(/ p1 p2 diameter radius)
4 g9 J2 @+ M8 }* \(setq diameter (getreal"\n 输入直径"))
) Z% A4 ]; u! W9 x8 _(setq radius (* diameter 0.5))
  j6 C4 q* X# g1 e  W( Z3 Z5 E! ](command "circle" "t" (ggtt) (ggtt) radius)

5 V8 A. d. o9 P- [5 S) v( A$ ^)
这个是我自己鼓捣的代码，不行啊。郁闷。高手帮忙吧。求助中。。。。。。

SunVei

;; 简单的雏型
' [( j" _% U" h2 d( Y) x;; For test only
(defun C:TTD ()
1 v) ?& ]1 a4 X! f  (command "Circle" "TTR"
2 W/ P: N, d% _) z, M$ p    "tan" pause
    "tan" pause
    (/ (getdist ">> Diameter: ") 2)
  )
% Y: U7 c6 @" v5 x) p/ F)

ljpfeng2004

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

ysryc99001

(defun c:ttt()
" h: c$ |8 ]. j( X# v/ ^% N. ?6 @(setq baspt (getpoint "请求输入基准点: "))
(setq rad (getdist baspt "\n请求输入小圆半径: "))
% P4 }% X; I/ E% ^$ G(setq num (getint "\n请求输入相切的小圆数量: "))
(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)                               
, h0 o4 Z  T/ K# a- h% c(command "array" (entlast) "" "p" cenpt num 360 "Y")
5 S! J. e' G  f(princ)
; v' y- h$ E- f/ b( @* \( ])
(prompt "\n << 5TEST2>>自动等圆相切绘制")
(princ)

isabeth

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