OPENING DWG to EDIT

1. Opening

https://www.cadtutor.net/forum/topic/32134-open-drawing-using-lisp/

(defun KM:OPEN ( / )
 (vl-load-com)
 ;
 (setq path_stamp_dwg "C:\\TEMP\\STAMP\\")
 (setq pref_stamp "STAMP_REFERENCE_DWG_")
 (setq date_stamp (getstring T "Specify date: "))
 (setq path_name_dwg (strcat path_stamp_dwg pref_stamp "(" date_stamp ").dwg"))
 ;
 (if
   (= 0 (getvar "SDI"))
    (vla-activate
      (vla-open (vla-get-documents (vlax-get-acad-object))
        path_name_dwg
        :vlax-false
      )
    )
 )
 (princ)
)