Topic: How likes the VBA cut file Windows?

[hunterxyz]

When general operation,
may use the ctrl+tab cut file,
but utility program operation,
in VBA method like under code,
how but should compile in LISP?

I have compiled under the procedure,
But not good use,
requests fellow masters help to explain  Thanks!

Code: [Select]

Sub Example_ActivateMethod()   
  Dim drawing As AcadDocument
  For Each drawing In ThisDrawing.Application.Documents
      drawing.Activate
      MsgBox "Drawing " & drawing.Name & " is active."
      ZoomExtents     
  Next drawing 
End Sub


Code: [Select]

(setq $acad (vlax-get-acad-object))
(setq adtt (vla-get-activedocument $acad))
(setq docs (vla-get-documents $acad))

(vlax-for X docs
(VLA-ACTIVATE X)
(vla-ZoomExtents X)
(setq FName (vla-get-Name X))
(print FName)
)


[CAB]

I think it is next to impossible using lisp.

See this thread:
http://www.theswamp.org/index.php?topic=14881.msg181239#msg181239

[VovKa]

not a good way but it will work

Code: [Select]

(vlax-for X docs (vla-SendCommand X "._ZOOM _E "))
then press and hold Ctrl+Tab for a second