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
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.