|
|
请帮我看一下，这个程序有什么问题，运行不下去！
;;画绕一圆心阵列并相切的多个圆
(defun c:5test2()
;以下 baspt、rad、num 值須由使用者輸入
(setq baspt (getpoint “請求輸入基準點:”))
(setq rad (getdist baspt “\n請求輸入小圓半徑:”))
(setq num (getint “\n請求輸入欲相切的小圓數量:”))
;只要能求得 cenpt 點,再以 array 指令配合就萬事OK了
;以下ang1、kk、cenpt值須由程式依據baspt、rad、num求出
(setq ang1 (/ (* pi 2) (* num 2)))
(setq kk (/ rad (sin ang1)))
(setq ang2 (- (/ pi 2) ang1))
(setq cenpt (polar baspt ang2 kk))
;以下依據 cenpt、num 配合環形array畫出多圓相切
(command “circle” baspt rad) ;;先畫一個圓,才能array
(command “array” (entlast) “” “p” cenpt num 360 “Y”)
(prin1)
)
(prompt “\n >自動等圓相切繪製”)
(prin1) |
|
置顶卡
