(defun C:DWG
-FOLDER
-SAVE
-AS
-ACAD
-2000 (/ a2k
-dwg obj
-dbx result src
-dwg
-lst tmp x
)
; (setenv "DefaultFormatForSave" "12")
)
(if (setq tmp
(dcl
-browsefolder
" select a folder :" *dsa2k
-path
*)) )
)
)
)
)
)
)
)
)
; (setenv "DefaultFormatForSave" "12") !
ac2000_dwg
)
)
)
result
)
(defun C:DFS2K
() (C:DWG
-FOLDER
-SAVE
-AS
-ACAD
-2000))