admin 管理员组

文章数量: 1087834


2024年5月20日发(作者：switch菜单语句编写)

Sub 不打开文档打印()

Dim nam As String

nam = "临时"

Dim doc As AcadDocument

Set doc = (nam)

Dim mydoc

Pathname = "C:Userswzm1968yhmDesktop需要批量打印的图纸" '所有图需

放在桌面上的这个文件夹中

Dim fso As Object

Set fso = CreateObject("stemObject")

Dim fd

Set fd = der(Pathname)

'MsgBox

For Each thing In

'MsgBox

If Right(, 3) = "bak" Then

End If

Next

For Each thing In

'MsgBox

Set mydoc = (Pathname & "" &

)

te

'MsgBox

Dim mygroup As AcadGroups

Dim pMin, pMax As Variant

Dim tpMin, tpMax As Variant


本文标签： 语句 菜单 需要 桌面上 批量

版权声明：本文标题：不打开cad文档打印批量文件(依据编组图框) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1716195158a692028.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。