Stelli1 Moderator Verm.-Ing.
Beiträge: 1521 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 14. Nov. 2005 21:35 <-- editieren / zitieren --> Unities abgeben: Nur für hannes.zorn
Hallo Hannes, was sind die vier Quadranten ?? Wenn du die Koordinatenachsen im Nullpunkt meinst:
Code:
Dim Sset(1 To 4) As AcadSelectionSet Dim i As Integer Dim pUL(0 To 2) As Double Dim pOR(0 To 2) As Double Dim PKT As Variant Dim MinHoch As Double Dim MinRechts As Double Dim MaxHoch As Double Dim MaxRechts As Double On Error Resume Next ' Selektionsets definieren For i = 1 To 4 Err.Clear Set Sset(i) = ThisDrawing.SelectionSets("MyselSet" & i) If Err.Number <> 0 Then Set Sset(i) = ThisDrawing.SelectionSets.Add("MyselSet" & i) End If Next i ' Extremwerte holen PKT = ThisDrawing.GetVariable("EXTMIN") MinRechts = PKT(0) MinHoch = PKT(1) PKT = ThisDrawing.GetVariable("EXTMAX") MaxRechts = PKT(0) MaxHoch = PKT(1) pUL(0) = 0 pUL(1) = 0 pOR(0) = MaxRechts pOR(1) = MaxHoch Sset(1).Select acSelectionSetCrossing, pUL, pOR Debug.Print Sset(1).Count pUL(0) = 0 pUL(1) = 0 pOR(0) = MaxRechts pOR(1) = MinHoch Sset(2).Select acSelectionSetCrossing, pUL, pOR Debug.Print Sset(2).Count
Stelli ------------------ Warum lisp'eln wenn's auch anders geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |