[编程交流] 所需Lisp增量值（w

(defun C:INN (/ gap hg inum ip p1 p2 tb wd)
(setq inum (getint "\n\tEnter a number to start with: "))
(while (setq ip (getpoint "\n\tSpecify text insertion point (Enter to stop): "))
 ; entmake text
 (entmake
       (list
       '(0 . "TEXT")
       '(100 . "AcDbEntity")
       '(100 . "AcDbText")      
       (cons 1 (itoa inum));string
       (cons 7 "Standard");style
       (cons 8 "0");layer
(cons 62 256);color
       (cons 10 ip);insertion point
       (cons 11 ip);alignment point
       (cons 40 (getvar "dimtxt"));text height - change by suit
(cons 41 1.0);text width
(cons 50 0.0);1.5708 - vertical, 0.0 - horizontal
(cons 51 0.0);oblique angle 
'(71 . 0);alignment
'(72 . 1);alignment
'(73 . 2);alignment
)
)
 (setq tb (textbox (entget (entlast))))
 (setq gap (/ (getvar "dimtxt") 4)
p1 (car tb)
       p2 (cadr tb)
hg (abs (- (cadr p1)(cadr p2)))
wd (abs (- (car p1)(car p2)))
p1 (list (- (car ip) (/ wd 2) gap)(- (cadr ip) (/ hg 2) gap))
p2 (list (+ (car ip) (/ wd 2) gap)(+ (cadr ip) (/ hg 2) gap))
)
; entmake frame
(entmake
 (list        '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
'(90 . 4);number of vertices
'(70 . 1);closed flag
(cons 8 "0");layer
(cons 62 2);color (256 - ByLayer)
(cons 10 p1)
(list 10 (car p2) (cadr p1))
(cons 10 p2)
(list 10 (car p1) (cadr p2))
(cons 43 0.0);polyline width
 )
)
 (setq inum (1+ inum))
 )
(prin1)
)
(prompt "\nType INN to execute ...")
(princ)

(defun c:atnum (/ oldStart oldEcho oldSize oldBlock temBl *error*) 
 (defun *error* (msg) 
   (setvar "CMDECHO" oldEcho) 
   (princ) 
   ); end *error* 
 
 (if(not atnum:Size)(setq atnum:Size 1.0)) 
 (if(not atnum:Num)(setq atnum:Num 1)) 
 (setq  oldStart atnum:Num 
  oldSize atnum:Size  
  oldEcho(getvar "CMDECHO") 
  ); end setq 
 (setvar "CMDECHO" 0) 
 (setq atnum:Num 
   (getint 
     (strcat "\nSpecify start number <"(itoa atnum:Num)">: "))) 
 (if(null atnum:Num)(setq atnum:Num oldStart))
 (setq atnum:Size 
   (getreal 
     (strcat "\nSpecify block scale <"(rtos atnum:Size)">: "))) 
 (if(null atnum:Size)(setq atnum:Size oldSize))
 (if atnum:Block(setq oldBlock atnum:Block))
 (setq temBl
 (entsel(strcat "\nSelect block <"
         (if atnum:Block atnum:Block "not difined") "> > "))); end setq
 (cond
   ((and atnum:Block(not temBl)(tblsearch "BLOCK" atnum:Block))
   (setq atnum:Block oldBlock)
    ); end condition #1
   ((= 1(cdr(assoc 66(entget(car temBl)))))
   (setq atnum:Block(cdr(assoc 2(entget(car temBl)))))
   ); end condition #2
   (t
    (princ "\nBlock not contains attribute! ")
    (setq atnum:Block nil)
    ); end condition #3
   ); end cond
 (if atnum:Block
   (progn
     (princ "\n>>> Pick insertion point or press Esc to quit <<<\n ")
(while T  
 (command "-insert" atnum:Block "_s" atnum:Size pause "0"(itoa atnum:Num))
   (setq atnum:Num(1+ atnum:Num)) 
 ); end while
     ); end progn
   ); end if
 (princ) 
 ); end of c:atnum