|
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 : Programmoptimierung
Dirk.B am 01.02.2006 um 13:03 Uhr (0)
Hallo Nancy!Hallo Stelli!Ich habe Eure Lösungen mal separat getestet und es funktionierte.Füge ich den Code jedoch in mein Programm ein funktioniert es mit dem ColorIndex / VonLayer / VonBlock soweit auch, nur wird der Block immer wieder in der vorherigen Farbe eingefügt und dargestellt, obwohl in der Farbsteuerung die neu ausgewählte Farbe angezeigt wird.Kann es daran liegen, daß der Block ansich in einem Modul erzeugt wird, sieh Modul1:Code:Sub Schraubenblock(Name As String, Breite As Double, Länge As Do ...
| | 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 |
|
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 : Programmoptimierung
Dirk.B am 15.01.2006 um 14:31 Uhr (0)
Hallo Zusammen!Ich bin dabei mir ein Programm zu schreiben bei dem ich aus einer Liste eine Spanplattenschraube (Spax) auswählen kann, die dann erzeugt und in der Zeichnung als Block abgelegt bzw. eingefügt wird.Dieses funktioniert auch soweit, erfordert aber viel schreibarbeit.Kann mir von Euch jemand helfen, wie ich dieses einfacher und komprimierter schreiben könnte?Hier ein Auszug aus dem Programm:Const pi = 3.14159Function dtr(a As Double) As Double dtr = (a / 180) * piEnd FunctionPrivate Sub Cbo_Cha ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
