|
AutoCAD VBA : Blockname automatisch generieren und Block einfügen/ersetzen
KlaK am 13.02.2009 um 20:35 Uhr (0)
Dimensionierung?Dim Bpkt(0 To 2) As Double
|
| In das Form AutoCAD VBA wechseln |
|
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 ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text und-color: #FFFF99'>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 und-color: #FFFF99'>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:Durchund-color: #FFFF99'>suchen von ThisDrawing.ActiveLayout.Block.item( 0 - (~.count -1))Grüße,Klaus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Blöcke nach Position und-color: #FFFF99'>suchen
KlaK am 29.03.2009 um 18:17 Uhr (0)
Vielleicht noch zur Ergänzung zu Alfreds Code: Zitat: Dim tSSet As AcadSelectionSet Set tSSet = ThisDrawing.SelectionSets.Add("AA8") Dim tDxfCodes(0) As Integer: tDxfCodes(0) = 0 Dim tDxfValues(0) As Variant: tDxfValues(0) = "INSERT" tSSet.Select acSelectionSetAll, , , tDxfCodes, tDxfValueskönnte man auch so machen:Code: Dim tSSet As AcadSelectionSet Set tSSet = ThisDrawing.SelectionSets.Add("AA8") Dim tDxfCodes(1) As Integer Dim tDxfValues(1) As Variant tDxfCodes(0) = 0 tDxfValues(0) = "INSERT" tDxfCodes ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Projekt konnte nicht geladen werden
KlaK am 18.05.2013 um 20:39 Uhr (0)
Dann hilft wohl nur und-color: #FFFF99'>suchen und hoffen, dass Du im falschen Verzeichnis gesucht hast ..
|
| In das Form AutoCAD VBA wechseln |
 |
AutoCAD VBA : Gruppenfilterinhalte mit VBA auslesen
KlaK am 26.06.2018 um 08:27 Uhr (15)
Hallo michimueller,Selber habe ich es noch nicht programmiert aber beschrieben ist der Zugriff auf das Dictionary in diesem Buch (entweder kaufen, falls es es noch gibt oder nach "Layer Filter" und-color: #FFFF99'>suchen, Seite 206)GrüßeKlaus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Fang auf einer Linie
KlaK am 11.07.2014 um 15:19 Uhr (1)
Teillösung dazu findest Du hierDamit kannst Du den Lotfußpunkt und Abstand zum Cursorpunkt berechnenMußt halt erst die Linie anwählen lassen und dann den Punkt verfolgenMuß mal und-color: #FFFF99'>suchen gehen,irgendwann hatte ich das auch mal für eine Achse programmiert ...Aber vielleicht hilft Dir das ja schon weiter.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Tab bzw. Ansicht für Zugriff auf AcadTable wechseln
KlaK am 01.05.2008 um 18:43 Uhr (0)
Hallo Peter,Wie Du im Eigenschaftsfenster sehen kannst hat der Block wirklich den Namen "SchachtlisteZeile" und in den Attributen stehen die zugehörigen Werte.Beispiele zum Auslesen der Werte findest Du im Forum viele, zum Beispiel hierDu mußt im Block das Attribut mit .TagString = "POS" und-color: #FFFF99'>suchen, im .TextString findest Du dann Deinen gesuchten Wert. Grüße,Klaus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle AcadCircle und Polygone durchlaufen
KlaK am 09.08.2007 um 13:33 Uhr (0)
Hallo Peter,was möchtest Du genau machen?Deine Achtecke sind in wirklichkeit Kreise, nur durch den Zoomfaktor werden sie als Achtecke dargestellt.Sehe ich das richtig:Du möchtest alle Elemente (oder nur die Texte? Kreise?) auf dem Layer SUS_Kanal_Schmutz durchund-color: #FFFF99'>suchen und den kleinsten Textwert und-color: #FFFF99'>suchen.Oder sollen alle Werte in eine Tabelle übernommen werden (wegen der Listbox im Formular) ?Poste doch mal Dein Anliegen.Grüße,Klaus
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Laufzeitfehler bei AutoCAD.AcCmColor.22
KlaK am 23.10.2018 um 13:20 Uhr (1)
Zitat:Original erstellt von Goofy007:Hallo Cadmium,Danke für die rasche Antwort. Leider kann ich mit Lisp nicht viel anfangen. Mein Code ist Teil einer größeren Sammlung von VBA Programmen und ich weiß nicht, ob bzw. wie ich da Teile durch Lisp-Code ersetzen kann.Das mit den ersten 2 Ziffern ist mir bekannt. Die stehen da auch so drinnen. Meine Versionsnummer ist 22.Eigentlich war der gepostete Code auch schon zum Testen vereinfacht. Im Originalcode steht: Code:Dim AcFarbe As StringVersion = Left(ThisDr ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layertabelle in Access einbinden
KlaK am 08.01.2020 um 13:15 Uhr (1)
Hallo Christian,Zitat:Gibt es eine Möglichkeit die Layer einer *.DWT-Datei mit allen Eigenschaften(An/Aus, Farbe, …) in MS Access als verknüpfte Tabelle darzustellen?Dazu ist mir leider nichts bekannt. Ich hatte das damals so gelöst, dass ich mir einen Layerstatus AlleLayer erstellte und diesen als LAS-Datei exportierte. Diese LAS-Datei muß dann noch umgesetzt werden damit jeder Layer in einer Zeile steht (beginnend mit Code " 8"). Also in Notepad alle Zeilenenden durch Tabs ersetzen und danach die " 8" du ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Bogen, Linie, PL Länge Delta
KlaK am 26.03.2022 um 12:32 Uhr (1)
Hallo Christian,Darf ich einmal fragen warum Du das Element unbedingt vorher abfragen mußt?Wie Du schon richtig festgestellt hast kannst Du den PickPoint, der angibt an welchem Ende die Änderung erfolgen soll, nicht übergeben. D.h. entweder Du rufst den Länge-Befehl ohne das Element auf, nur mit Angabe des Deltawertes. Das ist aber Fehleranfällig (falsches Element oder doppelt klicken bevor der Abbruch erfolgt.Oder Du analysierst das Element selber und schreibst die entsprechenden Unterfunktionen für das g ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribut über Visibillity übergeben
KlaK am 09.12.2020 um 11:13 Uhr (1)
Hallo Walter,Zitat:Original erstellt von walter1975:Kann ich direkt im Block mit zumindest 2 Einstellungswerte (Bsp. Typ, und Fabrikant) andere Attribute automatisch befüllen (Bsp. Artikelnummer, Preis...)?Verstehe ich nicht die Frage.Woher kommen denn Art.Nr. oder Preis?Soll das fest in der Blockdefinition enthalten sein oder über ein Programm und z.B. einer Exceltabelle gefüllt werden? Oder holst Du das aus einer Datenbank?Klar könnte man in dynamischen Blöcke auch schon feste Werte (Typbezeichnung, Hers ...
|
| In das Form AutoCAD VBA wechseln |
