批量将DWG转为SLD

aicr317

这个文件是网上找到的，但好像有点问题，请高手帮忙解决下，谢谢！

(defun C:DWG2SLD (/ ACADOBJ DOC DWG_DIR DWG_LST NAME SDI)
  ;;By carrot1983
  (defun CJW-FILE-GET (MSG / WINSHELL SHFOLDER PATH CATCHIT)
    (setq WINSHELL (vlax-create-object "Shell.Application"))
    (setq
      SHFOLDER (vlax-invoke-method WINSHELL 'BROWSEFORFOLDER 0 MSG 1)
    )
    (setq
      CATCHIT (vl-catch-all-apply
        '(lambda ()
           (setq SHFOLDER (vlax-get-property SHFOLDER 'SELF))
           (setq PATH (vlax-get-property SHFOLDER 'PATH))
         )
          )
    )
    (if    (vl-catch-all-error-p CATCHIT)
      NIL
      PATH
    )
  )
  (princ
    "\n将CAD图形DWG文件批量转成幻灯片(DWGTOSLD) By carrot1983 2009-05-10"
  )
  (setvar "CMDECHO" 0)
  (alert "\n注意: 备份原图!!!")
  (if (and (setq DWG_DIR (CJW-FILE-GET "选择DWG文件夹"))
       (setq DWG_LST (vl-directory-files DWG_DIR "*.DWG" 1))
      )
    (progn
      (foreach DWG DWG_LST
    (if (setq SS (ssget "x"))
      (command "._ERASE" SS "")
    )
    (setq DWG (strcat DWG_DIR "\" DWG))
    (setq SLD (strcat DWG_DIR "" (vl-filename-base DWG) ".sld"))
    (command ".-INSERT" DWG "_NON" '(0. 0. 0.) "1" "1" "0")
    (command "._ZOOM" "_E")
    (command "._MSLIDE" SLD)
    (print SLD)
      )
      (alert "程序完毕 <DWG2SLD>")
      (command "._BROWSER" "http://carrot1983.blog.sohu.com/")
    )
  )
  (princ)
)

carrot1983

哪里找的，就在哪里问。

http://www.xdcad.net/forum/showthread.php?s=&postid=3415670#post3415670

http://carrot1983.blog.sohu.com/116108270.html