为什么，望解答，2例

reddante

http://computer.blogger.cn/reddante/ 上面有我的两例代码，其中的错误或用的不对的地方，望各位帮偶~

龙龙仔

是捕捉點出問題 ;;這是畫n角星的代碼
(defun C:STARN (/ HOLDOSMODE)
;;;輸入n角星的角數，判斷，和基本資料的計算
(setq N (getint "\nplease input a int n: "))
(if (< N 4)
(alert "\nwhat are you doing?")
)
(setq CENTER (getpoint "\nplease input center point: "))
(command "_.point" CENTER)
(setq P1 (getpoint CENTER "\nplease input 1st point: "))
(setq ANG (angle CENTER P1))
(setq DIS (distance CENTER P1))
(setq MINA (* pi (/ (/ 360.0 N) 180)))
(setq A (* pi (/ (/ 720.0 N) 180)))
(setq HOLDOSMODE (getvar "OSMODE"))
(setvar "OSMODE" 0)
;;;判斷n角星為奇還是偶。
(if (= (* 2 (/ N 2)) N)
;;;為偶
(progn
(command "_.pline" P1 (polar CENTER (+ A ANG) DIS))
(setq I 1)
(while (< I (/ N 2))
(command (polar CENTER (+ (* A I) ANG) DIS))
(setq I (1+ I))
)
(command "c")
(command "_.copy" (entlast) "" "0,0" "@")
(command "_.rotate" (entlast) "" CENTER (/ 360.0 N))
)
;;;為奇
(progn
(command "_.pline" P1 (polar CENTER (+ A ANG) DIS))
(setq I 1)
(while (< I N)
(command (polar CENTER (+ (* A I) ANG) DIS))
(setq I (1+ I))
)
(command "c")
)
)
(setvar "OSMODE" HOLDOSMODE)
;;;結束，列印作者資訊
(alert
"\nThe script running successful!\nGood Luck!\nCode By Redd4n7E!\n 修改 龍龍仔!"
)
(princ)
)

reddante

谢谢，谢谢，