(vlax-for i (vla-get-Blocks doc)
(if
(and
(= (vla-get-IsXref i) :vlax-true)
(or
(wcmatch (strcase (setq tempName (vla-get-Name i))) (strcase str))
(= str "")
)
)
(setq tempList (cons tempName tempList))
)
)
tempList
)
;-------------------------------------------------
(defun Directory-Dia ( Message / sh folder folderobject result)
;; By Tony Tanzillo
;; Modified by Tim Willey
;; 16 Will let you type in the path
;; 64 Will let you create a new folder
(vl-load-com)
(setq sh
(vla-getInterfaceObject
(vlax-get-acad-object)
"Shell.Application"
)
)
(setq folder
(vlax-invoke-method
sh
'BrowseForFolder
(vla-get-HWND (vlax-get-Acad-Object))
Message
0 ; This is the bit number to change.
)
)
(vlax-release-object sh)
(if folder
(progn
(setq folderobject
(vlax-get-property folder 'Self)
)
(setq result
(vlax-get-property FolderObject 'Path)
)
(vlax-release-object folder)
(vlax-release-object FolderObject)
(if (/= (substr result (strlen result)) "\\")
(setq result (strcat result "\\"))
result
)
)
)
)
;----------------------------------------------------------------
(defun MultiSelect (Listof Message Toggle / DiaLoad tmpStr tmpTog tmpList)
(setq DiaLoad (load_dialog "MyDialogs.dcl"))
(if (new_dialog "MultiSelect" DiaLOad)
(progn
(start_list "listbox" 3)
(mapcar 'add_list Listof)
(end_list)
(if Message
(set_tile "text1" Message)
)
(if (not Toggle)
(mode_tile "toggle1" 1)
)
(mode_tile "listbox" 2)
(action_tile "accept"
"(progn
(setq tmpStr (get_tile \"listbox\"))
(if Toggle
(setq tmpTog (get_tile \"toggle1\"))
)
(done_dialog 1)
)"
)
(action_tile "cancel" "(done_dialog 0)")
(if (= (start_dialog) 1)
(progn
(if tmpStr
(setq tmpList (read (strcat "(" tmpStr ")")))
)
(if (= tmpTog "1")
(cons T tmpList)
tmpList
)
)
)
)
)
)
;----------------------------------------------------------------
(if
(and
(setq CkStr (getstring "\n Enter name to check for
: "))
(setq DirPath (Directory-Dia "Select directory to search for xrefs."))
(setq DwgList (vl-directory-files DirPath "*.dwg" 1))
(setq DwgList (vl-sort DwgList '(lambda (a b) ( " msg))
)
)
;----------------------------------------------------------
(defun FindXrefs (doc str / tempName tempList)
(vlax-for i (vla-get-Blocks doc)
(if
(and
(= (vla-get-IsXref i) :vlax-true)
(or
(wcmatch (strcase (setq tempName (vla-get-Name i))) (strcase str))
(= str "")
)
)
(setq tempList (cons tempName tempList))
)
)
tempList
)
;-------------------------------------------------
(defun Directory-Dia ( Message / sh folder folderobject result)
;; By Tony Tanzillo
;; Modified by Tim Willey
;; 16 Will let you type in the path
;; 64 Will let you create a new folder
(vl-load-com)
(setq sh
(vla-getInterfaceObject
(vlax-get-acad-object)
"Shell.Application"
)
)
(setq folder
(vlax-invoke-method
sh
'BrowseForFolder
(vla-get-HWND (vlax-get-Acad-Object))
Message
0 ; This is the bit number to change.
)
)
(vlax-release-object sh)
(if folder
(progn
(setq folderobject
(vlax-get-property folder 'Self)
)
(setq result
(vlax-get-property FolderObject 'Path)
)
(vlax-release-object folder)
(vlax-release-object FolderObject)
(if (/= (substr result (strlen result)) "\\")
(setq result (strcat result "\\"))
result
)
)
)
)
;----------------------------------------------------------------
(defun GetAllFiles (dir ext / FileList)
(if (/= (substr dir (strlen dir)) "\\")
(setq dir (strcat dir "\\"))
)
(if (setq tempList (vl-directory-files dir ext 1))
(setq FileList (append FileList (mapcar '(lambda (x) (strcat dir x)) tempList)))
)
(if (setq tempList (cddr (vl-directory-files dir "*" -1)))
(foreach i tempList
(setq FileList (append FileList (GetAllFiles (strcat dir i) ext)))
)
)
FileList
)
;----------------------------------------------------------------
(if
(and
(setq CkStr (getstring "\n Enter name to check for
置顶卡
