mayuezxl 发表于 2020-4-17 15:04:29

如何用vba输出wmf格式的图片

各位大佬，能否告诉一下如何用vba编程输出wmf格式的图片

zzyong00 发表于 2020-4-17 20:24:24

sendcommand 调用 WMFOUT命令就行了

q1365466 发表于 2020-4-21 11:04:29

Sub Example_Export()
   Dim SSet As AcadSelectionSet
    For Each SSet In ThisDrawing.SelectionSets
      If SSet.Name = "SS1" Then
            ThisDrawing.SelectionSets.Item("SS1").Delete
            Exit For
      End If
    Next
    Set SSet = ThisDrawing.SelectionSets.Add("SS1")
SSet.SelectOnScreen
    Dim objEnt As AcadEntity

    For Each objEnt In SSet
      exportFile = "C:\AutoCAD\DXFExprt"
      ThisDrawing.Export exportFile, "wmf", SSet


End Sub

q1365466 发表于 2020-4-21 11:05:17

最后 少了个next

ZZC18858664123 发表于 2020-4-30 16:00:57

wmf不太清晰吧。发送到打印机指定文件夹。图片格式转换wmf？
页: [1]
查看完整版本: 如何用vba输出wmf格式的图片