|
AutoCAD VBA : VBA Form eintragen mit Attributen
vittorio0 am 15.07.2009 um 00:25 Uhr (0)
Hi alfreddanke für den Hinweis. Bei mir im code sind die beiden Zeilen ok, muss wohl beim reinkopieren passiert sein. Ich hab wohl noch einige Lücken in vba und autocad, versteh Dein code nicht wirklich und kann dies auch nicht mit meinem Formular (frmEditAttr) und den zugehörigen Textboxes (F1 F5 F6 usw) benannt sind, verbinden. Kannst Du die Zeilen noch etwas ausdeutschen für mich? Besten Dank.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA Form eintragen mit Attributen
vittorio0 am 15.07.2009 um 00:25 Uhr (0)
Hi alfreddanke für den Hinweis. Bei mir im code sind die beiden Zeilen ok, muss wohl beim reinkopieren passiert sein. Ich hab wohl noch einige Lücken in vba und autocad, versteh Dein code nicht wirklich und kann dies auch nicht mit meinem Formular (frmEditAttr) und den zugehörigen Textboxes (F1 F5 F6 usw) benannt sind, verbinden. Kannst Du die Zeilen noch etwas ausdeutschen für mich? Besten Dank.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block einfügen mit getpoint
vittorio0 am 24.08.2009 um 23:33 Uhr (0)
Hallo alle ich möchte ein Block dessen Pfad und Name in einer Datei auf der Festplatte liegt mittels VBA in die Zeichnung einfügen. Den Skalierfaktor entnehme ich der DIMSCALE. Soweit funktionierts, nur sehe ich den Block nicht am Fadenkreuz beim wählen des Einfügepunktes. Ist das irgendwie machbar, ev. mit einem anderen Lösungsansatz?Code:Open "c: empinsblock.txt" For Input As #1Line Input #1, blockpathClose #1mst = Int(ThisDrawing.GetVariable("LTSCALE"))Set blockRefObj = ThisDrawing.ModelSpace.InsertBloc ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : .Find meldet unzulässige Verwendung eines Objekts
vittorio0 am 29.06.2011 um 19:19 Uhr (0)
Hallo,der folgende codeschnipsel funktionier mit autocad 2009. Ich hab aber eine 2000er Version da kommt die Fehlermeldung "unzulässige Verwendung eines Objekts" bei der Zeile wo ein Datensatz gesucht wird. (oRecSet.Find "[F23] = " & strDWG & "")Win XP SP3, Acad 2000, Office 2003 Professional, Verweise gesetztCode: build ADO connection stringoConnect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" MS Access Datenbank VerbindungspfadoConnect.Properties("Data Source") = "E:zvmfbacadzvdata.mdb"oCon ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : .Find meldet unzulässige Verwendung eines Objekts
vittorio0 am 18.10.2011 um 20:44 Uhr (0)
Auf die Antwort von -alfred- etwas mehr code. In der msgbox sehe ich die einzelnen Einträge, benutze ich jedoch .Find kommt die besagte Fehlermeldung. XP Prof, Autocad 2000 Access 2003 Runtime alles neu installiert und updates gefahren, (inkl. Office 2003 SP3)Code:Private Sub btnAttrFromZV_Click() Attribute von MS Access holen und in der Form einlesenDim oConnect As New ADODB.ConnectionDim oRecSet As New ADODB.RecordsetDim strDWG As StringDim sSQL As StringDim dwgPrefix As StringDim dwgName As StringDim DW ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zeichnung1 bei mehreren Fenstern (MDI)
vittorio0 am 08.01.2012 um 23:39 Uhr (0)
Liebes ForumMit dem untenstehenden Code (in Access 2003) starte ich AutoCAD 2009 und öffne die Datei in "tocall"AutoCAD wird gestartet und die Zeichnung geöffnet. Mit acApp.Visible = True wird dann auch AutoCAD als aktives Fenster im Vordergrund dargestellt. Wenn ich dann eine weitere Zeichnung öffne in Access wird jedoch AutoCAD nicht mehr im Vordergrund dargestellt. Jede weitere Zeichnung ist die Access Applikation im Vordergrund. Warum? Mit "acApp.Visible = True" wird doch AutoCAD angezeigt.Da aber im ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zeichnung1 bei mehreren Fenstern (MDI)
vittorio0 am 09.01.2012 um 15:02 Uhr (0)
Hallo Stelli1,AppAcivate hat funktioniert, hab das mit hide falsch versatanden. Besten Dank für die schnelle Antwort.Betreffend der Geschwindigkeit. In meinem Fall starte ich AutoCAD von Access aus und lade mir eine Zeichnung gemäss obigem code. Ist es auch langsämer für alle weiteren Operationen die danach manuell ausgeführt werden?Gruss Vittorio0
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : alle Layout löschen in Zeichnung
vittorio0 am 14.03.2013 um 16:24 Uhr (0)
Hallo,ich möchte alle vorhandenen Layouts in der aktuellen Zeichnung löschen. Vorher füge ich noch ein Layout mit dem Namen "dummy" ein da ja man immer min. 1 Layout und den Modellbereich in Autocad haben muss. Der folgende Code funktioniert bis er auf den Layoutnamen "Model" kommt. Danach kommt die Fehlermeldung "Error 5: Ungültiger Prozeduraufruf oder ungültiges Argument" Was mach ich da falsch?Code: Delete all layouts @@@ Dim TabCount As Long, TabOrder As Long Dim TabName As String T ...
|
| In das Form AutoCAD VBA wechseln |
