;;;								;
;;; Opent een dxf bestand					;
;;; en slaat het op als een dwg in AutoCAD 2000 formaat		;
;;;								;
(defun C:DxfToDwg (/ path teknaam dwg)
   (setq path (getvar "dwgprefix"))
   (setq teknaam (substr (getvar "dwgname")
			 1
			 (- (strlen (getvar "dwgname")) 4)
		 )
   )
   (setq dwg ".dwg")
   (command
      "filedia"
      "0"
   )
   (command
      "zoom"
      "e"
   )
   (command
      "saveas"
      "2000"
      (strcat path teknaam dwg)
   )
   (command
      "filedia"
      "1"
   )
)

 ;|«Visual LISP© Format Options»
(80 3 1 2 nil "end of " 60 9 0 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;