[编程交流] 全部缩放-不起作用

(command "zoom" "a")(princ)

   (princ "\n\n   Start initializatons to dwg ...")   ; Note status
  (command "undo" "9")                               ; Undo extra added stuff
  (command "zoom" "a")(princ)                        ;_zoom all
  (command "insunits" "1")(princ)                    ; drawing-units value set to "inch
  (command "units" "4" "16" "2" "3" "0" "N")         ; change to architectural units
  (princ)                                            ;
  (princ "\n   Move BOM data to TEXT layer ...")     ; Note status
  (setq mypath (getvar "dwgprefix"))                 ; Read and set current directory path
  (setq mylisp "SetWinToLayerTEXT.lsp")              ; Set the lisp routine name
  (setq mypatlsp (strcat mypath mylisp))             ; Set the path/file of the lisp routine name
  (load mypatlsp)                                    ; Load the lisp routine
  (c:SetWinToLayerTEXT)                              ; Run the lisp routine
  (princ "\n   Move Layer 0 data to FIC layer ...")  ; Note status
  (setq mylisp "ChgLay0toFIC.lsp")                   ; Set the lisp routine name
  (setq mypatlsp (strcat mypath mylisp))             ; Set the path/file of the lisp routine name
  (load mypatlsp)                                    ; Load the lisp routine
  (c:ChgLay0toFIC)                                   ; Run the lisp routine
  (princ "\n   Find/move DIMLDR data to TEXT layer") ; Note status
  (setq mylisp "DIMLDRtoTEXT.lsp")                   ; Set the lisp routine name
  (setq mypatlsp (strcat mypath mylisp))             ; Set the path/file of the lisp routine name
  (load mypatlsp)                                    ; Load the lisp routine
  (c:DTT)                                            ; Run the lisp routine
  (princ "\n   Explode all DIMLDR blocks        ")   ; Note status
  (setq mylisp "ExplodeDimldrBlocks.lsp")            ; Set the lisp routine name
  (setq mypatlsp (strcat mypath mylisp))             ; Set the path/file of the lisp routine name
  (load mypatlsp)                                    ; Load the lisp routine
  (c:EDB)                                            ; Run the lisp routine
  (princ "\n   Delete all ATTDEF with large text")   ; Note status
  (setq mylisp "DeleteBigText.lsp")                  ; Set the lisp routine name
  (setq mypatlsp (strcat mypath mylisp))             ; Set the path/file of the lisp routine name
  (load mypatlsp)                                    ; Load the lisp routine
  (c:DBT)                                            ; Run the lisp routine
  (princ "\n   Read Title Block Data and set ....")  ; Note status
  (setq mylisp "UpdateTitleblockV1-9.lsp")           ; Set the lisp routine name
  (setq mypatlsp (strcat mypath mylisp))             ; Set the path/file of the lisp routine name
  ;(load "P:\\CADWorx\\Project.Models\\Lyondell\\Piping.Iso\\UpdateTitleblockV1-9.lsp")
  (load mypatlsp)                                    ; Load and autorun the lisp routine
  (princ "\nAutoLISP Title Block file loaded.")      ; Note status
  (command "zoom" "a")(princ)                        ;_zoom all
  (princ "\n\n   ========================================\n\n")
(princ)