Luftkanal.zip |
AutoCAD VBA : VBA-Anfänge
andreasde am 13.07.2012 um 00:35 Uhr (0)
Im Anhang mein Vorschlag.Lese den VBA-Projekt in AutoCAD ein. Dann starte den Formular.Zitat:Die müssen über ein GUI in ihren Maßen veränderbar sein. Schwer. Hier sollen denn dynamische Bloecke verwendet werden - kenne diese nicht - seit Jahren zeichne ich nicht mehr mit AutoCAD.Zitat:Der Kanal müsse per Startpunkt und Endpunkt in der Zeichnung zeichenbar sein.Verstehe ich nicht ganz...Zitat:Ist es möglich das über ein GUI zuverwirklichen und vorallem ist dies mit VBA möglich?Zitat:Ist es für eine Person ü ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Maßstabliste (scalelist) bearbeiten
CAD-Huebner am 20.05.2009 um 14:43 Uhr (0)
Zitat:Original erstellt von Andreas Widmann:Hmm, schade, mit Lisp kann ich nicht umgehen weil ich da keine Programmierkentnisse hab und mit .net wirds auch nichts weil ich ja einen Button im AutoCAD haben will.Bisher hab ich immer Cleanupscales.exe von Autodesk verwendet, will das bereinigen der Maßstäbe aber als Button für die aktuelle Zeichnung haben um einfach mal zwischendurch draufdrücken zu können.Sie dir mal Scalelistdel.lsp (eingedeutscht von Peter Tr.) an. http://ww3.cad.de/foren/ubb/Forum54/HTML ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : ExDict
dobatec am 11.07.2006 um 15:59 Uhr (0)
Hallo Forum !Da meldet sich doba mal wieder mit einer Frage an Euch. Ich bau gerade einen Art Block Generator, der aus Datensätzen bestimmte Bauteile zeichnet und diese als Blöcke ablegt. Dabei müssen bestimmte Zeichenroutinen einfach mit einem Datensatz gefüttert werden und schon gehts los (naja macht noch ne Menge Arbeit).Diese Datensätze würde ich nun gerne den Blöcken mitgeben. Ich denke dass sich da die ExtensionDictionaries geradezu anbieten. Wie ich solche Dicts anlege und auslese ist mir klar, aber ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : VBA: Dateien zum Lesen öffnen
alfred neswadba am 13.08.2009 um 12:58 Uhr (0)
Hi, Zitat:ACad hängt sich allerdings nach Bearbeitung der letzten Datei auf...viele Dateien öffnen und schliessen mag AutoCAD (und auch andere nicht), egal ob Word oder AutoCAD - 5000 Dateien öffnen, darauf zugreifen und wieder schliessen ist der Tod für Windows und dessen Memory-Verwaltung.Du kannst aber (empfehle ich bei der Abhandlung solcher Dinge grundsätzlich) ein Log-File mitschreiben, am Anfang einer Zeichnung fügst Du eine Zeile mit Dateiname ein (ev. mit Datum/Uhrzeit), dann LogFile schliessen. A ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Add entitys to block or change blockref insertationpoints
rexxitall am 29.09.2016 um 20:09 Uhr (1)
Wenn man sich den Code genauer angesehen hätte ...... hätt man auch gesehen das der Code genau diesse von Holger und Klak beschriebenen Sachen macht.Was mich bei solchen Sprüchen immer arg verwundert ist die Tatsache das man im ganzen Netz NICHTS brauchbares zu dem Thema findet.Wer also nen VBA Dreizeiler hstt, der das kann, immer her damit Der Hintergrund warum das so unglaublich aufgeblasen wirkt ist die Tatsache das das auch funktionieren soll, wennder Block schräg, verzerrt und gedreht auf der Zeichnu ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Seiteneinrichtungen mit VBA importieren / Seiteneinrichtungs-Manager
Arol am 19.05.2009 um 13:08 Uhr (0)
Ich habe vor ein Programm zu schreiben, dass das Plotten erleichten soll.Es soll folgendermaßen funktionieren. Beim Starten des Programms im Layoutbereich sollen bestimmte (oder alle) Seiteneinrichtungen aus einer vorgefertigten Datei geladen werden (z.B. C:AcadSeiteneinrichtung.dwt). Danach soll das Programm den eingefügten Zeichnungsrahmen auslesen (Zeichnungsrahmen ist ein Block und hat bestimmten Namen, z.B. A4-quer). Je nachdem welcher Zeichnungsrahmen abgefragt wurde, soll bestimmte Seiteneinrichtung ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blockelemente ändern
chofmeister am 28.02.2005 um 10:56 Uhr (0)
Ist eigentlich eh ziemlich simpel: chofmeister@dibau.at Sub einrichtungsblock() Dim neuerlayer As AcadLayer Variable neuerlayer für Layer Dim lt As String um den Linientyp als Text anzusprechen Dim bref As AcadBlockReference Als Blockreferenz dimensionieren Dim ss As AcadSelectionSet Als Auswahlsatz festlegen Dim ssets As AcadSelectionSets Als Auswahlsätz ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Karo Muster parameter-gesteuert erstellen
Ted 511 am 10.02.2010 um 19:36 Uhr (0)
Danke für die Antwort! Ich habe die Systeminfo im Profil aktualisiert.Musterzeichnung ist anbei.Es sollen wie gesagt, 55 verschiedene Muster generiert werden, die eine Art Codierung darstellen. Das heißt dass anhand der Felder eine Binär-zahl ausgelesen werden kann.Es werden also 55 verschiedene Muster benötigt. Wenn die Felder eine definition haben, könnte man mittels Tabelle einen Binär-code aus 0 und 1 festlegen. Hat ein Feld den Wert 0 ist es weiß, hat es den Wert 1 ist es schwarz. Die 55 Felder müssen ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block.delete funktioniert nicht immer
Christian Blei am 27.01.2010 um 12:59 Uhr (0)
Hallo!ich lösche in einer Zeichnung Blöcke, nachdem ich geprüft habe, dass es keine zugehörigen Blockreferenzen gibt. Das funktioniert nicht immer warum? (die Blöcke beziehen sich auf jeweils ein Entity und haben deswegen den Namen Entity.Handle.1, Entr.Handle.2 etc.)(die Blöcke, die mit dem Code nicht gelöscht werden, lassen sich aber über die Konsole löschen.) Sub purge_BlockDefs(ByRef Handle As String)Dim Block As AcadBlockDim Ent As AcadEntityDim BlockReference As AcadBlockReferenceDim IsInserted As ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Auslesen von Zeichnungsattributen
PG01 am 01.05.2005 um 22:42 Uhr (0)
Hallo Dextra, ich hoffe ich habe Dich richtig verstanden: Es ist möglich die in der Zeichnung vorkommenden Objekte und deren Attribute auszulesen und in einer Tabelle anzuzeigen. Unabhängig davon, ob sie mit einer Datenbank verknüft sind oder nicht. Aber was hast Du genau vor? Was wir zum Beispiel machen, ist Fließbilder zu erstellen, die Symbole (Blöcke) mit Attributen enthalten. Diese Attribute lassen sich dann z.B. als Stücklisten auslesen. Stichwort GetAttributes Kannst ja mal auf unserer Website gu ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Bitte um Hilfe bei - ThisDrawing.Export exportfile, bmp, sset
hkern am 24.02.2009 um 08:22 Uhr (0)
Sorry war verhindert, darum erst jetzt eine Antwort.Also das Zoomen wird durchgeführt...aber das ist irgendwie ja nicht das Problem - es werden ja eh nur die gezoomten Daten (siehe *.jpg) gespeichert - aber die gesamte Bildgröße ist eben nicht die gezommte Größe sondern einfach eine Bildschirmgröße! Daher die Ränder links und rechts.Wenn dieser Fall eintritt dann passiert dies für alle Bilder die ich in diesen Durchlauf aus meiner Zeichnung erstelle.(Ich erstelle aus einen Plan ca. 1000 Kacheln)Wenn das er ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : DXF in Verbindung mit VBA zum Ändern von Zeichnungen geeignet?
Proxy am 10.11.2004 um 10:09 Uhr (0)
[...]Wie kann ich dann mit einem Programm auf diese Blöcke zugreifen und diese bspw. in der Zeichnung umpositionieren oder auch drehen usw...?[...] Als Beispiel ein einfacher Block: (-1 . Objektname: 4020ebb0 ) (0 . INSERT ) (330 . Objektname: 4020ccf8 ) (5 . C86 ) (100 . AcDbEntity ) (67 . 0) (410 . Model ) (8 . PROXYSLIEBLIENSGSLAYER ) (100 . AcDbBlockReference ) (2 . PROXYSLIEBLIENGSBLOCKNAME ) (10 17.0116 44.9085 0.0) (41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 3.65054) (70 . 0) ( ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Probleme beim Einlese von .txt
jimbo3 am 28.01.2009 um 14:34 Uhr (0)
Wiedermal ein Hallo an Alle!Habe ein Problem beim Einlesen von TXT-Dateien.Ich erstelle mit folgendem Code eine TXT-datei:Private Sub Übernehmen_Click()Dim min(1 To 10)Dim max(1 To 10)min(1) = min1min(2) = min2min(3) = min3min(4) = min4min(5) = min5min(6) = min6min(7) = min7min(8) = min8min(9) = min9min(10) = min10max(1) = max1max(2) = max2max(3) = max3max(4) = max4max(5) = max5max(6) = max6max(7) = max7max(8) = max8max(9) = max9max(10) = max10Open "c:Verzeichnisdatei.txt" For Output As #1 Print #1, "min" ...
|
| In das Form AutoCAD VBA wechseln |
