[编程交流] 简单VBA修改

(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-Layouts doc)
 (setq plotabs (cons (vla-get-name lay) plotabs))
)
; need to now do this (vla-put-name lay)

; 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)
 )
)

 
'-------------------------------------
' to prevent the main routine from acting when user only switched from one Layout to another
Dim JustSwitched As Integer
Private Sub AcadDocument_LayoutSwitched(ByVal LayoutName As String)
   JustSwitched = 1
End Sub
'-------------------------------------

    '-----------------------
   ' if only switching between Layouts, then do nothing
   If JustSwitched = 1 Then
       JustSwitched = 0
       Exit Sub
   End If
   '-----------------------

7

; 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) ))

; 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))))

    '-----------------------   ' if only switching between Layouts, then do nothing   If JustSwitched = 1 Then       JustSwitched = 0       Exit Sub   End If   '-----------------------

      If Layout.ModelType = False Then Layout.Name = prefixName & CStr(startNum + Layout.TabOrder) 

      If Layout.ModelType = False Then Layout.Name = prefixName & CStr(Format(startNum + Layout.TabOrder, "00")) ' keep trailing zeros