新手问题（急等）

qcw911

     ;20111205 qiuw1
(defun err (s)    ;
  (if (and (/= s "console break")
    (/= s "Function cancelled")
    (/= s "quit/exit abort")
      )
    (progn (setvar "osmode" oldos)
    (setvar "cmdecho" oldcmd)
    (setq *error* olderr)
    (command "UNDO" "E")
    (princ (strcat "\n出错退出:" s))
    )
  )
)
(defun mid (pts pte)   ;
  (setq p1x (car pts))
  (setq p1y (cadr pts))
  (setq p2x (car pte))
  (setq p2y (cadr pte))
  (setq px (/ (+ p1x p2x) 2))
  (setq py (/ (+ p1y p2y) 2))
  (setq mpt (list px py))
)
(defun make_line (pts pte)  ;
  (command "line" pts pte "")
)
(defun make_line_ang (pt ang)  ;
  (setq
    pts pt
    pte (polar pts (+ s_ang ang) (/ Stair_width (cos (dtor 30))))
  )
  (make_line pts pte)
)
     ;
(defun dtor (ang) (/ (* ang PI) 180))
(defun c:lt (/)
  (command "undo" "BE")
  (setq oldos (getvar "osmode")
oldcmd (getvar "cmdecho")
oldlay (getvar "CLAYER")
olderr *error*
*error* err
  )
  (setvar "cmdecho" 0)
  (setvar "clayer" oldlay)
  (setq pt1 (getpoint "\nonepoint:"))
  (setq pt2 (getcorner pt1 "\ntowpoint:"))
  (setq dist_pt1_pt2 (distance pt1 pt2))
  (setq s_ang (angle pt1 pt2))
  (setq Stair_width (* dist_pt1_pt2 (sin (- s_ang (dtor 90)))))
  (setq pt3 (polar pt2 0 Stair_width))
  (setq Stair_heigth (* dist_pt1_pt2 (cos (- s_ang (dtor 90)))))
  (setq s_ang 0)
  (setq pt (polar pt2 (+ s_ang (dtor 315)) (* Stair_width (sqrt 2))))
;;;  (command "circle" pt 30 "")
  (if (> Stair_width 800.0)
    (progn
      (setq Stepping_width 200.0)
    )
    (setq Stepping_width 227.5)
  )
  (setq dist_pt3_pt (distance pt3 pt))
  (setq dist_pt3_pt1 (distance pt3 pt1))
  (setq Bench_DN (/ (- dist_pt3_pt1 dist_pt3_pt 120) Stepping_width))
(progn
    (setq pt1 (polar pt (+ s_ang (* 1.5 pi)) 60)
   pt2 (polar pt1 (+ s_ang pi) Stair_width)
    )
    (make_line pt1 pt2)
    (setq
      pt4 (polar pt1 (+ s_ang (* 1.5 pi)) (* Bench_DN Stepping_width))
    )
    (command "circle" pt3 30 "")
    (setq n 0)
    (repeat Bench_DN
      (setq pt5 (polar pt4 (+ s_ang (* 0.5 pi)) (* n Stepping_width))
     pt6 (polar pt5 (+ s_ang pi) Bench_width)
      )
      (make_line pt5 pt6)
      (setq n (1+ n))
    )
)




)

测试的时候说repeat有问题
不知道是为什么

Andyhon

请先试
   (setq n 0)
    (setq Bench_DN (fix (abs Bench_DN)))   ; Add this line
    (repeat  Bench_DN