plotten directory

[rthoonsen]

Ik zit met een probleem.....
ik probeer uit een listbox het aantal geselecteerde dwg bestanden te plotten met dit zoals hier onder.
ik kan hier wel een script bestand van maken dat hij wegschrijft.
met alle configuratie van dien.
maar hoe nu als ikhet  van uit hier wil plotten

Private Sub btnPlotPDF_Click()
   Dim i As Integer
   Dim curDWG As String
   Dim rtval As Boolean
   Me.lstFiles.List = InvertList
   Me.Hide
   With lstFiles
       For i = 0 To .ListCount - 1
               If Not ThisDrawing.Saved Then
                   ThisDrawing.Save
               End If
               curDWG = ThisDrawing.path & "\" & .List(i)
               ThisDrawing.Open (curDWG)
       ThisDrawing.Plot
       
       'hier moet dus de instellingen komen ?
   




       Next i
   End With
   Me.Show vbModal
End Sub

[Joop]

Dan zul, je het als "stand alone" moeten programmeren, en niety vanuit Acad.
Je kunt natuurlijk wel (proberen) in Visual Lisp een PrintBatch.vlx aanmaken. Van hier uit start je dan jouw VBA op.
Deze vlx zet je dan op voor zijn eigen namespace.