|
AutoCAD VBA : Attribute auslesen von aktuellem Blatt
f-m am 01.03.2010 um 16:00 Uhr (0)
leider komm ich mit dieser Aussage nicht weiter.Das ist zum aktuellen Zeitpunkt voll funktionsfähig. Das Tool läuft und läuft und läuft!dieser scan bezieht sich immer auf die gesamte dwg-datei nicht auf ein aktuelles layout in dieser Version... das soll sich ändern....denke liegt an diesem part Private Sub CommandButton1_Click() Dim blockname As String Dim a, blocktotal As Integer UserForm2.Hide ListBox1.Clear blocktotal = ThisDrawing.Blocks.count For a = 0 To blocktotal - 1 blockname = ThisDrawi ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribute auslesen von aktuellem Blatt
f-m am 11.03.2010 um 11:35 Uhr (0)
Code:tDxfCodes(2) = 410: tDxfValues(2) = "Layout 1"das Leerzeichen? oder auf welchen Fehler spielst du an?
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribute auslesen von aktuellem Blatt
f-m am 01.03.2010 um 15:02 Uhr (0)
Hallo,danke zunächst für die schnelle Antwort!Richtig, meine ein AutoCad-Layout-Blatt ;-)Tool sieht aktuell folgender Maßen aus:Private Sub CommandButton1_Click() Dim blockname As String Dim a, blocktotal As Integer UserForm2.Hide ListBox1.Clear blocktotal = ThisDrawing.Blocks.count For a = 0 To blocktotal - 1 blockname = ThisDrawing.Blocks.Item(a).name If Not Mid$(blockname, 1, 1) = "*" Then ListBox1.AddItem blockname Next a
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |