| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: AutoCAD VBA - Rohrleitungstool (1584 mal gelesen)
|
mainstream Mitglied Technischer Zeichner
Beiträge: 3 Registriert: 06.07.2010 AutoCAD 2007, VBA, Win XP
|
erstellt am: 06. Jul. 2010 12:32 <-- editieren / zitieren --> Unities abgeben:
Hallo! Ich möchte für AutoCAD 2007 mit hilfe von VBA ein Tool zur erstellung von 3D - Rohrleitungen schreiben. Ausgangsbasis soll eine 3D Polyline sein, die quer durch den Raum gelegt sein kann. Das KSYS passt sich nun so an, das die ersten 2 linien von der 3d poly auf x und y liegen. Somit wird die erste 2d polyline gezeichnet, die wird dan abgerundet. Danach von der 2 und 3 linie ausgehen wird wieder das Ksys angepasst. Nächset polyline.... usw. Danach wird alles abgerundet, und mit sweep das Volumen des Rohrs erstellt. Ist dies in VBA möglich? mein code schaffts bis jetzt das erste mal das ksys umzulegen. Dann kommt der erste stollperstein... die Coordinaten der Linie müssen für das neue ksys umgelegt werden... wie schaff ich das? Hab da schon versucht mit TranslateCoordinate. Aber irgentwie schaffs ich ned. Bitte um eure Hilfe! Liebe Grüße! mainstream Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
alterHausmeister Mitglied Hausmeister
Beiträge: 470 Registriert: 02.02.2009
|
erstellt am: 06. Jul. 2010 13:09 <-- editieren / zitieren --> Unities abgeben: Nur für mainstream
Vielleicht hilft Dir das zumindest im Hinblich auf die Koordinaten. Sicherlich nicht was Du suchst, aber immerhin ein Ansatz. Aber eben LISP, nicht VBA. Koordinaten müssen aber so oder so umgerechnet werden. ------------------ lg, der Hausmeister _______________________________________ Ich bin nicht gestört, ich bin verhaltensoriginell. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mainstream Mitglied Technischer Zeichner
Beiträge: 3 Registriert: 06.07.2010 AutoCAD 2007, VBA, Win XP
|
erstellt am: 06. Jul. 2010 13:27 <-- editieren / zitieren --> Unities abgeben:
ja ok.... soweit hab ich das verstanden, aber es gibt so eine Funktion die sich ThisDrawing.Utility.TranslateCoordinates() nennt. Mid der kann man anscheinend einen punkt anhand zweier bks durch den raum drehen, und danach die coordinaten abfragen. aber wie erstell ich den punkt, und wie verknüpfe ich das mit der 2p polyline.... hab was ausprobiert, bekomma aber nie was brauchbares heraus... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mainstream Mitglied Technischer Zeichner
Beiträge: 3 Registriert: 06.07.2010 AutoCAD 2007, VBA, Win XP
|
erstellt am: 06. Jul. 2010 21:31 <-- editieren / zitieren --> Unities abgeben:
Habe es mittlerweile über ein paar tricks und umwege geschafft, dass eine 2D Polylinie der 3D Polylinie folgt. Die 2D Linie geht nur um maximal eine ecke und besitzt 3 punkte die die arbeitsebene deffinieren. die 2d linie endet genau in der hälfte der 3D linie. Den Rest dürfte ich nun so auch schaffen. danke für die Hilfe. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |