;;;CHP - change of the absolute (kept) way of rasters and XREF's
(defun C:chp
( / what to pat
) (defun BrowseFolder
( / ShlObj Folder FldObj OutVal
) Folder
(vlax-invoke-method ShlObj 'BrowseForFolder
0 "Locate a folder with bitmaps and drawings" 0))OutVal)
(initget "?????? Image ???????? Xref ??? All ?????? Undo _Image Image Xref Xref All All Undo Undo") "\n???????? ???? [??????/????????/???/??????] <???> :"
"\nΕπανακαθορισμός διαδρομής Φακέλου [Image/Xref/All/Undo] <All> :")))
(cond ((= what
"Image")(setq pat
1))((= what
"Xref")(setq pat
2))((= what
"Undo")(setq pat
nil)) (defun lib:massoc
(key alist
) ;;; to - ???? ???? ( a way where)
;;;pat - ????? 1 - ?????? 2 - ?? ?????? (the sum 1 - rasters 2 - xrefs)
;;;(logand pat 1)=1 - Image
;;;(logand pat 2)=2 - Xref
(defun mip_ch_path
( to pat
/ files sset item_list
*error* ipath
) (setq files
(z
-files
-in
-directory to
"*.*" nil)) (if *list
-layer
-status
* (setq *list
-layer
-status
* nil)) ;_ end of if (setq *list
-layer
-status
* (append *list
-layer
-status
* ;;(setq to (lib:BrowseFolder))
))
)
)
)
))
(if (setq sset
nil sset
(ssget "_X" '
((0 .
"INSERT")))) )
(princ ipath
)))))) item_list
) ))
;|=============================================================================
* ??????? z-files-in-directory ?????????? ?????? ?????? ??????????? ? ????????
* ??????????
* ????? : ?????? ??????? (ZZZ)
* ?????????:
* directory ???? ? ????? ???????? "D:\\??? ?????????\\ZEF\\Lisp"
* pattern ?????? ???????? "*.lsp" ??? ?????? '("*.dwg" "*.dxf")
* nested ?????? ? ????????? ??????: t (??) ??? nil (???)
* ?????? ??????:
(z-files-in-directory "D:\\??? ?????????\\ZEF\\Lisp" "*.dwg" t)
(z-files-in-directory "D:\\??? ?????????\\ZEF\\Lisp" '("*.dwg" "*.dwt") t)
=============================================================================|;
(defun z
-files
-in
-directory
(directory pattern nested
/) pattern nested))