AutoLISP程序奇怪問題

xxgzs6699 · 发表于 2003-12-2 21:18:00

[QUOTE]复制代码(defun c:7test2 ()
  ;;以下由用戶輸入
  (setq pt1 (getpoint "\nStart point:"));台階基礎點
  (setq width (getdist pt1 "\nWidth:"));台階總寬度
  (setq high (getdist pt1 "\nHigh:"));台階總高度
  (setq n (getint "\nNumber:"));台階數量
  (initget "L R");圖形在基礎點的左邊或右邊
  (setq fx (getkword "\nEnter fx R:"));圖形在基礎點的左邊或右邊
  ;;以下自動計算
  (setq ww (/ width n));每個台階寬
  (setq hh (/ high n));每個台階高
  (setq pt2 (polar pt1 0 width))
  (setq pp pt1)
  ;;開始畫圖
  (command "pline" pt1)
  (repeat n
(setq pp1 (polar pp (/ pi 2.0) hh))
(setq pp (polar pp1 0 ww))
(command pp1 pp)
)
  (command pt2 "c")
  (setq en1 (entlast))
  (if (= fx "L") ;判斷圖形是否要鏡像
(command "mirror" en1 ""  pt1 (polar pt1 (/ pi 2) hh) "y")
(nil)
)
  (prin1)
  )
我是個新手﹐現在遇到一問題﹐不知道那里有毛病﹐
請各位指點一二﹗﹗
以上程序中﹐台階數量少于10個可正常畫出圖形﹐
但是多于10等于個時圖形就會亂掉﹐不解!?!?!?!?!?....