|
AutoCAD VBA : Attribute in AutoCAD über Excel VBA ausfüllen lassen
KlaK am 09.05.2017 um 23:13 Uhr (1)
Hallo Acaduser84, Willkommen im Forum Habe zwar gerade kein Autocad bei der Hand aber vielleicht auf die Schnelle ein paar Hinweise.Zunächst schreibst Du Du hast eine Autocadzeichnung die den Block "Rohrtabelle" enthält. Im Programm überprüfst Du zwar ob eine Autocadzeichnung geöffnet ist, falls nicht wird einfach eine neue Zeichnung geöffnet. Stellt sich mir natürlich gleich die Frage ob der Block in der Standardvorlage enthalten ist.Dann holst Du Dir die Blockdefinition und möchtest das Attribut der Def ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle AcadCircle und Polygone durchlaufen
KlaK am 10.08.2007 um 21:24 Uhr (0)
Hallo Peter,ich weis dass programmieren unheimlich Spaß machen kann, aber Du solltest nebenbei auch der Antwort von Stelli nachgehen.Der Block 60_40 bezeichnet eine Rohrklappe in der DN150 Leitung. Dort wird die Kamera eingesetzt. Daneben zeigen die Pfeile die Befahrungsrichtung an. In dem Musterausschnitt gibt es noch Putzstücke (so werden die Klappen auch manchmal bezeichnet) mit 60_60 (=Blockname) und Putzer (ebenfalls Blockname).Bei Deiner Programmierung möchtest Du bei Öffnung 1 beginnen und dann aufs ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Userform automatisch oeffnen
KlaK am 18.11.2013 um 17:24 Uhr (1)
Zitat:Original erstellt von JoKurt87:Ich weiss zwar nicht wofuer das wichtig ist, in Bezug auf mein Problem, aber ihr habt danach gefragt, also bekommt ihr auch die Antwort. Ja, das ist schon wichtig Du könntest Dir z.B. den ganzen Zinnober mit activate / init sparen, wenn Du nach der Eingabe in der Exceltabelle, das Autocad mit der richtigen Zeichnung gleich von Excel aus aufrufst, die Einstellungen machen lässt und gleich an den Drucker schickst. Könnte sogar alles im Hintergrund geschehen ohne das der ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : alle Layout löschen in Zeichnung
KlaK am 15.03.2013 um 14:55 Uhr (0)
oder gleich mit:Code:..For each entity in ThisDrawing.Layouts ..da spart man sich solch lästige Fehler ...GrüßeKlaus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 10.04.2013 um 00:41 Uhr (0)
Noch einen ergänzenden Hinweis:Ich weis ja nicht welche Art von Blöcken Du bearbeiten willst, aber ich finde den Abschnitt zum befüllen der Blöcke sehr gefährlich, da Du damit die Attribute praktisch neu definierst. Wenn also der Block in der Zeichnung nicht genau den Vorgaben entspricht werden manche Felder einfach überschrieben.Meist geht man hier so vor dass man das Array aus dem Tabellenblatt liest und dann das Blockattribut mit dem neuen Inhalt füllt.Beim Planstempel etwa so ähnlich:Select case attrib ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 12.04.2013 um 15:07 Uhr (0)
Da sind mir zu wenig Infos ..Laß Dir einfach mal in der msgbox anzeigen welche Werte intZeil, intSel annehmen(oder überprüfen es im Lokal oder Überwachungsfenster)Kann ja nur an der Selection.Item(intsel).Row liegen
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 04.04.2013 um 21:29 Uhr (0)
zu 2. wenn eine andere Zeichnung ausgewählt wird (zb. eine Zeile weiter unten), werden die Daten trotzdem in die gleichen Felder geschrieben:Du verwendest für die Cells immer (j+1,z) hast aber als Schleifenzähler Iersetze doch einfach die Zeile : j = Selection.Count --geändertmit: j=Izu 3. wenn ich mehrere Zeichnungen in meinem Excel auswähle dann wird nur die erste gemacht (da verliert der Counter etwas)= Dachte ich mir schon, aber Deine ersten Fragen war ja auf Acad bezogen Schriftkopf1 = Cells(7, 26 + ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle Textstile in einer Zeichnung ändern
KlaK am 24.11.2013 um 00:46 Uhr (1)
Darf man fragen wieviel Erfahrung Du schon mit Programmierung und Autocad hast?Und was genau Dein Anliegen wäre? So wie hier alle Textstile auf den gleichen Wert stellen oder allen Texten den gleichen Textstil zuweisen (wie sieht es bei Blockattributen aus)?
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Zeichnung/drawing kopieren/duplizieren
KlaK am 11.11.2013 um 19:57 Uhr (1)
Mal eine andere Frage:Warum erstellst Du Dir nicht einen Block mit den entsprechenden Attributen (Textfelder)?Diesen Block kannst Du beliebig plazieren und die Attribute mit Deinen Werten (z.B. Seriennummern) füllen.Schau mal in der Hilfe unter:- AcadBlock (oBlock = Thisdrawing.blocks.add(,)- oBlock.AddAttribute( )- AcadBlockReferenz (oBlockRef=ThisDrawing.ModellSpace.InsertBlock(ipoint,oblock,..)- oBlockRef.HasAttributes- oBlockRef.GetattributesIst für den Anfang vielleicht etwas viel, aber es gibt hier a ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 02.04.2013 um 22:22 Uhr (0)
Hallo Ronald,Dein Stenostil ist wohl etwas für Insider ...So ganz ist mir nicht klar was Du genau machen möchtest.Ich gehe mal davon aus, Du hast ein Tabellenblatt mit irgendwelchen Attributen (welche? Bedeutung?) die Du zu irgendwelchen Blöcken zuordnen möchtest. Oder sollen die Blöcke neu erstellt werden? Aktualisiert (mit welcher Referenz)?Es ist immer günstiger eine genauer Beschreibung anzugeben, noch besser Codeschnipsel (oder Beispielzeichnung, ~tabelle) bei denen Du nicht weiterkommst. Aber hier ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 03.04.2013 um 01:04 Uhr (0)
Nachdem im Fernseh nichts kam und ich noch nicht müde war bin ich doch mal Deinem Link gefolgt und habe die ZIP-Datei gefunden. OK, da hast Du ja schon Deine Versuche mitgeliefert.Im Prinzip mußt Du in Deinem Code gar nicht viel verändern.Im Versuch 2 solltest Du doch schon ganz gute Ergebnisse bekommen haben, nur müßtest Du anstelle des festen Textes Deinen Zellenwert übergeben.Im Versuch 3 schaut es noch besser aus, nachdem ich aber meine HomeUse noch nicht verlängert habe, konnte ich den Code nicht test ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 05.04.2013 um 19:26 Uhr (0)
Hallo,Sorry aber mit dem "funktioniert es nicht richtig" kann man wenig anfangen.Setz doch mal die Fehlermeldung zurück On Error goto 0dann bekommst Du die Fehlermeldungen direkt angezeigtmeine Vermutung beim Blick auf den Code liegt bei dem If acad.ActiveDocument.FullName = dwgname Thenansonsten :befüllen von Attributwerten macht man üblicherweise mit einer select case - Abfrageda gibt es im Forum hier aber genügend BeispieleSchönes WEKlaus PS: Keine AHnung ob ich am WE noch mal genauer schauen kann . ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blockattribute aus einer Zeichnung und in Excel übergeben
KlaK am 03.04.2013 um 22:55 Uhr (0)
Also bei mir macht es Dein Programm (mit kleinen Änderungen )zunächstmal: Warum hast Du denn die Autocad/ObjectDBX .. Type Library in den Verweisen aktiviert ?bei mir hat diese verhindert, dass dem bl das Element aus dem ssgetObj zugewiesen werden konnte.Dann habe ich noch ein Element dazugefügt (unter dim bl) Dim ent As AcadEntityMir ist eine for each Abfrage lieber For s = 0 To ssetObj.Count - 1 For Each ent In ssetObj If ent.ObjectName = "AcDbBlockReference" Then Set bl = e ...
|
| In das Form AutoCAD VBA wechseln |
