| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY wird von NVIDIA zum Händler des Jahres gewählt - zum dritten Mal in Folge, eine Pressemitteilung
|
|
Autor
|
Thema: ActiveViewport (1410 mal gelesen)
|
H.D.
Mitglied
   Beiträge: 25
Registriert: 12.05.2005 P4 3.20 GHz
1,00 GB RAM
WinXP SP2
Autodesk Architectural Desktop 2004
|
erstellt am: 13. Mrz. 2006 15:36  <-- editieren / zitieren -->   Unities abgeben:          
Hi, Ich habe ein kleines Problem mit dem ActiveViewport. Ich möchte mit meinem Code automatisch den Fang ein/aus bzw. das Rastermass verändern. Dies führe ich mit dem Folgenden Code aus: Code:
ThisDrawing.ActiveViewport.SetSnapSpacing 5, 5
ThisDrawing.ActiveViewport.SnapOn = True
ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
Der Code funzt soweit einwandfrei, nur wenn ich einen neuen Zeichnungsausschnitt nach dem letzten Speichern gewählt habe (z.B. den Zoom verändert), so springt dieser bei der Ausführung der letzten Programmzeile in den "gespeicherten Bildschirmausschnitt" zurück! Wie kann ich das verhindern? Gruss
H.D. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1
Moderator
Verm.-Ing.
    
Beiträge: 1526
Registriert: 17.08.2005 Map 2000-2014, Rasterdesign,
MapGuide, Autodesk Topobase,
VS6, VS.net 2013
|
erstellt am: 13. Mrz. 2006 17:33 <-- editieren / zitieren --> Unities abgeben: Nur für H.D. 
|
H.D.
Mitglied
Beiträge: 25
Registriert: 12.05.2005 P4 3.20 GHz
1,00 GB RAM
WinXP SP2
Autodesk Architectural Desktop 2004
|
erstellt am: 13. Mrz. 2006 17:50 <-- editieren / zitieren --> Unities abgeben:
Hi Stelli, wär schön wenn. Mit der letzten Zeile übernehme ich nur die neuen Einestellungen. Das selbe Problem tritt auch bei dieser 2 Variante auf, ist nur anders geschrieben. Code:
Dim viewportObj As AcadViewport
Set viewportObj = ThisDrawing.ActiveViewport
viewportObj.SetSnapSpacing 5, 5
viewportObj.SnapOn = True
ThisDrawing.ActiveViewport = viewportObj
Gruss H.D. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1
Moderator
Verm.-Ing.
Beiträge: 1526
Registriert: 17.08.2005 Map 2000-2014, Rasterdesign,
MapGuide, Autodesk Topobase,
VS6, VS.net 2013
|
erstellt am: 13. Mrz. 2006 18:50 <-- editieren / zitieren --> Unities abgeben: Nur für H.D.
Hallo H.D. versuchs doch mal mit den Systemvariablen.
Code:
Dim SnapUnit(0 To 1) As Double
SnapUnit(0) = 5
SnapUnit(1) = 10
ThisDrawing.SetVariable "SNAPMODE", 1
ThisDrawing.SetVariable "SNAPUNIT", SnapUnit
Damit gehts auf jeden Fall  Stelli ------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
H.D.
Mitglied
Beiträge: 25
Registriert: 12.05.2005 P4 3.20 GHz
1,00 GB RAM
WinXP SP2
Autodesk Architectural Desktop 2004
|
erstellt am: 14. Mrz. 2006 11:32 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
