0 Members and 2 Guests are viewing this topic.
-insert SECT-MARKER=SECT-MARKER y [esc]-insert det-MARKER=det-MARKER y [esc]-insert BUB-DN-RIGHT=BUB-DN-RIGHT y [esc]ATTSYNC N *
(DEFUN c:test () (COMMAND "-insert" "CROSS2=c:/Alphabet Soup")(COMMAND) (COMMAND "-insert" "MARKER=c:/Alphabet Soup")(COMMAND) (COMMAND "ATTSYNC" "N" "*"))
(DEFUN c:test () (COMMAND "-insert" "SECT-MARKER=c:/SECT-MARKER") (COMMAND) (COMMAND "-insert" "det-MARKER=c:/det-MARKER") (COMMAND) (COMMAND "-insert" "BUB-DN-RIGHT=c:/BUB-DN-RIGHT") (COMMAND) (COMMAND "ATTSYNC" "N" "*"))
phx,forget the script for a moment .. what do you think this does ?Code: [Select](DEFUN c:test () (COMMAND "-insert" "CROSS2=c:/Alphabet Soup")(COMMAND) (COMMAND "-insert" "MARKER=c:/Alphabet Soup")(COMMAND) (COMMAND "ATTSYNC" "N" "*"))
(DEFUN c:Test-ReplaceBlock () (COMMAND "-insert" "SECT-MARKER=c:/SECT-MARKER") (COMMAND) (COMMAND "-insert" "det-MARKER=c:/det-MARKER") (COMMAND) (COMMAND "-insert" "BUB-DN-RIGHT=c:/BUB-DN-RIGHT") (COMMAND) (COMMAND "ATTSYNC" "N" "*"))
(DEFUN C:batch_Stuff ();;;;;;;;;;;;;;;;;;;;;;;;;Select directory to be processed (SETQ dfil (GETFILED "Select A File In The Directory You Want To Batch Process" "p:/" "dwg" 0 ) ) (SETQ wutdir (VL-FILENAME-DIRECTORY dfil)) (SETQ wutfiles (VL-DIRECTORY-FILES wutdir "*.dwg")) (SETQ scrfile (OPEN "c:\\scrfile.scr" "w")) (CLOSE scrfile) (SETQ scrfile (OPEN "c:\\scrfile.scr" "a")) (FOREACH n wutfiles (SETQ n2 (STRCAT "\"" wutdir "\\" n "\"")) (SETQ n2 (VL-STRING-TRANSLATE "\\" "\\" n2)) ;;(setq scrline (strcat "open" " " n2 " " "(load\"batch_core\")" " " "batch_insert" " " "qsave" " " "close"));;;;;;;COMMANDS FOR BATCH GO HERE (SETQ scrline (STRCAT "open" " " n2 " " "(load\"c:Test-ReplaceBlock\")" " " "Test-ReplaceBlock" " " "qsave" " " "close" ) ) (WRITE-LINE scrline scrfile) (PRINC) ) (CLOSE scrfile) (COMMAND "script" "c:\\scrfile") (PRINC "\n***Batch complete.***") (PRINC))
Yes, first example defines the blocksHow'd I do on second?Sorry I have go (6PM). Hopefully no traffic, kiss the wife, kick the kids, back in 45 min. PLs don't think I'm leaving, this is important to me & Thanks
Just curious, how long did it take to write batch_stuff?