|
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 : Texteinfügen, Einfügeposition
Huebi am 24.02.2005 um 08:27 Uhr (0)
Servus Martin, soweit ich weiß, funktioniert es in VBA nicht, daß man Objekte an den Cursor hängt und dann einfügt. Hierzu gab es schon ein paar Beiträge bei denen es meist um das Einfügen von Blocks (am Cursor) ging (...kannst ja mal in der Suche nachsehen). Was allerdings geht, ist ein nicht gerade eleganter Workaround mit dem SendCommand - Befehl (siehe anhängender Programmcode). Ich erzeuge einen Text und verändere ihn (in diesem Fall die Farbe), um diesen Text im Anschluß in AutoCAD (mit SendCommand) ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Welche Möglichkeiten gibt es zum Einlesen u. Weiterverarbeiten v. Blöcken in AutoCAD?
kiltswitch am 16.11.2004 um 13:18 Uhr (0)
Hallo an alle, man kennt mich hier ja schon. Bei meiner Konzeptsuche hat sich Grundlegendes geändert. Nach einem intensiven Gespräch mit meinem Vorgesetzten stellte sich heraus, dass wir in der letzten Zeit wohl aneinander vorbeigeredet haben (oder er hat es nicht richtig rübergebracht - wohl eher...). Er will nicht das Gesamtkonzept eines Mastkonfigurators haben, sondern - und das war mir bisher eher unbekannt - nur ganz bestimmte Dinge wissen: - Welche Möglichkeiten gibt es, Blöcke programmtechnisch in A ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
kiltswitch am 09.11.2004 um 08:29 Uhr (0)
Nochmal an Dich, Mapcar: Ich weiß nicht, wie genau Du das mit meiner Aufgabe hier im Forum verfolgt hast, also nochmal: mein Unternehmen plant und errichtet Mobilfunkmasten. Die werden in AutoCAD konstruiert. Die Konstrukteure setzen diese Masten in AutoCAD aus einzelnen Blöcken zusammen, welche in einem Bauteilkatalog abgelegt sind. Meine Aufgabe ist es, ein Konzept für einen Mastkonfigurator zu entwickeln. Und zwar mit folgenden Zielen: 1. Automatisierte Zusammensetzung des Mastes aus seinen Einzelteilen ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Abmessungen und Formen von Selectionsets
Dressler am 02.04.2004 um 08:14 Uhr (0)
Hallo und schönen guten morgen an alle miteinander. Vielleicht kann mir jemand bei einem der folgenden Probleme weiter helfen. Beim 1. Wunsch reicht es mir vollkommen , wenn ich die Größe und Koordinaten meiner Auswahl bekommen könnte. Hier dazu mein kleiner 1. Codeversuch: Private Sub CommandButton4_Click() Me.Hide UserForm ausblenden Dim ssetObj As AcadSelectionSet Set ssetObj = ThisDrawing.SelectionSets.Add( TEST_SSET ) Add objects to a selection set by prompting user to select on t ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Vorhandene Zeichnung Skalieren, Positionieren und anschließend Exceltabelle einfügen
Huebi am 28.02.2005 um 14:11 Uhr (0)
Hallo CoXiDo, ich denke, zuerst brauchst Du die Maximalwerte (Ausdehnung) Deiner Zeichnung um sie skalieren zu können. Schau Dir dazu mal diesen Beitrag an: http://ww3.cad.de/foren/ubb/Forum259/HTML/000520.shtml Den Befehl _scale und _move machst Du am besten via SendCommand z.B. so (unter der Annahme, Deine Zeichungseinheit entspricht 1mm): Code: Dim AllMin, AllMax As Variant Die zuvor ermittelten Maximalwerte Dim XMinStr, YMinStr, ScaleFaktor As String Const SollHoehe = 146 ScaleFaktor = ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Bogen, Linie, PL Länge Delta
rexxitall am 06.10.2022 um 14:29 Uhr (1)
Polylinie ist nicht ganz so einfach. Du musst die Koordinaten der Linie durchlaufen und herausbekommen um welches Segment es sich handelt. Die kann übrigens links oder rechts rum sein... Dann strecken und alle anderen (nachfolgenden) Punkte auch mit dieser Verschiebung beaufschlagen. Ob ein Polygon links oder rechts rum dreht bekommt man mit dem Vorzeichen der Flächenberechnung nach Gauss heraus. Thema Bulgen. Dreht man die Drehrichtung um, müssen die Bulgen angepasst werden. Vorzeichen und ggf. um eineste ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Geometrie einer Bemassung
Huebi am 17.01.2005 um 11:16 Uhr (0)
Servus zusammen, evtl. kann mir jemand bei meinem Problem helfen Ich bemaße Gebäudegrundrisse (die ich als Vermesser zuvor aufgemessen habe). Dazu habe ich mir einen Bemaßungsstil definiert, der einen benutzerdefinierten Pfeil hat (...also dieser übliche Schrägstrich) und ich unterdrücke die beiden Hilfslinien. Das funktioniert soweit recht gut und das Ergebnis entspricht - bis auf wenige Abstriche - dem, was ich von dieser Bemassung erwarte. Nun mein Problem: Wenn ich beide Hilfslinien unterdrücke, sehe ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Rotated Dimension via Lisp auslesen
rexxitall am 26.01.2016 um 10:20 Uhr (1)
Hi, ich bin kein Lispler, Ich hab auch noch coe rumfliegen der Lisp direkt aufruft, muss nicht über die Uservars sein Mir gehen die Maßketten von Acad seit ewig auf den Zünder, das was die haben ist Steinzeit, das konnte Zeicon vor 30 Jahren schon besser. Ich will Masskettenzüge als ganzes anordnen, erzeugen, verschieben, Maßketten zusammenfassen, aufsplitten...Sprich mir endlich mal die Bemaßungsfunktionen bauen die ICH haben will seit 10 Jahren Geht alles na klar auch so ... Mit endlosem Zeitaufwand.Der ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Attribute und UserForm
Lappi am 04.09.2006 um 20:49 Uhr (0)
Hallo.Sorry, dass meine Antwort auf sich warten lies..ich musste diese Problemlösung leider ein wenig nach hinten verschieben.Erst einmal Danke für die Antworten.@StelliLeider geht Dein Lösungsansatz nicht, da ich weder Excel noch einen Verweis auf eine andere Lib verwenden kann.Sicher wäre das die elegantere Lösung die Daten zu übergeben, aber leider muss ich es dieses mal mit MS-Forms und Acad hin bekommen @CarstenUserform1.TextBox3.Text = (LTrim(Attrib(2).textString))war genau der Ansatz der meinen gra ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Block mit Pixelbilder auflösen und Pfad
thomasbernd am 09.07.2007 um 14:42 Uhr (0)
Hallo Zusammen,dies ist meine erster Beitrag habe ein riesiges Problem...ich soll möglichst kurzfristig ca.160 Pixelbilder in AutoCAD einfügen,schneiden,spiegeln oder drehen, in x- und y-Richtung scalieren und auf Endposition drehen.Von Hand gehe ich folgende Schritte durch:1. Pixelbild einfügen (ohne Pfadstruktur!)2. Pixelbild schneiden3. Block erstellen des Pixelbildes4. Block einfügen mit Faktoren in x- und y- Richtung5. Block auflösen6. Pixelbild auf gewünschte stelle verschieben und drehen.... das fun ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Abmessungen und Formen von Selectionsets
Dressler am 07.04.2004 um 10:49 Uhr (0)
Hallo und schönen guten Morgen, ich hab den Code von Roland nun mal ausprobiert und den Code von Robert in ein Modul mit dem Namen Bounding reingetan. hier also der Code im Modul Bounding: Public Function ssExtents(SS As AcadSelectionSet) As Variant Dim points(), c, i As Long Dim min, max, util As AcadUtility Dim Extents Set util = ThisDrawing.Utility c = 0 For i = 0 To SS.Count - 1 On Error Resume Next If Err Then Err.Clear Else SS. ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Gedrehte Bemaßung ausrichten
c.schojer am 30.08.2007 um 10:33 Uhr (0)
Vielen dank hab schon selbst lange gesucht aber nix gefunden!!!!!!!!!!!!!!!So hab ein ganz einfaches programm geschrieben wo man nun auch alles andere verschieben kann unter verwendung des Source Codes den du mir gegeben hast.Habe ein wenig gebraucht um herauszufinden was der Code machtEine Bemaßung ist sozusagen nix anderes als ein Block den man bearbeiten kann.Man müßte an den Code noch feilen aber ich denke so kann ichs lösen.Gibts ne Möglichkeit ein regenerieren zu vermeiden?? und trotzdem das ergebnis ...
|
| In das Form AutoCAD VBA wechseln |
