---

Hallo

Ich habe folgendes Problem. Ich möchteden inhalt  meine 4 Quadranten in Autocad jeweils in einen Auswahlsatz einfügen. Wie mache ich das am besten.
Schon im Voraus Danke für die Hilfe.

Mfg
Hannes Zorn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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