|
AutoCAD VBA : mehrere Layouts mit Schriftfeldern
vittorio0 am 22.11.2012 um 23:35 Uhr (0)
Liebes Forum,Mittels VBA hab schreibe ich die Attribute einer Form in das Schriftfeld das in einem Layout vorhanden ist. Das funktioniert auch solange nur ein Layout vorhanden ist. Erstelle ich ein 2. Layout das dasselbe Schriftfeld benutzt kann ich weder vom Schriftfeld Lesen oder ins Schriftfeld schreiben. Wie unterscheidet man in welches Schriftfeld man schreibt mit VBA code?Danke für Eure Hilfe.
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : mehrere Layouts mit Schriftfeldern
vittorio0 am 02.12.2012 um 10:55 Uhr (0)
Hallo,wie würde ich so ein SelectionSet-Filter definieren, dass in meinem Beispiel nur im jeweiligen activen Layout die in der Liste aufgeführten Blockreferenzen gefunden werden? So wie der code jetzt ist, nimmt er immer das letzte Layout, egal ob ich in Layout1, 2 oder 3 bin.Besten Dank!
| | 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 : 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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
