|
AutoCAD VBA : Bestimmtes Schriftfeld in Zeichnung finden
vittorio0 am 30.09.2009 um 22:04 Uhr (0)
hat geklappt, danke schön!
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bestimmtes Schriftfeld in Zeichnung finden
vittorio0 am 29.09.2009 um 23:30 Uhr (0)
Halle zusammen!ich habe mir folgenden Code zusammenkopiert und probiert ein Formular mit den Werten des Zeichnungskopfes mit dem Namen SF_Nxx einzulesen. Mit den meisten Zeichnungen klappt das Problemlos. Es gibt aber Zeichnungen bei denen der Name SF_Nxx nicht gefunden wird, obwohl der Block in der Zeichnung vorhanden ist.Kann mir da ein ACAD-VBA Guru helfen das Problem zu finden?Code:Private Sub userform_Initialize() Dim EntGrp(0) As Integer Dim EntPrp(0) As Variant Dim BlkObj As Object Dim Pt1(0) As Dou ...
|
| 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 |
|
AutoCAD VBA : Bestimmtes Schriftfeld in Zeichnung finden
vittorio0 am 30.09.2009 um 06:48 Uhr (0)
Hallo alfredSuper, besten Dank für die schnelle Antwort. Ich hab den code nun wie unten angepasst und das hat das Problem bei den meisten Zeichnungen gelöst. Eine Zeichnung mit sehr vielen Elementen hat das Problem jedoch noch.Kann man den Layer auch in den Auswahlsatz einbeziehen, das Schriftfeld ist bei allen Zeichnungen immer auf dem gleichen Layer. (Gain_ZSF)Bei Zeichnungen die recht gross sind, ca. 8MB, dauert es relativ lange bis die userform angezeigt wird. Ev. würde das auch beschleunigt wenn nur d ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bestimmtes Schriftfeld in Zeichnung finden
vittorio0 am 30.09.2009 um 20:59 Uhr (0)
Hi alfreddanke für die Info. Ich hab nun mein code abgespeckt, so dass ich verstehe was passiert. Mit dem folgenden code werden mir die Attributwerte ins Formular übertragen und mit UBound(Tatts) sehe ich dass es deren 19 an der Zahl sind.Was ich jetzt noch herausfinden möchte, ist der komplette Name des *SF_N* Blockes, wie komme ich an den ran?Code:Private Sub userform_Initialize()Dim EntGrp(1) As IntegerDim EntPrp(1) As VariantEntGrp(0) = 0EntPrp(0) = "INSERT"EntGrp(1) = 2EntPrp(1) = "*SF_N*" define erro ...
|
| 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 : mehrere Layouts mit Schriftfeldern
vittorio0 am 24.11.2012 um 17:25 Uhr (0)
Hallo HolgerHier der code der mit einem Layout funktioniert. Wenn ich wüsste wie man sagt ins aktuelle Layout schreiben, würde das funktionieren.Code:Private Sub btnAttrToDwg_Click() Editierte Attribute zurück in Block schreiben MsgBox "Schriftfeldname zur Zeichnung " & ThisDrawing.GetVariable("dwgname"), vbInformation, "Schriftfeldname ist: " & SF Update the attribute valuesOn Error GoTo err_controlDim EntGrp(1) As IntegerDim EntPrp(1) As VariantEntGrp(0) = 0EntPrp(0) = "INSERT"EntGrp(1) = 2EntPrp(1) = "S ...
|
| 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 : mehr als 1 Blockname in ssnew.Select acSelectionSetAll
vittorio0 am 24.05.2011 um 17:01 Uhr (0)
Hallo,mit dem folgenden code lad ich die Attribute eines Zeichnungkopfes in eine Form. Ich möchte das aber so anpassen dass ich nach diversen Blocknamen suchen kann nicht nur "Kopf", ist das möglich?Code:Private Sub userform_Initialize()Dim EntGrp(1) As IntegerDim EntPrp(1) As VariantEntGrp(0) = 0EntPrp(0) = "INSERT"EntGrp(1) = 2EntPrp(1) = "Kopf" define error function On Error GoTo Err_Control create a selection set Set ssnew = ThisDrawing.SelectionSets.Add("TBLK") finde den Block ssnew.Select acSelec ...
|
| 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 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 : Problem mit Aufruf von Sub
vittorio0 am 29.01.2012 um 21:23 Uhr (0)
Liebes Forumbei dem folgenden code läuft alles gut bis zum Aufruf von UpdateAttrib. Fehlermeldung: Fehler beim kompilieren, Sub oder Function nicht definiert. tAtts ist markiert. Es scheint das die Sub einmal aufgerufen wird.Was mach ich da für ein Überlegungsfehler? Danke für Eure Hilfe.Code:Public Sub writeSF() Editierte Attribute zurück in Block schreibenDim SF As StringOn Error GoTo err_controlDim EntGrp(1) As IntegerDim EntPrp(1) As VariantEntGrp(0) = 0EntPrp(0) = "INSERT"EntGrp(1) = 2EntPrp(1) = "Kop ...
|
| In das Form AutoCAD VBA wechseln |
