VBA a vykresove priestory
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=1404
Datum vytištění: 13.čer.2026 v 00:47
Téma: VBA a vykresove priestory
Odeslal: predcis
Předmět: VBA a vykresove priestory
Datum odeslání: 20.zář.2005 v 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. |
Odpovědi:
Odeslal: Seiner
Datum odeslání: 20.zář.2005 v 14:21
|
IMHO vykr.ActiveSpace |
Odeslal: pavelstyl
Datum odeslání: 20.zář.2005 v 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 |
Odeslal: Andrej
Datum odeslání: 20.zář.2005 v 14:54
|
..mal som ten istý nápad
 http://www.cadforum.cz/forum/forum_posts.asp?TID=1060&KW=layout - http://www.cadforum.cz/forum/forum_posts.asp?TID=1060&KW =layout
..server
 |
Odeslal: predcis
Datum odeslání: 20.zář.2005 v 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 |