[LISP程序]：在cad里自动编号程序

402326352

*-*b

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                DrC(DrawCode)LISP程序                              ;;
;;;                By 罗邦杰   二００五年九月                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;       一个自动编写序号的程序，要求的参数为：                      ;;
;;;             1. 序号的高度                                         ;;
;;;             2. 序号的前缀                                         ;;
;;;             3. 序号的逐步等级（默认为"1")                         ;;
;;;             4. 序号的开始数字                                     ;;
;;;             5. 序号的最终结尾数字                                 ;;
;;;                                                                   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun C:tt(/ p1 x1 y1 p2 x2 y2 pt t0 t1 t2 t3 e)
  (setq h  (getint "Enter Text Height:"))
  (setq t0 (getstring "Enter text Word:"))
  (setq t1 (getint "Enter Start Number:"))
  (setq t1 (itoa t1))
  (setq t2 (strcat t0 t1))
  (setq p1 (getpoint "Enter P1 Point:"))
  (setq x1 (car p1))
  (setq y1 (cadr p1))
  (setq p2 (getpoint "Enter p2 Point:"))
  (setq x2 (car p2))
  (setq y2 (cadr p2))
  (setq pt (list (/ (+ x1 x2) 2) (- (/ (+ y1 y2) 2) (/ h 2.0 ))))
  (command "osanp" "off" )
  (command "text" "j" "c" pt h "0" t2 )
  (command "osmode" 163 "")
  (setq p1 (getpoint "Enter P1 Point:"))
  (while ( /= p1 null)
    (progn
       (setq t1 (atoi t1))
       (setq t1 (+ t1 1))
       (setq t1 (itoa t1))
       (setq t2 (strcat t0 t1))
       (setq x1 (car p1))
       (setq y1 (cadr p1))
       (setq p2 (getpoint "Enter p2 Point:"))
       (setq x2 (car p2))
       (setq y2 (cadr p2))
       (setq pt (list (/ (+ x1 x2) 2) (- (/ (+ y1 y2) 2) (/ h 2.0 ))))
       (command "osnap" "off" )
       (command "text" "j" "c" pt h "0" t2 )
       (command "osmode" 163 "" )
       (setq p1 (getpoint "Enter P1 Point:"))
       (if (= p1 null)
         (exit)
         (princ)
       )
    )
  )
  (princ)
)
  ?