CADsite forum

Hallo cad genoten,
Kan iemand mij vertellen hoe ik binnen vba een tekening kan openen, bewerken en dan batch gewijs over meerdere tekeningen de zelfde routine kan uitvoeren.
Of weet iemand hoe je binnen VBA een autocad commando kan uitvoeren zoals script.

Alvast bedankt.

Ik kan je op weg helpen....
Maar kan niet mijn hele code prijsgeven... sorry...
maar misschien ben je hier al mee op weg..

If Len(Dir(frmRoutines.dwgfolder)) > 0 Then

    For intcnt = 0 To frmRoutines.LBTekeningen.ListCount - 1
   
        If frmRoutines.LBTekeningen.Selected(intcnt) = True Then
            Application.documents.Open frmRoutines.dwgfolder & frmRoutines.LBTekeningen.list(intcnt)
             
            'hiertussen de code voor de batch
           
            zetProductieInfo
            ThisDrawing.Save
           
            'hiertussen de code voor de batch
        End If
   
    Next intcnt
   
End If

geweldig,

Je helpt me weer een stukje verder in de wereld van vba.

thanx,