调试程序

lk_mbf

请帮我看一下，这个程序有什么问题，运行不下去！


;;画绕一圆心阵列并相切的多个圆


(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 << 5TEST2>>自動等圓相切繪製”)


(prin1)

BDYCAD

程序試過沒有問題. 這份程序我想你是抄的. 因為你用的是　””這些符號所以程序就出錯．　你改成字符 "" 就行了

CADghost

好像是龙震上例子的吧！

lk_mbf

对，是在这个论坛下的。我正在看这些例子，多谢了！