AUTOSNAP (Programmierung / Office/VBasic / vb.net / vbs / wsh)


	Online-Kurs: Grundlagen des 3D-Druck-Designs für Industrieingenieure , ein Kurs Meldungen abonnieren
Autor	Thema: AUTOSNAP (296 mal gelesen)
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002	erstellt am: 30. Jul. 2003 17:18 <-- editieren / zitieren --> Unities abgeben: Grüß euch, ich habe versucht mit folgendem Code den Polarfang ein-, bzw. auszuschalten. Funktioniert bei mir nicht. Was mach ich falsch? Code: Dim AutoSnap As Double 'ThisDrawing.ObjectSnapMode = Not ThisDrawing.ObjectSnapMode 'schaltet OSNAP aus oder ein AutoSnap = ThisDrawing.GetVariable("AUTOSNAP") Select Case AutoSnap Case 1 To 7, 16 To 23, 32 To 39, Is > 56 ThisDrawing.SetVariable "AUTOSNAP", AutoSnap + 8 Case 8 To 15, 24 To 31, 40 To 55 ThisDrawing.SetVariable "AUTOSNAP", AutoSnap - 8 End Select ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Ex-Mitglied	erstellt am: 31. Jul. 2003 10:44 <-- editieren / zitieren --> Ich weiß nicht was du hast, es funktioniert doch. Nur wenn du in einem Dialog bist, wird AutoCAD nicht die Statuszeile ändern. Jürgen
RoSiNiNo Mitglied Konstrukteur Beiträge: 1126 Registriert: 09.10.2002	erstellt am: 31. Jul. 2003 10:47 <-- editieren / zitieren --> Unities abgeben: Danke Jürgen, interessanterweise funktinoiert es heute auch bei mir!?! ------------------ Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X