|
AutoCAD VBA : Plotstilltabelle in Zeichnung per VBA ändern
Bernhard F. am 11.05.2009 um 12:27 Uhr (0)
Hallo zusammen,ich möchte die Plotstilltabelle auf einen bestimmten vorgegebenen Namen Ändern (in Modell und in Layout1). Kann mir jemand einen Tip geben?DankeBernhard F.------------------Gruß, Bernhard F.
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Plotstilltabelle in Zeichnung per VBA ändern
Bernhard F. am 11.05.2009 um 14:31 Uhr (0)
Danke für die Hilfe.Ich habe selber die Lösung gefunden. Dim styleSheetName As String Dim Style_orig As String Style_orig = "TEST.ctb" Dim i% With ThisDrawing.Layouts For i = 0 To .Count - 1 ThisDrawing.Layouts(i).StyleSheet = Style_orig Next End With------------------Gruß, Bernhard F.
| | In das Form AutoCAD VBA wechseln |
 |
AutoCAD VBA : Linienfarbe filtern die Linienstärke ändern
Bernhard F. am 27.11.2020 um 16:36 Uhr (15)
Hallo zusammen,Ich möchte von einer Zeichnung eine Linenfarbe filtern (RGB:0,154,205).Nun möchte ich die Linienstärke dieser Auswahl ändern.Ich möchte das mit VBA-Code lösen, da es mehrere Zeichnung betrifft.Kann mir dabei jemand helfen?mfgBernhard------------------Gruß, Bernhard F.
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : In Excel vorhandene Blöcke auflisten
Bernhard F. am 27.04.2009 um 10:39 Uhr (0)
Hallo zusammen,wie kann man in Excel per VBA abfragen, welche Blöcke in der aktiven Zeichnung vorhanden sind?Danke im voraus.------------------Gruß, Bernhard F.
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : In Excel vorhandene Blöcke auflisten
Bernhard F. am 27.04.2009 um 11:44 Uhr (0)
Hallo Wilfried,ich will nur wissen welche Blöcke sich in der Zeichnung befinden. (Auflistung der Blocknamen).Code: Dim acad As AcadApplication Dim fType(0 To 1) As Integer, fData(0 To 1) Dim adBlockSS As AcadSelectionSet Dim adBlock As AcadBlockReference Dim adBlockAttributes As Variant Dim adBlockList As String Dim i As Integer Set adBlockSS = acad.ActiveDocument.SelectionSets("adBlockSS")hier ist der Fehler If Err Then Set adBlockSS = acad.ActiveDocument.SelectionSets.Add("adBlockSS") adBlockSS.Clear fTy ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte von Excel auf Attribute übergeben
Bernhard F. am 17.03.2008 um 15:03 Uhr (0)
Zitat:[/QUOTE]Woher soll das Programm wissen welche Attribute sich ändern sollen ?[QUOTE]Die gebe ich an. z.B.: ba(6).TextString = Cells(15, 6).Value Zitat:[/QUOTE]Wie ist denn die Verbindung der Blockreferenz zur Exceltabelle ? (Handle, Koordinate, ???)[QUOTE]Das ist eben die Frage, das kann ich nicht sagen. Zitat:[/QUOTE]Wenn man das dem Programm immer blockweise angeben musst, kann man die Werte ja fast von Hand ändern.[QUOTE]Das ist richtig, aber die Exceltabelle (Blattverzeichniss) wird von jemanden ...
| | In das Form AutoCAD VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
