|
AutoCAD VBA : Makro automatisch laden
Big Sven am 28.08.2007 um 14:15 Uhr (0)
Hallo Forum!Ich glaube ich bin ein wenig eingerostet, was VBA betrifft. Ich möchte eine Makro-Datei (*.dvb) automatisch in AutoCAD laden, damit ich sofort die Befehle aufrufen kann. Ich dachte, wenn ich im VBA-Manager die Datei eintrage/lade, dann wird sie auch beim nächsten mal geladen. Im VBA-Manager kann ich auch auf Makro gehen und dort sehe ich meine beiden Makros. Aber schon bei der nächsten Zeichnung sind sie wieder weg. Sie soll nicht als Makro in die DWG eingebettet werden!Bin für jeden Tipp dankb ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Linie ohne Add Methode erstellen
Pitsch52 am 29.04.2007 um 14:06 Uhr (0)
Hallo LeuteIch habe gehört, dass es möglich sei, in AutoCAD-VBA eine Linie im ModelSpace auch ohne die Add-Methode zu erstellen. Nur weiss ich nicht wie das möglich sein soll. Ich brauche die Linie ja nur um mit der Length-Eigenschaft, die direkte Distanz von einem Bogen-Endpunkt zum Bogen-Startpunkt zu ermitteln. Die Linie wird dann sofort wieder gelöscht.Wenn ohne die Add-Methode eine Linie gar nicht in der Zeichnung eingetragen würde, könnte mann sich das löschen sparen.Kann mir Jemand sagen wie das ge ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Block einfügen
ollibaer2004 am 05.04.2005 um 10:56 Uhr (0)
Hallo, versuch es mal so Dim einfuege As Variant Dim name As String Dim blockref As AcadBlockReference On Error GoTo errorhndl name = "Raum-NR" einfuege = ThisDrawing.Utility.GetPoint(, "Bitte den Einfügepunkt für Block " & name & " wählen") Set blockref = ThisDrawing.ModelSpace.InsertBlock(einfuege, importfile, 1, 1, 1, 0) errorhndl: If Err.Number = "-2145386445" Then MsgBox ("Der Block Raum-NR ist nicht in dieser Zeichnung vohanden") Dim importfile As String importfile = "C:RaumStmpRaum-NR.dwg" Set ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Attribute aus Datei erstellen
DoubleB am 25.08.2004 um 11:56 Uhr (0)
Hallo zusammen, mir schwebt folgendes vor. Ein Benutzer fügt ein Schriftfeld in die Zeichnung ein und hat in dem Feld Plannummer schon mal als Prefix die Kunden- und Projektnummer stehen. Diese beiden Angaben würde ich gerne aus zum Bsp. einer txt Datei auslesen. Ich habe im Forum nachgeschaut und mehrere Male den Befehl ATTin gefunden. Das Problem ist nun, dass wir zu Zeit noch mit ACAD 2000 arbeiten und dieses den Befehl nicht kennt, oder liege ich damit falsch? Ich suche nicht unbedingt nach einer ferti ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : _beginSave
harryk am 02.01.2004 um 10:07 Uhr (0)
hi auch, zu 1: Selection Set löschen nach Benutzung ist Ok, nur aufpassen wenns Programm abbricht, in dem Fall besser vor dem Erstellen des Selection Sets nochmal prüfen ob der Name nicht schon existiert. zu 2: warum hast Du Deinen Code in der Zeichnung gespeichert? Genau wie in Excel kannst Du den Code in unabhängige Projektdateien speichern. Bei Autocad heissen die ProjektBlaBlaBla.DVB. Kannst Du dann bei Bedarf oder mit Autocad laden. Damit hat sich das Code löschen jedenfalls erledigt, 3. dann auch. Di ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Block aus Bibliothekszeichnung einfügen.
SchuasdaW am 20.02.2013 um 13:18 Uhr (0)
@ Klak,nein das machen wir nicht keine Angst. Ich versuche jetzt mit deinem Vorschlag die Zeichnung im Hintergrund zu öffnen und bin dabei auf die Möglichkeit gestoßen sie mit ObjectDbx zu öffnen und mein Code beginnt wie folgt:Sub Ausprobieren3()Dim objDbx As AxDbDocumentSet objDbx = ThisDrawing.Application.GetInterfaceObject("ObjectDBX.AxDbDocument.18")Ich hab auch den Verweis auf die ObjectDbx Library 18 gesetzt. Er findet auch die Anwendung sagt mir aber bei meiner Setanweisung, dass die Typen unvertr ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block aus Bibliothekszeichnung einfügen.
SchuasdaW am 20.02.2013 um 13:18 Uhr (0)
@ Klak,nein das machen wir nicht keine Angst. Ich versuche jetzt mit deinem Vorschlag die Zeichnung im Hintergrund zu öffnen und bin dabei auf die Möglichkeit gestoßen sie mit ObjectDbx zu öffnen und mein Code beginnt wie folgt:Sub Ausprobieren3()Dim objDbx As AxDbDocumentSet objDbx = ThisDrawing.Application.GetInterfaceObject("ObjectDBX.AxDbDocument.18")Ich hab auch den Verweis auf die ObjectDbx Library 18 gesetzt. Er findet auch die Anwendung sagt mir aber bei meiner Setanweisung, dass die Typen unvertr ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : fso.filecopy funktioniert nicht
Heiko76 am 18.10.2004 um 08:26 Uhr (0)
Hallo zusammen, @TP Ich habe die Klammern weg genommen und siehe da, er meldet mir nicht mehr den Fehler. Aber, jetzt steigt er mir an folgender Stelle aus der Sub aus und läuft dann ohne Probleme zu melden weiter. Set ssetObj = ThisDrawing.SelectionSets.Add( XX ) Wenn ich diese Zeile auskommentier, dann steigt er mir an folgender Stelle aus der Sub aus. ssetObj.Select acSelectionSetAll, , , GroupCode, dataCode Was kann das sein? @ Udo Ich habe zum testen eine BMP in die Zeichnung eingefügt und hatte zum v ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Layout von Vorlage per VB(A)
PeterF am 27.08.2008 um 12:37 Uhr (0)
Hi Carsten,ich möchte ein vordefiniertes Layout, mit Plankopf, Planrahmen, und den ganzen Layouteinstellungen( Plotter, Striftzuweisung, Papiergröße usw.) in meine Zeichnung übertragen. Jetzt mache ich das Schritt für Schritt indem ich mir die Vorlage öffne und alle Elemente und Einstellungen kopiere. Das klappt, wie gesagt, ja auch ganz gut, ist nur ein etwas größerer Aufwand. Ich wollte nur wissen, ob jemand vielleicht einen einfacheren Weg kennt. Eventuell gibt es dafür eine Funktion, die genau so wie i ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Koord auslesen und sortieren
ThebigH am 04.03.2010 um 19:50 Uhr (0)
Oh, da seh ich gar nich durch.Ich hab BubbleSort leider als Vorgabe. Und in meinem Beispiel sind es nur 5 Punkte, es muss aber auch mit beliebig vielen Punkten der Zeichnung gehen.Ich hab die 2 dimensionalen Koordinaten der Punkte For Each obj In ThisDrawing.ModelSpaceIf TypeOf obj Is AcadPoint ThenPktKoord = obj.CoordinatesPktKoord(0) = Round(PktKoord(0), 2)PktKoord(1) = Round(PktKoord(1), 2)In diesem Fall sind PktKoord(0) meine x Werte und PktKoord(1) meine y Werte.Die x Werte würde ich gerne als Array h ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : ANSI --> DIN umstellen
Feyza am 02.05.2005 um 16:34 Uhr (0)
Hallo an Alle, jeder kennt bestimmt das Problem, wenn man von einem anderen CAD System eine Zeichnung als DXF/DWG ausliest, das dies in Norm ANSI/Britisch dargestellt wird. Wir bekommen von externen auch ab und zu, solche Zeichnungen. Und wenn welche da sind, ist es immer ein Haufen. Wie könnte man dies am besten automatisieren? Ich habe mir ein bestmmtes Verzeichnis gedacht, wo man diese Zeichnungen ablegt und von dort aus aufmacht und In AutoCAD Mechanical 2002 wäre die Funktion zum Umstellen: Mechanical ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objektverknüpfung mit Datenbank
kiltswitch am 11.11.2004 um 12:39 Uhr (0)
Hallo, vor so einem ähnlichen Problem stehe ich auch. Wollte ich Dir nur mal mitteilen. Ich muß ein Konzept für einen Mastkonfigurator machen.Das beinhaltet z.B. das automatische Zusammensetzen von Mastteilen - Blöcken - in einer Zeichnung. Jeder Block ist in einer eigenen Datei gespeichert und diese Dateine sind in einem Bauteilkatalog drin. Nun habe ich auch schon Überlegungen angestellt, denn um auf die richtige Datei zuzugreifen, benötige ich mit Sicherheit eine Datenbank... Und dabei steht natürlich a ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Ansichtsfenster im Layout
InesP am 14.08.2005 um 20:43 Uhr (0)
Hallo Leute,ich stehe mal wieder vor einem Problem. Ich habe in meiner Zeichnung ca. 20 Layouts, in denen bereits Ansichtsfenster vorhanden sind. Leider stimmen diese nicht mehr in ihrer Größe. Deshalb möchte ich diese per VBA löschen, um dann automatisch neue,größenmäßig richtige erstellen zu lassen. Der zweite Teil ist ja auch kein Problem, aber ich möchte nicht manuell jedes Layout öffnen, um das darin befindliche Ansichtsfenster zu löschen. Wie kann ich das vorhandene Ansichtsfenster ansprechen? Mit Ac ...
|
| In das Form Autocad VBA wechseln |
