|
|
发表于 2003-2-21 09:31:00
|
显示全部楼层
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)
) |
|
置顶卡
