[编程交流] 布局处理

(if (< numero 10)
        (progn
        (setq numero (strcat "0" (itoa numero)))
        (command "_layout" "d" numero)
        )
        (progn
        (setq numero (itoa numero))
        (command "_layout" "d" numero)
        )
)

; change the 410 to layout name
;;-------------------=={ Parse Numbers }==--------------------;;
;;                                                            ;;
;;  Parses a list of numerical values from a supplied string. ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - [url="http://www.lee-mac.com"]www.lee-mac.com[/url]       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  s - String to process                                     ;;
;;------------------------------------------------------------;;
;;  Returns:  List of numerical values found in string.       ;;
;;------------------------------------------------------------;;
(defun LM:ParseNumbers ( s )
 (
   (lambda ( l )
     (read
       (strcat "("
         (vl-list->string
           (mapcar
             (function
               (lambda ( a b c )
                 (if
                   (or
                     (< 47 b 58)
                     (and (= 45 b) (< 47 c 58) (not (< 47 a 58)))
                     (and (= 46 b) (< 47 a 58) (< 47 c 58))
                   )
                   b 32
                 )
               )
             )
             (cons nil l) l (append (cdr l) (list nil))
           )
         )
         ")"
       )
     )
   )
   (vl-string->list s)
 )
)
(defun getline1-2 ()
 (if (= tabname (nth 0 plotabs))
   (progn
     (foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 0 )) 'getattributes)
       (if (= oldtag6 (strcase (vla-get-tagstring att)))
       (setq newstr6 (vla-get-textstring att)) 
       )
     )
   
     (foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 0 )) 'getattributes)
       (if (= oldtag7 (strcase (vla-get-tagstring att)))
       (setq newstr7 (vla-get-textstring att)) 
       )
     )
   )
 )
)
;(defun ah:sheetupdate1 (ss1 lay plotabs tabname dwgname)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-Layouts doc)
 (setq plotabs (cons (vla-get-name lay) plotabs))
)
(setq plotabs (vl-sort plotabs '<))
(setq len (length plotabs))
(getline1-2) ; gets line 1&2 if not needed
(setq title "Please enter dwg number")
(setq width "   edit_width = 15;")
(setq limit "     edit_limit = 12;")
(ah:getval title width limit)
(setq dwgname item)
(setq TITLE "Please enter version for all sheets <Cr> no change ")
(setq width "   edit_width = 8;")
(setq limit "     edit_limit = 5;")
(ah:getval title width limit)
(setq NEWSTR4 item)
(setq TITLE "Do you want to use line 1 on all sheets OK no change any key for y")
(setq width "   edit_width = 6;")
(setq limit "     edit_limit = 3;")
(ah:getval title width limit)
(if (= item nil)
(setq NEWSTR6 nil)
(setq NEWSTR6yn "y")
)
(setq TITLE "Do you want to use line 2 on all sheets OK no change any key for y")
(setq width "   edit_width = 6;")
(setq limit "     edit_limit = 3;")
(ah:getval title width limit)
(if (= item nil)
(setq NEWSTR7 nil)
(setq NEWSTR7yn "y")
)
(setq x 0)
(setq bname "DA1DRTXT")
(repeat len
 (setq tabname (nth x plotabs))
 (if (/= tabname "Model")
   (progn
     (setvar "ctab" tabname)
     (setq ss1 (ssget "x"  (list (cons 0 "INSERT") (cons 2 bname)(cons 410 tabname))))
     (setq dwgnum (Lm:parsenumbers tabname))
     (setq sheetnum (car dwgnum))
     (setq oldtag1 "SHT_NO") ;attribute tag name
     (setq newstr1 (rtos sheetnum 2 0))
     (setq oldtag2 "DRG_NO") ;attribute tag name
     (setq oldtag3 "PROJ_NO") ;attribute tag name
     (setq newstr3 dwgname)
     (setq oldtag4 "REV_NO") ;attribute tag name
     (setq oldtag6 "PROJECT_TITLE")
     (setq oldtag7 "PROJECT_DESCRIPTION")
     (getline1-2) ; gets line 1&2 if not needed
; if less than 10
   (if (< (car dwgnum) 10.0) 
     (setq newstr2 (strcat dwgname "-D0"  (rtos sheetnum 2 0)))
     (setq newstr2 (strcat dwgname "-D"  (rtos sheetnum 2 0)))
   )
     (foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 0 )) 'getattributes)
       (if (= oldtag1 (strcase (vla-get-tagstring att)))
       (vla-put-textstring att newstr1) 
       ) ; end if
       (if (= oldtag2 (strcase (vla-get-tagstring att)))
       (vla-put-textstring att newstr2) 
       ) ; end if
       (if (= oldtag3 (strcase (vla-get-tagstring att)))
       (vla-put-textstring att newstr3) 
       ) ; end if
       (if (and (/= version nil) (= oldtag4 (strcase (vla-get-tagstring att))) )
       (vla-put-textstring att newstr4) 
       ) ; end if 
       (if (and (/= newstr6yn "Y") (= oldtag6 (strcase (vla-get-tagstring att))) )
       (vla-put-textstring att newstr6) 
       ) ; end if 
       (if (and (/= newstr7yn "Y") (= oldtag7 (strcase (vla-get-tagstring att))) )
       (vla-put-textstring att newstr7) 
       ) ; end if 
      ) ; end foreach
   ) ; end progn
) ; end if
(setq x (+ x 1))
) ; end repeat
(setq ss1 nil)  
(setq plotabs nil)
; end defun ah
(princ)

(setq ss (ssget "x" '((0 . "INSERT")(2 . "CARIMBO")(410 . LAYOUTNAME))))

(setq pt1 '(989.303 304.802))
(setq pt2 '(1150.43 116.243))
(foreach y (layoutlist)
(setvar 'ctab y)
(setq ss (ssget "W" pt1 pt2 '((0 . "TEXT"))))
;some codding here
)