标注 问题 按给定参数自动标注

bearbear1

(defun di5 ()                                            ;向上连续标注 可以运行  (参考网上的程序写个简单的)

(setq pt (getpoint "\n please point:"))
(setq diml 0 i 0)
(setq dy (cadr pt))
(setq dx (car pt))

 (while (/= diml nil)
 ;(setq diml (getreal "\n please dim"))
         (setq dx1 (- dx 150))
         (setq dx2 (+ dx 400))
         (setq dy1 (+ dy diml))
        
         (setq pt1 (list dx1 dy))
         (setq pt2 (list dx2 dy))
         (setq pt3 (list dx1 dy1))
         (setq pt4 (list dx2 dy1))
         (setq pt5 (list dx dy1))
        
 
  (if ( = i 0) ( command "line" pt1 pt2 "") )
  (command "line" pt3 pt4 "")
  (command "line" pt pt5 "")
 
         (setq dy (+ dy  diml ))  ;关键之处，向上移动
        
        
         (setq i ( + i 1))
 )
)

 

 

问题是:   想让上面的程序按四个给定变量运行一次

(defun c:b2()
(setq pt (getpoint "\n please point:"))
(di5( 100 )) 
(di5( 111 ))
(di5( 222 ))
(di5( 123 ))
)

 

(defun di5 ( diml) 

;

   .......程序di5

)

 

 

如何写成??????????????

 

 

lsjj

同一帖放太多地方了,即使問題點不同,看帖的人也累,版主是熱心人,交給版主處理吧

bearbear1

自己已解决