[编程交流] 简单绘图计数/总Rou

(DEFUN C:DWG()
(SETQ COUNT (GETSTRING "\nHow many drawings do you have? "))
(SETQ COUNTUP 1)
(setq oldlayr (getvar "clayer"))
(setq t_size 0.08)
 (REPEAT (ATOI COUNT)
  (SETQ DWGOF (STRCAT "DWG " (TRIM (ITOA COUNTUP)) " OF " (TRIM COUNT)))
  (setq point (getpoint "\nPick Text Placement: "))
  (command "layer" "s" "text" "")
  (command "._text" "L" point t_size "0" DWGOF)
  (COMMAND "MOVE" "L" "" "0,0" "0,.05")
  (SETQ COUNTUP (1+ COUNTUP))
 )
(SETVAR "CLAYER" OLDLAYR)
(PRINC))

(defun C:DWG ([color=red] / count countup oldlayr t_size dwgof point[/color] ) ; [b] <<- ALWAYS LOCALISE YOUR VARIABLES UNLESS YOU KNOW WHAT YOU'RE DOING! [/b]
 [color=red](and[/color]
   [color=red](progn (initget (+ 2 4))[/color] (setq count ([color=red]getint[/color] "\nHow many drawings do you have? <exit> ")) [color=red])[/color]
   [color=red](if (not trim) (prompt "The "trim" subfunction is not defined.") T)[/color]
   (setq countup 1)
   (setq oldlayr (getvar "clayer"))
   (setq t_size 0.08)
   [color=red](progn[/color]
     (repeat [color=red]count[/color]
       (setq dwgof (strcat "DWG " (trim (itoa countup)) " OF " (trim [color=red](itoa[/color] count[color=red])[/color])))
       [color=red](cond [/color]
         ( (setq point (getpoint "\nPick Text Placement <next>: "))
           (command "[color=red]._-[/color]layer" "s" "text" "")
           (command "[color=red]._-[/color]text" "L" point t_size "0" DWGOF)
           (command "[color=red]._-[/color]MOVE" "L" "" "0,0" "0,.05")
           (setq countup (1+ countup))
         )
       [color=red]); cond [/color]
     )
     (setvar "clayer" oldlayr)
   [color=red]); progn[/color]
 [color=red]); and[/color]
 (princ)
)

(defun c:foo (/ _maketext r o n s ll)
 ;; Creates text "SHEET X OF X" on each paper space tab at 0,0,0
 ;; RJP - 06.28.2017
 (defun _maketext (space point string height width rotation layer)
   (if        point
     (entmakex        (list '(0 . "TEXT")
              '(100 . "AcDbEntity")
              (cons 8 layer)
              (cons 410 space)
              '(100 . "AcDbText")
              (cons 10 (trans point 1 0))
              (cons 40 height)
              (cons 1 string)
              (cons 50 rotation)
              (cons 41 width)
              '(72 . 1)
              (cons 11 (trans point 1 0))
              '(73 . 2)
        )
     )
   )
 )
 (and (setq r (cdr (assoc -1 (dictsearch (namedobjdict) "acad_layout"))))
      (setq o (itoa (length (setq ll (layoutlist)))))
      (foreach        l ll
 (setq n (itoa (cdr (assoc 71 (dictsearch r l)))))
 (if (setq s (ssget "x" (list '(0 . "text") '(8 . "Sheet_Numbers") (cons 410 l))))
   (entmod (subst (cons 1 (strcat "SHEET " n " OF " o))
                  (assoc 1 (entget (ssname s 0)))
                  (entget (ssname s 0))
           )
   )
   (_maketext l '(0 0 0) (strcat "SHEET " n " OF " o) 0.125 1 0.0 "Sheet_Numbers")
 )
      )
 )
 (princ)
)