-
-
Notifications
You must be signed in to change notification settings - Fork 240
/
dxf-allcvt.lsp
87 lines (84 loc) · 4.06 KB
/
dxf-allcvt.lsp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
;*****************************************************************************/
;* LibreDWG - free implementation of the DWG file format */
;* */
;* Copyright (C) 2018, 2020 Free Software Foundation, Inc. */
;* */
;* This library is free software, licensed under the terms of the GNU */
;* General Public License as published by the Free Software Foundation, */
;* either version 3 of the License, or (at your option) any later version. */
;* You should have received a copy of the GNU General Public License */
;* along with this program. If not, see <http://www.gnu.org/licenses/>. */
;*****************************************************************************/
;
;;; dxf-allcvt.lsp: DXFIN all generated dxf files
;;; first load a dwg (not a dxf) from the root dir manually to set the DWGPREFIX path.
;;; written by Reini Urban
;;; Usage: ./dxf-allcvt.sh
;;; OPEN libredwg/Drawing_2000.dwg
;;; (load (strcat (getvar "DWGPREFIX") "dxf-allcvt.lsp"))
;;; DXF-ALLCVT *_r14.dxf
;;; Ignore all Duplicate warnings. close-all-but does not work from alisp,
;;; vla-com not from mac, and purge is too noisy
(setvar "FILEDIA" 1)
(defun close-all-but (file)
(while (/= (getvar "DWGNAME") file)
(command "_.CLOSE" "N")
(command)
)
)
(defun C:dxf-allcvt (/ match files prompt erase)
(setvar "FILEDIA" 0)
;(setvar "CMDDIA" 1)
(setvar "CMDECHO" 1)
(setvar "LOGFILEMODE" 1)
(command) ; break an active command
(setq active (getvar "DWGNAME"))
(setq path (getvar "DWGPREFIX")) ; should end with libredwg
(setq all (vl-directory-files path "*.dxf" 1)) ; globbing does not work for me
(setq prompt (getstring "Optional prompt <N> : ")
prompt (if (and prompt (or (= prompt "Y") (= prompt "y"))) 1 nil))
(setq erase (getstring "Optional erase <N> : ")
erase (if (and erase (or (= erase "Y") (= erase "y"))) 1 nil))
(setq match (getstring "Optional match <*.dxf> : ")
match (if (or (not match) (= match "")) "*.dxf" match))
(setq files (apply 'append
(mapcar '(lambda (fn)
(if (wcmatch fn match)
(list fn) nil))
all)))
(foreach dxf files
(if (or (wcmatch dxf "SALLE_DES_MACHINES_2007.dxf") ; xdata TU hang
(wcmatch dxf "HARTA_E_PRISHTINES_2007.dxf") ; dbobji.cpp@306 assert
(wcmatch dxf "Leader_*.dxf") ; silent crashes (r13-2018)
(wcmatch dxf "1_*from_cadforum.cz_2004.dxf") ; dbobji.cpp@306 assert
(wcmatch dxf "3_*from_cadforum.cz_2004.dxf") ; dbobji.cpp@306 assert
(wcmatch dxf "V_[69]*from_cadforum.cz_2000.dxf") ; dbobji.cpp@306 assert
(wcmatch dxf "*_from_cadforum.cz_2004.dxf") ; silent crash
(wcmatch dxf "00_001_Z*.to_2004.dxf"); silent crash
(wcmatch dxf "Ashraf_B*_2000.dxf") ; silent crash. Meter works
(wcmatch dxf "budweiser_*_2000.dxf") ; silent crash
(wcmatch dxf "5151-0??_2010.dxf") ; silent crash
(wcmatch dxf "ACI_20160321_A_30_east_2010.dxf") ; silent crash
(wcmatch dxf "blocks_and_tables_-_metric_2007.dxf") ; silent crash. imperial works
)
(print (strcat dxf " skipped"))
(progn
(if prompt
(progn (getstring (strcat "Enter for next DXF " dxf ":"))
(command)))
(command "._DXFIN" (strcat path dxf))
(setvar "CMDECHO" 0)
;(close-all-but active)
; To trade annoying Duplicate Block warnings in the log with annoying PURGE msgs
(if erase
(progn
(command "._ERASE" "All" "")
(command "._PURGE" "All" "*" "N")))
(setvar "CMDECHO" 1)
;;;(command "._CLOSE")
)
)
)
(setvar "FILEDIA" 1)
(setvar "LOGFILEMODE" 0)
)