Dobrý den,

potřeboval bych vědět, jak pomocí VBA naprogramovat tisk několika záložek výkresového prostoru. Super by bylo, aby jsem mohl změnou kódu ovládat i pořadí v jakém se to vytiskne. Trochu znám VBA v Excelu, ale tady mě to nejde. Nevím, jak vybrat záložku výkresového prostoru. 

Podívejte se v helpu na metodu Plot.SetLayoutsToPlot
 
Jen pozor, podpora VBA (Microsoftem) skončila už před mnoha lety a z AutoCADu bude VBA také v nejbližších verzích odstraněn.

Tak jsem se s tím potýkal 2 dny, ale nemohu na to přijít co dělám blbě. Použil jsem postup :

Dim proTisk(1 To 4)    For i = 1 To 4            proTisk(i) = ThisDrawing.Layouts(i).Name    Next iThisDrawing.Plot.StartBatchMode i    For j = 1 To i           ThisDrawing.Plot.SetLayoutsToPlot proTisk           ThisDrawing.Plot.PlotToDevice    Next jNa řádku "ThisDrawing.Plot.SetLayoutsToPlot proTisk" se objeví chyba chybná procedůra nebo argument. 

mozna to nechapu dobre, ale nemelo by next i byt na konci?

Podle helpu jsem to pochopil tak, že se nejprve naplní pole názvy rozvržení -
    For i = 1 To 4            proTisk(i) = ThisDrawing.Layouts(i).Name    Next i
 
a pak se opakovaně spouští tisk -
    For j = 1 To i           ThisDrawing.Plot.SetLayoutsToPlot proTisk           ThisDrawing.Plot.PlotToDevice    Next j

[QUOTE=paveku]Podle helpu jsem to pochopil tak, že se nejprve naplní pole názvy rozvržení -
    For i = 1 To 4            proTisk(i) = ThisDrawing.Layouts(i).Name    Next i
' 'do i bude po skončení cyklu přičtena hodnota 1 (default step)'tedy i=5 !!!!'
a pak se opakovaně spouští tisk -
    For j = 1 To i           ThisDrawing.Plot.SetLayoutsToPlot proTisk           ThisDrawing.Plot.PlotToDevice    Next j[/QUOTE]
Možná to pro vás bude překvapení, ale ale víte vůbec, že pokud se budete ve druhém cyklu For odvolávat na i jako horní hranici, tak se nebude v tomto případě jednat o číslo 4 ale 5?Pokud mají oba cykly proběhnou 4x, pak bych i ten druhý zavedl znovu jako i tedy:   For i = 1 To 4           ThisDrawing.Plot.SetLayoutsToPlot proTisk           ThisDrawing.Plot.PlotToDevice    Next iUbyde vám tím jedna zbytečná proměnná... a ten zbytek, tu už bude váš boj.
Martin Bielina2010-10-13 13:38:12

Jo jasně, dík za upozornění, ale stále to nefunguje jak má ! ! !

Pomůže někdo ?

[QUOTE=Martin Bielina]  For i = 1 To 4 . . .Next i' 'do i bude po skončení cyklu přičtena hodnota 1 (default step)'tedy i=5 !!!!'[/QUOTE]To se mi moc nezdá ... jste si tím jistý?Pavel Štyl

[/QUOTE]To se mi moc nezdá ... jste si tím jistý?Pavel Štyl[/QUOTE]


Ano, u VBA jsem si tím jistý. Next i na konci cyklu vždy přičte k i
hodnotu kroku, a to i v případě, kdy se jedná o "poslední kolo"
cyklu. Není přece nic jednoduššího, než si to vyzkoušet na jednoduchém případu
kdy v cyklu For budete mít jen výpis hodnoty i a pak po
skončení cyklu ještě jednou provedete výpis hodnoty i.

Obzvlášť nebezpečný je případ, kdy se i deklaruje jako
např. typ INTEGER a jeho horní mez je počtem cyklů právě (přesně) dosažena,
protože po skončení cyklu dojde k "poslednímu přičtení" a tím i k
přetečení proměnné.A omlouvám se, že původní dotaz na řešení problému se i mojí vinou poněkud zvrnul v nežádoucí diskuzi jak co funfuje. VBA je mrtev, v Autocadu bych se už s jeho existencí vůbec nezabýval. Je jen otázkou času, kdy zmizí zcela.

jj, všechno chápu, znám trochu VBA z Excelu ,a nic jiného. Potřebuji jen vyřeštit problém toho tisku, protože to chci spouštět z excelu.
POMŮŽE NĚKDO ? ? ?
===============

a co tohle:
 
Sub SetLayoutsToPlot()        Dim oPlot As AcadPlot    Dim AddedLayouts() As String    Dim LayoutList As Variant    Dim oLayout As AcadLayout    Dim ArraySize As Integer, BatchCount As Integer    Dim retVal As String    Dim MyValue
            For Each oLayout In ThisDrawing.Layouts        ArraySize = ArraySize + 1        ReDim Preserve AddedLayouts(1 To ArraySize)        MyValue = InputBox("Vytisknout A/N?", oLayout.Name, "A")            If MyValue = "A" Or MyValue = "a" Then AddedLayouts(ArraySize) = oLayout.Name    Next
    LayoutList = AddedLayouts    Set oPlot = ThisDrawing.Plot    oPlot.SetLayoutsToPlot LayoutList    oPlot.PlotToDevice
End Sub
 
je to silne surovy bez ladu a skladu s minimem casu tomu a jen pro inspiraci 

Super, díky moc, již to funguje. Teď jdu hledat, kde jsem dělal chybu

Ještě se vracím k tomuto tematu. Vše funguje jak má, ale otravuje mě blikání při přepínání mezi jednotlivými záložkami. Lze to potlačit, něco jako tisk na pozadí. Něco jako v excelu "ScreenUpdating = False" ?

zkousel sem to a neblika mi to, zalozky se mi pri vyberu neprepinaji. si ale myslim, ze to je nastavenim nejaky promenny Cadu, na kterou si moje potvora hlava mapa duta prave nechce vzpomenout
 
este sem si s  tim pak malinko hral, spis jen kosmeticky:
 
Sub SetLayoutsToPlot()        Dim oPlot As AcadPlot    Dim AddedLayouts() As String    Dim LayoutList As Variant    Dim oLayout As AcadLayout    Dim ArraySize As Integer, BatchCount As Integer    Dim MyValue    Dim Style, Title        Style = vbYesNoCancel + vbQuestion + vbDefaultButton2    Title = "A co dál?"            For Each oLayout In ThisDrawing.Layouts    ArraySize = ArraySize + 1    ReDim Preserve AddedLayouts(1 To ArraySize)    MyValue = MsgBox("      Vytisknout " & oLayout.Name & " ?", Style, Title)            If MyValue = vbYes Then                                AddedLayouts(ArraySize) = oLayout.Name              ElseIf MyValue = vbCancel Then                                GoTo Line1            End If    Next        LayoutList = AddedLayouts    Set oPlot = ThisDrawing.Plot    oPlot.SetLayoutsToPlot LayoutList    oPlot.PlotToDevice
 
Line1:
    ThisDrawing.ActiveSpace = acModelSpace
 
End Sub

Nevíte někdo, jak odstranit to blikání a přepínání záložek při tisku?

Už mě to docela začíná otravovat. Jinak to maká perfektně.

prubni tohle:
 
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long
Sub SetLayoutsToPlot()        Dim oPlot As AcadPlot    Dim AddedLayouts() As String    Dim LayoutList As Variant    Dim oLayout As AcadLayout    Dim ArraySize As Integer, BatchCount As Integer    Dim MyValue    Dim Style, Title      Style = vbYesNoCancel + vbQuestion + vbDefaultButton2    Title = "A co dál?"                    For Each oLayout In ThisDrawing.Layouts    ArraySize = ArraySize + 1    ReDim Preserve AddedLayouts(1 To ArraySize)    MyValue = MsgBox("      Vytisknout " & oLayout.Name & " ?", Style, Title)            If MyValue = vbYes Then                                AddedLayouts(ArraySize) = oLayout.Name              ElseIf MyValue = vbCancel Then                                GoTo Line1            End If        Next        LockWindowUpdate (ThisDrawing.hWnd)            LayoutList = AddedLayouts    Set oPlot = ThisDrawing.Plot    oPlot.SetLayoutsToPlot LayoutList    oPlot.PlotToDevice
    LockWindowUpdate (0)
Line1:
    ThisDrawing.ActiveSpace = acModelSpace
End Sub
 
 
ale na rychlosti to neprida jako u excelu "ScreenUpdating = False"  

Výborné, pomohlo to na přeskakování listů. Teď už jen problikává okno "Postup vykreslování". Šlo by i to potlačit?

sorry, budu uprimnej. jak potlacit prepinani zalozek, to zajimalo i mne. mam jeste par veci v vba, ktery jeste nemam predelany do lispu a tak sem to pouzil tam. ale jak uz tady bylo receno, vba je mrtvy. neni tedy prinos venovat cas a energii vyvoji cehokoliv noveho v vba, natoz ladit neco k dokonalosti.