|
AutoCAD VBA : VBA Form eintragen mit Attributen
vittorio0 am 13.07.2009 um 13:20 Uhr (0)
Hallo Forumich habe eine VBA Form die ich mit dem folgenden Code ausfülle:Get the blocks attributesTatts = ssnew.Item(0).GetAttributesfrmEditAttr.F6.Text = (LTrim(Tatts(0).TextString))frmEditAttr.F7.Text = (LTrim(Tatts(1).TextString))frmEditAttr.F5.Text = (LTrim(Tatts(2).TextString))frmEditAttr.F42.Text = (LTrim(Tatts(3).TextString))frmEditAttr.F46.Text = (LTrim(Tatts(4).TextString))frmEditAttr.F38.Text = (LTrim(Tatts(5).TextString))frmEditAttr.F4.Text = (LTrim(Tatts(6).TextString))frmEditAttr.F43.Text = ( ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA Form eintragen mit Attributen
vittorio0 am 13.07.2009 um 13:20 Uhr (0)
Hallo Forumich habe eine VBA Form die ich mit dem folgenden Code ausfülle:Get the blocks attributesTatts = ssnew.Item(0).GetAttributesfrmEditAttr.F6.Text = (LTrim(Tatts(0).TextString))frmEditAttr.F7.Text = (LTrim(Tatts(1).TextString))frmEditAttr.F5.Text = (LTrim(Tatts(2).TextString))frmEditAttr.F42.Text = (LTrim(Tatts(3).TextString))frmEditAttr.F46.Text = (LTrim(Tatts(4).TextString))frmEditAttr.F38.Text = (LTrim(Tatts(5).TextString))frmEditAttr.F4.Text = (LTrim(Tatts(6).TextString))frmEditAttr.F43.Text = ( ...
|
| 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 und-color: #FFFF99'>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 : 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 |
