求高手帮我学完整，这个小程序，谢谢了

wei15007676360

;;去除教育版打印戳记
(defun    out(/ HOLDLSP HOLDECHO dwg dxf AcadObject AcadDocument mSpace DOCS docName OldFileName NewFileName VlaFileName)
    ;(setq HOLDLSP (getvar    "ACADLSPASDOC"))
    ;(setvar    "acadlspasdoc"    1)
    (setq HOLDECHO (getvar    "cmdecho"))
    (setvar    "cmdecho"    0)
    (setq dwg          (getvar    "DWGNAME")                  ;取当前文档名
          path         (getvar    "dwgprefix")                ;取当前文档路径
          dxf          (vl-string-subst    ".dxf"    ".dwg" dwg)    ;改文件扩展名
          AcadObject   (vlax-get-acad-object)
          AcadDocument (vla-get-ActiveDocument Acadobject)
          mSpace       (vla-get-ModelSpace Acaddocument)
   
          DOCS         (vla-get-documents Acadobject)
          docName      (vla-get-FullName AcadDocument)

          OldFileName  (strcat path dxf)

          NewFileName  (strcat path "New_"    (vl-string-subst    ".dwg"    ".dxf" dxf))

    )
    (command    "wblock"    (strcat path dxf)    "16"    "*")          ;输出为dxf格式

    ;(vl-file-rename OldFileName NewFileName)               ;更改文件名（这样更改文件名其实格式是不对的，打开会出错）
    (setq VlaFileName (vla-open    (vla-get-documents    (vlax-get-acad-object)) OldFileName))  ;打开新文件
    (vla-saveas VlaFileName NewFileName (eval    (read    "acR16_DWG")))    ;或用(vla-saveas VlaFileName NewFileName);以新文件名另存
    (vl-file-delete OldFileName)  ;删除dxf文件
    ;(setvar    "acadlspasdoc" HOLDLSP)
    (setvar    "cmdecho" HOLDECHO)
    (command    "vbastmt"  "AcadApplication.activeDocument.close false ")    ;这一句必须放在最后
    (princ)