Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  Alle objekte innerhalb eines Quadranten in Auswahlsatz einfügen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Alle objekte innerhalb eines Quadranten in Auswahlsatz einfügen (493 mal gelesen)
hannes.zorn
Mitglied
bautechniker


Sehen Sie sich das Profil von hannes.zorn an!   Senden Sie eine Private Message an hannes.zorn  Schreiben Sie einen Gästebucheintrag für hannes.zorn

Beiträge: 21
Registriert: 13.01.2004

erstellt am: 14. Nov. 2005 15:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Stelli1
Moderator
Verm.-Ing.


Sehen Sie sich das Profil von Stelli1 an!   Senden Sie eine Private Message an Stelli1  Schreiben Sie einen Gästebucheintrag für Stelli1

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für hannes.zorn 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz