土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 请大家看下我这段小程序，哪里有问题

请大家看下我这段小程序，哪里有问题

发布于：2010-03-11 14:24:11 来自：建筑设计/CAD下载及教程 [复制转发]

初用autolisp，想做一个环形相切圆的小程序，总是提示参数太少。。。

(defun c:qy(/ b n a r r1 x)
(setq b (getpoint "指定插入点："))
(setq r (getdist b "\n指定小圆半径："))
(setq n (getint "\n输入相切圆数量："))
(setq a (/ (* 2 pi) n))
(setq r1 (/ r (sin (/ a 2))))
(setq x (polar b (- (/ pi 2) (/ a 2)) r1))
(command "circle" b r)
(command "array" (entlast) "" "p" x n 360 "y")
(prin1)
)

0人已收藏
1人已打赏
免费
0人已点赞
分享

复制链接新浪微博微信扫一扫

全部回复（3 ）

只看楼主我来说两句

zml84 沙发

[code](defun c:qy (/ b n a r r1 x)
(if (and (setq n (getint "\n输入相切圆数量："))
(setq b (getpoint "指定插入点："))
(setq r (getdist b "\n指定小圆半径："))
)
(progn
(setq a (/ (* 2 pi) n)
r1 (/ r (sin (/ a 2)))
x (polar b (- (/ pi 2) (/ a 2)) r1)
)
(command "_.circle" "non" b r)
(command "_.array" (entlast) "" "p" "non" x n 360 "y")
)
)
(princ)
)[/code]

2010-03-12 20:26:12
回复举报
赞同0
zhuangleiml 板凳

很郁闷啊。。

2010-03-12 14:19:12
回复举报
赞同0

加载更多