打开新的 dwg （ 从 lisp 转换 ）

(defun c:openC ( / cur_dir fo )
  ;; open a dwg from the dir of the current dwg
  (setq cur_dir (getvar "dwgprefix")); path
  (if (setq fo (getfiled "Open Drawing" cur_dir "dwg" 8))
    (command "vbastmt"
             (strcat
               "AcadApplication.Documents.Open"
               (chr 34)cur_dir fo(chr 34)", false"
               )
             )
    )
  (princ)
  )