[原创]：将CAD图形DWG文件批量转成SLD幻灯片

carrot1983

[php]
(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)
)
[/php][

c3a139

非常不错，支持原创！

carrot1983

用php代码贴出来有些问题。
上我博客。

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