处理DWG，保存文件清除EMR教育版打印戳记，需安装XDRX API 晓东工具箱

455383153

根据http://bbs.xdcad.net/forum.php?m ... hlight=%BD%CC%D3%FD批量去教育版修改的。
文件保存时就去教育版。
(defun remove (reactor-object parameter-list)
  (defun _check()
    (if (> (atof (getvar "acadver")) 19.0)
      (progn
        (xdrx_prompt "\n请在AutoCAD 2004-2014下面执行.")
        (exit)
      )
    )
    (if        (or (not xdrx_document_apifullpath) (not (= (type xdrx_document_apifullpath) 'EXRXSUBR)))
      (progn (princ "\n请加载XDRX API再执行.") (exit))
    )
    (if        (or (not xd::vla:odbx) (not (= (type xd::vla:odbx) 'SUBR)))
      (progn (princ "\n请加载晓东通用LISP函数库再执行.") (exit))
    )
    t
  )
  (defun XD::ODBX:SetWorkingDatabase (doc / lay e db)
  (setq lay (vla-item (vla-get-layers doc) "0"))
  (setq e (vlax-vla-object->ename lay))
  (xdrx_database_setpropertyvalue e "clayer" "0")
  (setq db (xdrx_database_select e))
   )
  ;main
    (defun _main ()
     (_check)
    (xdrx_begin)
    (setq doc (VLA-Get-ActiveDocument (VLAX-Get-Acad-Object)))
    (setq db (XD::ODBX:SetWorkingDatabase doc))
    (if (xdrx_database_isemr db)
      (progn
        (xdrx_database_removeemr db)
        (vla-save doc)
        (xdrx_prompt " 发现EMR标记，清除完毕.")
      )
      (xdrx_prompt " 未发现EMR标记.")
    )
    (xdrx_database_select)
    (xdrx_end)
      )
     (_main)
    (princ)
    (princ)
  )
(vlr-dwg-reactor nil '((:vlr-beginSave . remove)))
需要加载XDRX API 晓东工具箱
程序可以运行但会提示 这个错误XDAPIARX_ERROR: eInvalidInput

yangjian001

做一个热心并受欢迎的人

kqqt6236

谢谢分享。

qht5566

如果想在2016下用怎么办

455383153

qht5566 发表于 2018-9-17 22:37
如果想在2016下用怎么办

15以上的高版本没有教育版了

qht5566

455383153 发表于 2018-9-18 12:01
15以上的高版本没有教育版了

嗯，我知道，其实2014SP1就已经没有提示和打印戳记了，但戳记其实并没有去除，用低版本还是会提示。
另外一个需求就是，我们单位是在服务器协同作图，有些人用的还是低版本，但整理和清理图纸的事还是我自己弄，如果需要批量去除戳记再发出去，因为没装低版本的话得到其它人的电脑上操作。

455383153

qht5566 发表于 2018-9-21 09:20
嗯，我知道，其实2014SP1就已经没有提示和打印戳记了，但戳记其实并没有去除，用低版本还是会提示。
另 ...

批量用这个http://bbs.xdcad.net/forum.php?m ... hlight=%C5%FA%C1%BF