Topic: DWG Batch Conversion with Lisp ?

[JohnK]

but I'm pretty sure you don't need that much code to do what you want (seems to be a saveas would be just fine).

what I need to do is more complex
the Lisp contained in the SCR file is just a piece of the real Lisp
because I made a (partial) copy and paste (and all very quickly)
For this reason you will have found pieces of code that seemed superfluous
...>%

I'm sorry but we cannot answer questions without knowing the entire question.

[Marc'Antonio Alessi]

I have been using a script file (SCR) like this for many years:

Code: [Select]

_.OPEN
"C:/Temp/A001.dwg"
(load "_SCR_BatchExe") ; here you can do anything you want as long as it doesn't break the script
(if(=(getvar "DBMOD")0)(command "_.CLOSE")(command "_.CLOSE" "_Y"))
_.OPEN
"C:/Temp/A002.dwg"
(load "_SCR_BatchExe") ; here you can do anything you want as long as it doesn't break the script
(if(=(getvar "DBMOD")0)(command "_.CLOSE")(command "_.CLOSE" "_Y"))
... etc.
_.NEW
"C:/Temp/End.dwt"
(load "_SCR_BatchEnd"); reset variables etc.
(_SCR_BatchEnd nil); reset variables etc.
(alert "Elaborazione conclusa correttamente.")
(princ "\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-")


[domenicomaria]

what is "_SCR_BatchExe" ?

[Marc'Antonio Alessi]

what is "_SCR_BatchExe" ?

a lisp File, can be .LSP . FAS/(.DES for BricsCAD)
it is a file that when loaded executes various types of instructions (print, modify, export...)

[domenicomaria]

I have been using a script file (SCR) like this for many years:

Code: [Select]

_.OPEN
"C:/Temp/A001.dwg"
(load "_SCR_BatchExe") ; here you can do anything you want as long as it doesn't break the script
(if(=(getvar "DBMOD")0)(command "_.CLOSE")(command "_.CLOSE" "_Y"))
_.OPEN
"C:/Temp/A002.dwg"
(load "_SCR_BatchExe") ; here you can do anything you want as long as it doesn't break the script
(if(=(getvar "DBMOD")0)(command "_.CLOSE")(command "_.CLOSE" "_Y"))
... etc.
_.NEW
"C:/Temp/End.dwt"
(load "_SCR_BatchEnd"); reset variables etc.
(_SCR_BatchEnd nil); reset variables etc.
(alert "Elaborazione conclusa correttamente.")
(princ "\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-")


and what do I have to do to run this script?
drag it into acad ?

[domenicomaria]

however a few minutes ago I managed to use ACCORECONSOLE
with a simple BAT file and with an SCR file which is a simple LSP file

...

and I have for the moment understood that
no ARXLOAD
no (command "opendcl")
no comments

[Marc'Antonio Alessi]

I have been using a script file (SCR) like this for many years:

Code: [Select]

_.OPEN
"C:/Temp/A001.dwg"
(load "_SCR_BatchExe") ; here you can do anything you want as long as it doesn't break the script
(if(=(getvar "DBMOD")0)(command "_.CLOSE")(command "_.CLOSE" "_Y"))
_.OPEN
"C:/Temp/A002.dwg"
(load "_SCR_BatchExe") ; here you can do anything you want as long as it doesn't break the script
(if(=(getvar "DBMOD")0)(command "_.CLOSE")(command "_.CLOSE" "_Y"))
... etc.
_.NEW
"C:/Temp/End.dwt"
(load "_SCR_BatchEnd"); reset variables etc.
(_SCR_BatchEnd nil); reset variables etc.
(alert "Elaborazione conclusa correttamente.")
(princ "\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-\n-")


and what do I have to do to run this script?
drag it into acad ?

(command "_.SCRIPT" "yourFile.scr") you can also Drag&Drop...

[Marc'Antonio Alessi]

however a few minutes ago I managed to use ACCORECONSOLE
with a simple BAT file and with an SCR file which is a simple LSP file

...

and I have for the moment understood that
no ARXLOAD
no (command "opendcl")
no comments

Do you know about ActiveX functions and accoreconsole?

[domenicomaria]

Do you know about ActiveX functions and accoreconsole?

this is the code to make the BAT file i need :

Code - Auto/Visual Lisp: [Select]

1. (defun :FILE-WRITE-ASCII (list-strings full-file-name / file-wstream )
2.    (setq file-wstream (open full-file-name "w") )
3.    (foreach item list-strings (write-line item file-wstream) )
4.    (close file-wstream )
5. )
6.  
7. (defun :ACC-MAKE-DIR-BAT (folder-path full-accoreconsole-name full-scr-name full-bat-name )
8.    (setq folder-path   (vl-string-right-trim "\\" folder-path) )
9.    (setq full-scr-name (vl-string-right-trim ".SCR" (strcase full-scr-name) ) )
10.    (:FILE-WRITE-ASCII
11.                         (list
12.                            "echo on"
13.                            ""
14.                            (strcat "set accoreexe=" "\""  full-accoreconsole-name "\"" )
15.                            ""
16.                             (strcat "set \"source=" folder-path "\"")
17.                            ""
18.                            (strcat "set script=" "\"" full-scr-name "\"")
19.                            ""
20.                            "FOR /f \"delims=\" %%f IN ('dir /b \"%source%\\*.dwg\"') DO %accoreexe% /i \"%source%\\%%f\" /s %script%"
21.                            ""
22.                            "pause"
23.                         )
24.                         full-bat-name
25.    )
26.    full-bat-name
27. )
28.  
29.  
30. (startapp full-bat-name)

and this is the SCRIPT ...

if you set  k-vla = t 
it doesn't work ! ... (it does nothing)

Code - Auto/Visual Lisp: [Select]

1. (setvar "layerfilteralert" 0)
2. (vl-load-com)
3. (setq k-vla nil)
4.  
5. (defun LM:DWGVERSION ( dwg / des vrs )
6.     (cond
7.         (   (not (and (setq dwg (findfile dwg) ) (setq des (open dwg "r") ) ) )
8.         )
9.         (   (wcmatch (strcase dwg t) "*`.dw[gst]")
10.             (setq vrs (strcase (substr (read-line des) 1 6)))
11.         )
12.         (   (wcmatch (strcase dwg t) "*`.dxf")
13.             (repeat 7 (read-line des))
14.             (setq vrs (strcase (read-line des)))
15.         )
16.     )
17.     (if (= 'file (type des)) (close des))
18.     (cdr
19.         (assoc vrs
20.            '(
21.                 ("AC1032" . "2018")
22.                 ("AC1027" . "2013-2015")
23.                 ("AC1024" . "2010-2012")
24.                 ("AC1021" . "2007-2009")
25.                 ("AC1018" . "2004-2006")
26.                 ("AC1015" . "2000-2002")
27.                 ("AC1014" . "Release 14")
28.                 ("AC1012" . "Release 13")
29.                 ("AC1009" . "Release 11/12")
30.                 ("AC1006" . "Release 10")
31.                 ("AC1004" . "Release 9")
32.                 ("AC1003" . "Release 2.60")
33.                 ("AC1002" . "Release 2.50")
34.                 ("AC1001" . "Release 2.22")
35.                 ("AC2.22" . "Release 2.22")
36.                 ("AC2.21" . "Release 2.21")
37.                 ("AC2.10" . "Release 2.10")
38.                 ("AC1.50" . "Release 2.05")
39.                 ("AC1.40" . "Release 1.40")
40.                 ("AC1.2"  . "Release 1.2")
41.                 ("MC0.0"  . "Release 1.0")
42.             )
43.         )
44.     )
45. )
46.  
47.  
48. (defun :LAYER-FILTERS-DELETE ()
49.    (vl-load-com)
50.    (vl-catch-all-apply
51.       '(lambda   ()
52.           (vla-remove
53.              (vla-getextensiondictionary (vla-get-layers (vla-get-activedocument (vlax-get-acad-object) ) ) )
54.              "AcLyDictionary"
55.           )
56.        )
57.    )
58.    (princ "\nAll layer filters have been deleted.")
59.    (princ)
60. )
61.  
62. (if k-vla (:LAYER-FILTERS-DELETE) )
63.  
64.  
65. (setenv "DefaultFormatForSave" "64")
66.  
67. (if k-vla (vla-save (vla-get-activedocument (vlax-get-acad-object))) (vl-cmdf "_qsave") )
68.  
69. (setq curr-dwg-name (getvar "dwgname") )
70. (setq curr-full-dwg-name (strcat (getvar "dwgprefix")  curr-dwg-name) )
71. (princ (strcat "\nthe " curr-dwg-name "\n version is : " (LM:DWGVERSION curr-full-dwg-name ) ) )
72.  
73.  
74. (setq new-dwg-name       (strcat (vl-filename-base (getvar "dwgname") ) "---[ACAD-2000].dwg") )
75. (setq new-full-dwg-name (strcat (getvar "dwgprefix")  new-dwg-name) )
76.  
77. (setenv "DefaultFormatForSave" "12")
78.  
79.  
80. (if k-vla
81.    (vla-SaveAs (vla-get-activedocument (vlax-get-acad-object)) new-full-dwg-name acR15_DWG)
82.    (if(findfile new-full-dwg-name )
83.       (setq cmd-r (vl-cmdf "_save" new-full-dwg-name "y") )
84.       (setq cmd-r (vl-cmdf "_save" new-full-dwg-name    ) )
85.    )
86. )
87.  
88.  
89. (if cmd-r
90.    (princ  
91.          (strcat   "\n\nsave as ACAD 2000 version : "
92.                   "\n\nThe active DWG has been saved as : \n\n< " (strcase new-dwg-name) " > ."
93.                   "\n\nIts verified version is : " (LM:DWGVERSION (strcat (getvar "dwgprefix") new-dwg-name ) )
94.          )
95.    )
96.    (princ (strcat "\n\nAn error occurred attempting to save \n\n< " new-dwg-name  " .")   )
97. )
98.  
99.  
100.  
101.  
102. (setenv "DefaultFormatForSave" "64")
103.  
104.  
105. (if k-vla
106.    (vla-close (vla-get-activedocument (vlax-get-acad-object)) :vlax-false)
107.    (vl-cmdf "close")
108. )
109.  

consider that in the script there are some superfluous instructions
because I used this code in the defun s::startup
to perform the same task in a different way.

Because by changing S::STARTUP in acaddoc.lsp there are NO LIMITS !

But ACCORECONSOLE is much faster because it doesn't have a graphical interface ...

[domenicomaria]

and NO special character in the file and path names
such as    °
(that are allowed in windows)

[domenicomaria]

however the code strictly necessary for the script is only that below :

Code - Auto/Visual Lisp: [Select]

1.    (setenv "DefaultFormatForSave" "64")
2.  
3.    (vl-cmdf "_qsave")
4.  
5.    (setq curr-dwg-name (getvar "dwgname") )
6.    (setq curr-full-dwg-name (strcat (getvar "dwgprefix")  curr-dwg-name) )
7.  
8.    (setq new-dwg-name      (strcat (vl-filename-base (getvar "dwgname") ) "---[ACAD-2000].dwg") )
9.    (setq new-full-dwg-name (strcat (getvar "dwgprefix")  new-dwg-name) )
10.  
11.    (setenv "DefaultFormatForSave" "12")
12.    
13.    (if(findfile new-full-dwg-name )
14.       (setq cmd-r (vl-cmdf "_save" new-full-dwg-name "y") )
15.       (setq cmd-r (vl-cmdf "_save" new-full-dwg-name    ) )
16.    )
17.  
18.    (setenv "DefaultFormatForSave" "64")

[Marc'Antonio Alessi]

@Domenico: have you never tried the vlax-...   functions in Core Console?

[domenicomaria]

Not for the moment ...
... soon i will give it a try

ciao

[kdub_nz]

I thought vlax-.. didn't work in accoreconsole.

?? has that changed ?

or have I been delusional for the last 12 (or so ) years. 

[domenicomaria]

@Domenico: have you never tried the vlax-...   functions in Core Console?

sorry... it doesn't work... as expected...

so ACCORECONSOLE can be very useful on many occasions
but there are also many limitations to take into account...