AutoLISP程序奇怪問題

xxgzs6699

[QUOTE]

1. 程序代码内容

复制代码

(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等于個時圖形就會亂掉﹐不解!?!?!?!?!?....

lockmyeye

没有的，我输入100都没有问题。

congcong

把捕捉关掉试一下。

xxgzs6699

把捕捉關閉測試OK﹐謝謝﹗
您知道具體是什么原因嗎?

BDYCAD

程序运行过程序中，如要使用COMMAND来画图时捕捉没有关去容易使程序出错的。