Zobrazit plnou verzi příspěvku: VBA a vykresove priestory

predcis
20.09.2005, 14:13
Zdravim,

Ja mam takyto problem, robim si makro na rychle vykreslenie nahladu pred tlacou (acad2005 ma zbytocne dalsi dialog, ktorym treba prejst). Robim to cez formular, v ktorom si vyberiem ktory vyk. priestor chcem. Ale samotna procedura (snad som sa trafil v terminologii) zobrazovania je naviazana na acaddocument, tj kod vyzera takto:
Private Sub nahlad_Click()
    
    Me.Hide
    
    Dim vyk As AcadDocument
    Set vyk = AutoCAD.ActiveDocument
    
    On Error GoTo chyba
    vyk.Plot.DisplayPlotPreview acFullPreview
    
chyba:
    MsgBox "Zle nastavene tlace !"
    
    
End Sub

Takze aby to cele fungovalo (aspon v to dufam), potrebujem, aby bol aktivny vybraty vykr. priestor.
A prave toto neviem dosiahnut vo VBA. Neviete ako to dosiahnem? T.j. napr. aby sa prepla karta z "model" napr. na "rozvrzeni1" ?
Hladal som v napovede, ale nenasiel som to co som chcel. Activate mi nechce fungovat :(
Dakujem za radu.
Lubomir.

Seiner
20.09.2005, 14:21
IMHO vykr.ActiveSpace1 je výkresový prostor

pavelstyl
20.09.2005, 14:29
Neznám Basic, ale nešlo by použít příkaz AutoCADu _CTAB, který umí přepínat model a layouty?
V lispu by to bylo (command "_CTAB" "rozvrzeni1"). Podobně to určitě půjde v Basicu.
Pavel Štyl

Andrej
20.09.2005, 14:54
..mal som ten istý nápad
http://www.cadforum.cz/forum/forum_posts.asp?TID=1060&KW =layout
 
..server

predcis
20.09.2005, 15:14
Vdaka,

cez premennu ctab to ide v pohode :

vyk.SetVariable "ctab", Me.priestor.Value

kde v Me.priestor.Value mam ulozeny nazov rozvrhnutia