【转帖】做圆环的小程序
 

做圆环的小程序
www.dimcax.com
做圆环的小程序
发一个做圆环的小程序
命令:aa
(defun c:aa ()
(setq os (getvar "osmode"))
(command "osmode" 0)
(setq cen (getpoint "\n 输入中心:")
rad (getreal " \n 输入直径:")
zl (+ (getreal " \n 输入增量:") rad)
)
(command "circle" cen rad)
(command "circle" cen zl)
(setvar "osmode" os)
(princ)
)