为什么，望解答，2例

reddante · 发表于 2004-2-25 08:30:00

上面有我的两例代码，其中的错误或用的不对的地方，望各位帮偶~

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

龙龙仔 · 发表于 2004-2-25 14:04:00

是捕捉點出問題 ;;這是畫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 · 发表于 2004-2-25 15:33:00

谢谢，谢谢，

为什么，望解答，2例

发表回复

精选推荐