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

ljpfeng2004

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

cswswq2009

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

ljpfeng2004

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

ljpfeng2004

(
0 R2 H1 F+ W9 m3 o& Tdefun ggtt()
4 x+ X+ B  D" _( T( C! x- l) [* S(setvar "osmode" 256)
) N# D' L, L4 l* [; o+ g(getpoint"请选择点")
)
! k& ^9 c- s  ^+ i  ]
4 g$ b5 E1 p6 G(
defun c:c2(/ p1 p2 diameter radius)
2 o& h- r# a  W! P( B0 J% I(setq diameter (getreal"\n 输入直径"))
) L; @+ X1 \* \* K0 g* z(setq radius (* diameter 0.5))
4 o) \. C$ K3 o& a7 Y/ k8 D(command "circle" "t" (ggtt) (ggtt) radius)
" }6 s  U4 }) H
" S5 b2 c6 k# W/ l: i/ @)
2 H7 V& G( A4 d! _! q- y# \这个是我自己鼓捣的代码，不行啊。郁闷。高手帮忙吧。求助中。。。。。。

SunVei

;; 简单的雏型
3 ~0 S0 g( ?& E6 d4 d( F;; For test only
(defun C:TTD ()
  (command "Circle" "TTR"
3 l) v/ f! s( @! F2 X+ Z    "tan" pause
    "tan" pause
    (/ (getdist ">> Diameter: ") 2)
  )
)

ljpfeng2004

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

ysryc99001

(defun c:ttt()
(setq baspt (getpoint "请求输入基准点: "))
  o9 g+ O1 }/ z4 F# j(setq rad (getdist baspt "\n请求输入小圆半径: "))
  M4 E  T+ \- [2 K/ k, `. E(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)                               
$ Z) k% d* h  S0 V0 G! J% b- o, y. @2 _(command "array" (entlast) "" "p" cenpt num 360 "Y")
(princ)
)
(prompt "\n << 5TEST2>>自动等圆相切绘制")
4 y$ W4 Z; D& `(princ)

isabeth

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