| | | 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
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 / zitieren --> Unities abgeben:
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
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 / zitieren --> Unities abgeben: Nur für caeneuling
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
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 / zitieren --> Unities abgeben:
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 >>)
|