求助：如何利用vba实现将当前图形输出为.sat 的格式的文件

lanhuazhang

请教各位，如何利用vba实现将当前图形输出为.sat 的格式的文件

[此贴子已经被作者于2003-2-20 22:29:16编辑过]

[此贴子已经被作者于2003-2-20 22:30:11编辑过]

南子

Sub main()
Dim acadapp As AcadApplication
Dim thisdrawing As AcadDocument
Set acadapp = GetObject(, "autocad.application.15")
Set thisdrawing = acadapp.ActiveDocument
Dim sel As AcadSelectionSet
Set sel = thisdrawing.ActiveSelectionSet
sel.Select acSelectionSetAll
thisdrawing.Export "c:\xx.sat", "sat", sel
End Sub

(defun c:main (/ activeselectionset thisdrawing)
  (vl-load-com)
  (setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))
  (setq activeselectionset (vla-get-activeselectionset thisdrawing))
  (vlax-invoke-method
    activeselectionset
    "select"
    acSelectionSetAll
  )
  (vlax-invoke-method
    thisdrawing        "Export" "c:\\xxx.sat" "sat" activeselectionset)
  (vlax-release-object activeselectionset)
  (vlax-release-object thisdrawing)
)

lanhuazhang

多谢赐教