Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  VBA GetBoundingBox funktioniert nicht

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:  VBA GetBoundingBox funktioniert nicht (1118 mal gelesen)
caeneuling
Mitglied
Student


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

Beiträge: 79
Registriert: 31.03.2011

Elcad 7.5, WS-Cad 5.5, Acad 2007/2013

erstellt am: 13. Jun. 2012 14:42    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,

zur Identifikation von Objekten male in 2 Kreise an 1 Objekt. Anschließend möchte ich das autocad diesen Bereich anzeigt. Habe von der GetBoundingBox gelesen, diese umgesetzt aber es funktioniert nicht. Hat jemand eine Idee woran es liegt? Hier ein Auszug meines Quellcodes:

Code:
positionstart(0) = startx.Text: positionstart(1) = starty.Text: positionstart(2) = startz.Text
positionende(0) = endex.Text: positionende(1) = endey.Text: positionende(2) = endez.Text
radius = 300
If gemalt = True Then Exit Sub
Set malekreisstart = ThisDrawing.ModelSpace.AddCircle(positionstart, radius)
    malekreisstart.color = acRed
Set malekreisende = ThisDrawing.ModelSpace.AddCircle(positionende, radius)
    malekreisende.color = acRed
    malekreisstart.GetBoundingBox positionstart, positionende
ThisDrawing.Regen (True)
gemalt = True

------------------
Ich bins, der Alex

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



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

Beiträge: 9732
Registriert: 01.12.2003

AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10

erstellt am: 13. Jun. 2012 15:06    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 caeneuling 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von caeneuling:
.. male in 2 Kreise an 1 Objekt. Anschließend möchte ich das autocad diesen Bereich anzeigt. ...

Dafür solltes du  statt
Regen oder Boundingbox
wohl eher  sowas wie

ZoomWindow MinPkt, MaxPkt

aufrufen.


------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

caeneuling
Mitglied
Student


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

Beiträge: 79
Registriert: 31.03.2011

Elcad 7.5, WS-Cad 5.5, Acad 2007/2013

erstellt am: 13. Jun. 2012 15:25    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

Was soll ich sagen, FUNKTIONIERT!. Perfekt, Vielen Dank. Genau das was ich wollte. (Evtl tausche ich die Kreise mal gegen 2 Pfeile, aber fürs erste reichts) Danke nochmal

------------------
Ich bins, der Alex

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