以下VBA代码是Matt W在AutoLISP线程中提交的:
“对所有打开的图纸执行命令”。
如果当前图纸是打开的图纸列表中的最后一个,则效果很好,否则会崩溃。
我不精通VBA,需要一些修改VBA代码的帮助来执行以下操作:
1.在打开的图纸列表中确定当前图纸的iDwgCnt。
2.在For each循环中跳过此iDwgCnt图纸。
3.循环结束后,执行当前图纸上跳过的两行。
提前感谢。
:丑陋:Terry Cadd:loco:
- Option Explicit
- Public Const AppName = "VBA Thing-a-ma-jig"
- Public Sub Main()
- Dim oDwg As AcadDocument
- Dim oAcad As AcadApplication
- Dim iDwgCnt As Integer
- Set oAcad = AcadApplication.Application
- iDwgCnt = 0
- For Each oDwg In oAcad.Documents
- oAcad.Documents.Item(iDwgCnt).Activate
- oDwg.SendCommand "(load ""VBA.lsp"")" & vbCr & "VBA" & vbCr
- iDwgCnt = iDwgCnt + 1
- Next oDwg
- MsgBox "Done!", vbInformation + vbOKOnly, AppName
- End Sub
- ;-----------------------------------------------------
- (defun C:VBA ( / ); These commands may be customized as needed.
- (command "tilemode" 1)
- (command "zoom" "e")
- (command "qsave")
- (princ)
- )
本帖以下内容被隐藏保护;需要你回复后,才能看到! 游客,如果您要查看本帖隐藏内容请 回复 |