|
Autocad VBA : VBA mit dwt öffnen
Heiko76 am 07.07.2004 um 14:07 Uhr (0)
Hallo zusammen, ich möchte ein VBA Programm schreiben, welches mir einen Befehl von AutoCAD abfänngt. Wie kriege ich dieses bei jeder Zeichnung die geöffnet wird oder neu erstellt wird geladen und gestartet ohne das der User noch irgendwas machen muß? ------------------ cu Heiko
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zuletzt besuchten Ordner in Temp-Pfad speichern
WolfgangSCH am 07.07.2004 um 14:45 Uhr (0)
Hallo, ich bin gerade dabei ein kleines VB6 Programm zu schreiben und bin dabei auf folgendes Problem gestoßen: Wenn ich das Programm starte und AutoCAD-DWG s mit dem Windows Datei öffnen-Dialog (Common Dialog) auswähle, wird üblicherweise der Ordner angezeigt, welcher unter CommonDialog.InitDir definiert ist. Ich möchte aber den zuletzt besuchten Ordner in einer Datei in einem Temp-Ordner speichern, damit er mir nach erneutem Starten des Programms wieder aus dieser Datei ausgelesen und beim Datei-öffnen D ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBA mit dwt öffnen
Proxy am 07.07.2004 um 15:35 Uhr (0)
Aus der Hilfe: Private Sub ACADApp_ BeginOpen (FileName As String) This example intercepts an Application BeginOpen event. This event is triggered when a drawing is opened by AutoCAD. To trigger this example event: 1) Make sure to run the example that initializes the public variable (named ACADApp) linked to this event. 2) Use AutoCAD to open an existing drawing Use the FileName variable to determine which drawing file is being ope ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zuletzt besuchten Ordner in Temp-Pfad speichern
BloodyMess am 07.07.2004 um 21:54 Uhr (0)
Hallo Wolfgang, Zitat: Ich möchte aber den zuletzt besuchten Ordner in einer Datei in einem Temp-Ordner speichern Du kannst Dir im Stammverzeichnis einen eigenen Temp-Ordner anlegen und somit immer auf diesen Ort zugreifen oder Du liest Dir über nachfolgende Funktion das Systemverzeichnis aus und legst Dir dort einen Ordner an. Ich finde das ist eigentlich egal wo. Beide Sachen sind recht zuverlässig. Erste Variante kenne ich im Einsatz. Code: Declare Function GetSystemDirectoryA _ Lib kernel32 ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Username in Makro berücksichtigen
The VIP am 08.07.2004 um 08:42 Uhr (0)
Hallo. Ich habe hier Makros die bestimmte Vorlagen-Zeichnungen schreibgeschützt öffnen. Alle Konstruktuere greifen auf das Makro zu. Die Dateien selbst sind nicht schreibgeschützt, da sich an den Vorlagen recht häufig was ändert (sonst muss man immer umständlich den Schreibschutz aufheben). Der einzige der an den Zeichnungen was ändert bin ich. Deshalb wollte ich wissen ob ich das Makro eine Zeile einbauen kann die in etwa heißt: Code: If Application.Username = The VIP Then ThisDrawing.Application.D ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBA mit dwt öffnen
Proxy am 08.07.2004 um 15:49 Uhr (0)
wenn du es in AutoLoad _appload reinziehst IMHO schon .... ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Abfragen ob Block schon in der Zeichnung ist
The VIP am 12.07.2004 um 10:48 Uhr (0)
hm, das versteh ich nicht. Ich bin kein Profi bei VBA in AutoCAD. Kannst du mir dazu noch etwas mehr Infos geben?
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Acad Suchfunktion mit VBA ??
Marco Lorenz am 18.07.2004 um 23:16 Uhr (0)
Wenn Du die Datenbank nach einzelnen Elementen durchsuchst, kann das ziemlich lange dauern, bei größeren Zeichnungen. Du kannst mit einem Selectionset arbeiten. z.B. so: Dim Gpcode(0) As Integer, Datavalue(0) As Variant, SS1 as AcadSelectionSet, Object as AcadObject Gpcode(0) = 0 Datavalue(0) = *TEXT *TEXT spricht sowohl Texte als auch MTexte an... Set SS1 = ThisDrawing.SelectionSets.Add( Texte ) SS1.Select acSelectionSetAll, , , Gpcode, Datavalue MsgBox CStr(SS1.Count) & Texte gefunden... For Eac ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : AUTOCAD VBA
Marco Lorenz am 18.07.2004 um 23:49 Uhr (0)
Mit der InsertBlock-Methode gehts zwar, aber Du hast den Block nicht am Cursor sichtbar, wenn Du den Einfügepunkt vorher zeigst. Probiers mal damit: Public Sub test() Dim xScale As Double Dim yScale As Double xScale = 2.1 yScale = 1.25 ThisDrawing.SendCommand _ (command -_insert test1 Pause & xScale & & yScale & 0) & vbCr End Sub Aber Achtung: Falls Du mehr als eine Pause machst (z.B. auch noch für Skalierfaktor oder Einfügewinkel), dann läuft VBA asynchron weiter (bei einer Pause funktio ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Index
LordK am 19.07.2004 um 17:09 Uhr (0)
Hallo! Ich möchte mehrere Zeichnungen indizieren. D.h. ich will den Dateinamen einer AutoCAD-Zeichnung und wichtige Daten der Zeichnungen in einer Excel-Tabelle ablegen (es soll halt so sein, dass man an der Tabelle erkennen kann, was ich wo finde). Meine Frage: Ich möchte das mit VBA machen, da ich mich damit ein bisschen auskenne. Wie muss ich da vorgehen? (Ich habe momentan keinen Rechner mit Autocad zur Verfügung, will mich aber schlau machen bis zu dem Zeitpunkt an dem ich daran arbeiten werde). Hoffe ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Index
Marco Lorenz am 22.07.2004 um 12:10 Uhr (0)
Also, ich würde Dir da mal eher MS-Access empfehlen, da kannst Du die Daten einfacher handeln, speziell, wenns ein paar mehr sein sollen (schnelles Suchen etc...). Aber Excel geht natürlich auch, ist halt keine richtige Datenbank. Du kannst den kompletten Code innerhalb von MS-Office schreiben. Am besten nimmst Du die AutoCAD-Bibliothek zu den Verweisen dazu. Das AutoCAD-Objekt bekommst Du mit Set Acadapp = GetObject(, Autocad.Application ) oder, falls AutoCAD noch nicht offen ist: Set Acadapp = CreateObj ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit Profil starten
Kelme am 22.07.2004 um 14:36 Uhr (0)
Hallo zusammen. Wenn man AutoCad mit folgendem Code startet: Dim acad As AcadApplication Dim cad As Object Set cad = CreateObject( AutoCAD.Application ) Set acad = cad Wie kann man dann noch sagen, dass dabei noch ein bestimmtes Profil verwendet werden soll? Gruß
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : mit Profil starten
startrek am 22.07.2004 um 15:02 Uhr (0)
Hi, tippe mal im Direktfenster: ?autocad.preferences.profiles.activeprofile [Enter] Rein theoretisch und ungetestet hiesse das dann etwa: acad.preferences.profiles.activeprofile= ProfilXYZ Aber wie gesagt, habs nich probiert lg Nancy
|
| In das Form Autocad VBA wechseln |
