|
Autocad VBA : Verschiebung in Z -Achse
Dirk.B am 29.12.2004 um 07:54 Uhr (0)
Hallo Nancy! Vielen Dank für Deine Hilfe, es funktioniert. Nun habe ich noch ein Problem und hoffe, daß Du mir auch dabei helfen kannst. Kurz zu meinem Programm: Ich erzeuge mit meinem Programm ein Rechteckrohr in 3D. In der Frontfläche sollen Schlitzlöcher entstehen. Diese (Quader / solidobj3)sollen dann über solidobj1.Boolean acSubtraction, solidobj3 von dem Rechteckrohr (solidobj1) abgezogen werden, siehe Foto. Das unter wird auch abgezogen, so das ein Loch ensteht. Die oberen, die ich über den Befehl ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Objekte über Layernamen filtern und kopieren
Dirk.B am 13.08.2009 um 16:45 Uhr (0)
Hallo zusammen!Ich möchte folgendes probieren:- Umgrenzungslinie (Schrankseite) auswählen.- Objekte über Layernamen filtern und auswählen, die sich in diesem Rahmen befinden.- Basispunkt untere linke Ecke / OK über GetBoundingBox- Ausgewählte Teile kopieren und auf den aktuellen BKS Nullpunkt verschieben.Kann mir da bzgl. der Filter jemand weiterhelfen?Code:Sub Unit()Dim SLayer As AcadLayerDim MinPoint As VariantDim minp(0 To 2) As DoubleDim MaxPoint As VariantDim maxp(0 To 2) As DoubleDim Objekt As Object ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : automatisierte Blockerstellung
Dirk.B am 06.01.2004 um 07:54 Uhr (0)
Hallo Ralf! Ich bin mir ganz sicher ob Dir dieses weiter hilft, aber bei meiner programmiererei hilft mir oft die AutoCAD Hilfe auf die Sprünge. Hier einige Info s zu Blockattributen: In diesem Beispiel wird ein Block definiert und ein Attribut zur Blockdefinition hinzugefügt. Anschließend wird der Block in die Zeichnung eingefügt. Sub Ch10_CreatingAnAttribute() Definieren des Blocks Dim blockObj As AcadBlock Dim insertionPnt(0 To 2) As Double insertionPnt(0) = 0 insertionPnt(1) = 0 ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Verschiebung in Z -Achse
Dirk.B am 02.01.2005 um 12:42 Uhr (0)
Hallo Zusammen! Ich wünsche allen ein frohes und gesundes neue Jahr und hoffe Ihr seit gut reingerutscht. Leider bin ich mit meinem Problem noch nicht weiter gekommen. Daher stelle ich mal den gesamten Sub - Bereich zur Verfühgung und hoffe, daß mir nun jemand helfen kann. Mein Problem liegt darin, daß ich die mit dem Erstellen der Objektanordnung Dim retobj As Variant retobj = solidobj3.ArrayRectangular(nor, noc, nol, dbr, dbc, dbl) erzeugten Quader (Acad3DSolid) nicht von dem zuvor erzeugten Recht ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
