|
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 ...
|
|
AutoCAD VBA : Nach Text suchen und diesen löschen
KlaK am 23.10.2008 um 23:19 Uhr (0)
Hallo Gerhard,leider schreibst Du nicht wie Du alle Texte schon gefunden hast.Vermutlich über SelektionSet mit Mode Selectall.Wenn Du im aktuellen Layout diesen Text suchen möchtest, würde ich den Selektionset mit Mode = acSelectionSetWindow und einem Fenster mit Hilfe der Systemvariablen ExtMin und ExtMax machen.Damit bekommst Du nur die Angezeigten Texte.Alternativ:Durchsuchen von ThisDrawing.ActiveLayout.Block.item( 0 - (~.count -1))Grüße,Klaus
|
|
AutoCAD VBA : InsertBlock langsam - Alternativen ?
KlaK am 20.11.2008 um 16:11 Uhr (0)
Hallo Alfred,Danke für die Antwort, Du warst ja schnell ..Codeschnipsel:Code:Sub TextAuftrag() Dim TextObj As AcadText Dim blockRefObj As AcadBlockReference Dim textString As String Dim insertionPoint(0 To 2) As Double Dim height As Double Form1.lblAblauf.Caption = " Zeichnen Texte / Symbole" Form1.lblAblauf.Visible = True Form1.ProgBar.Min = 0 Form1.ProgBar.Value = 0 Form1.ProgBar.Max = TGesamt Form1.ProgBar.Visible = TrueFor i = 1 To TGesamt i Global als Currency Form1.ProgBar.Value = i Define th ...
|
|
AutoCAD VBA : Block sprengen und Inhalt auswählen
KlaK am 16.06.2015 um 23:41 Uhr (1)
Hallo Christian,vermutlich liegt es daran, dass Dein Vorhaben nicht ganz banal ist und eine Lösung mit VBA fast unmöglich.Kann mich daran erinnern dass ein ähnliches Vorhaben hier schon einmal diskutiert wurde, konnte aber den Beitrag noch nicht finden. Aber ich glaube damals mußte es dann über Lisp-code gelöst werden.Außerdem ist es immer hilfreich eine Beispielzeichnung und den bisherigen Code zu haben. Ein Bild (Skizze) sagt manchmal mehr als eine unverständliche Erklärung. So ganz klar ist mir noch nic ...
|
|
AutoCAD Civil 3D : Keine alphaeumerischen Punktnummern?
KlaK am 01.12.2006 um 20:30 Uhr (0)
Hallo Stephan,hast Du es mal mit dem AutoCAD Objekt Enabler probiert?Müßte auf der CD sein oder über http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=5461113&linkID=2475161 Damit kann man zwar keine neuen Objekt erzeugen aber vorhandene in gewissen Rahmen bearbeiten (Punkt oder Text verschieben, Pktnr oder Namen ändern). Vorteil: Die Zeichnung kann wie gehabt unter C3D weiterverwendet werden und der lästige Proxyhinweis entfällt.Zum Thema Anzeige des Namens im Block:Dazu geht man in den P ...
|
|
AutoCAD Civil 3D : Mengenermittlung REB
KlaK am 12.12.2008 um 10:04 Uhr (0)
Weil es mir gerade einfällt:Du hast schon das Update vom November heruntergeladen? Zitat:ab sofort steht für Sie ein Update der AutoCAD Civil 3D 2009 German Extension unter folgendem Link zur Verfügung: http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=12099757&linkID=9240698 Mit diesem Update in den ARX Routinen werden nun Berechnungen richtig im Berechnungsprotokoll der REB-Verfahrensbeschreibung 22.013 Massen und Oberflächen aus Prismen angezeigt und werden fehlende Haltungen und Schächte ...
|
|
AutoCAD VBA : Referenzen eines Blocks ermitteln
KlaK am 14.12.2021 um 13:21 Uhr (1)
Im Prinzip hast Du schon recht, wenn man einen Selectionset mit acSelectionSetAll macht bekommt man alle Blockreferencen auf allen Layouts.Aber mir ist keine Möglichkeit in VBA bekannt, wie ich herausbekomme ob sich das Element im Modellbereich oder in welchem Layout befindet.Habe ich noch nicht gebraucht und auch jetzt keinen direkten Zugriff vom Selectionset.item auf das Layouts-Element gesehen.GrüßeKlaus
|
|
VBasic / vb.net / vbs / wsh : vb.net acad block in block löschen
KlaK am 04.04.2016 um 19:56 Uhr (1)
Hallo Feyza,Natürlich ist das möglich.Nachdem der Block eingefügt ist durchsuchst Du die Blocks-Table. Hast Du den Block gefunden, untersuchst Du die einzelnen Item und löscht die die Du nicht brauchst aus der Blockdefinietion.Wurde der Block bereits in der Zeichnung referenziert muß natürklich ein regen erfolgen damit das auch sichtbar wird.GrüßeKlaus
|
|
VBasic / vb.net / vbs / wsh : vb.net: tabpage deaktivieren, verstecken, disablen...
KlaK am 14.09.2015 um 12:00 Uhr (1)
Hallo Namensvetter,Warum verwendest Du keine Multipages? Die kannst Du nach belieben ein- und ausblenden und vom Aussehen her ist das kein Unterschied.Ausblenden über: UserForm1.MultiPage1.Pages.Item("Page2").Visible = TrueGrüßeKlaus
|
|
AutoCAD VBA : Insert block durch knopf drück
KlaK am 10.12.2007 um 12:29 Uhr (0)
Hallo dw,hab Dir den Code noch mal zusammengestellt:Code:Dim startPnt As Variant Het startpunt van dat object, nodig om hoek te bepalen.Dim basePnt As Variant Het aanwijspunt van dat object.Dim blockRefObj As AcadBlockReferencefrmtrusstype.HideThisDrawing.Layers.Add ("Eurotruss_FD_31")ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item("Eurotruss_FD_31")basePnt = ThisDrawing.Utility.GetPoint(, "Basis punkt angeben:") MsgBox "nu komt de rest" Diese Zeilen sind nicht nötig, ThisDrawing.SendComma ...
|
|
AutoCAD VBA : Schnittpunkte von Architectural Desktop Objekten ermitteln
KlaK am 15.08.2008 um 12:29 Uhr (0)
Hallo Michel,Leider habe ich keinen ADT, deshalb ist es nicht so einfach den Code nachzuvollziehen.Folgendes ist mir nur aufgefallen beim Problem 1:Code:NeuesUZBauteil.UZLinie = ThisDrawing.ModelSpace.AddLine(NeuesUZBauteil.StartPunkt, _ NeuesUZBauteil.EndPunkt)Zum Einen: Ist der Unterstrich absichtlich? (oder sollte hier eine Fortsetzung in der nächsten Zeile folgen?)Zum Anderen: Hast Du Dir mal die Definition von StartPunkt und EndPunkt angesehen? Die Methode erwartet hier einen Variant (three-element ar ...
|
|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
KlaK am 14.02.2009 um 10:20 Uhr (0)
Und das ist auch richtig so, denn wenn Du einen Block zuweisen möchtest, den es nicht gibt, ist das eben ein Fehler.Deshalb mache ich es entweder so wie Du am Anfang mit:on error resume nextSet Block = ThisDrawing.Blocks.Add(Bpkt, blockname)If Err 0 then Set Block = ThisDrawing.Blocks.Item(blockname)End Ifon error goto 0oder (die sauberste Lösung) ich verwende eine Unterroutine, die alle Blöcke in Blocks durchsucht. Wenn der Block nicht vorhanden ist wird er erzeugt. Die Funktion gibt dann den Block (vor ...
|
|
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 ...
|
