|
AutoCAD VBA : Selection Set: Blöcke nach Elementen durchund-color: #FFFF99'>suchen
AndreasDEU am 14.06.2013 um 15:21 Uhr (0)
Hi,Das Ergebnis von Explode-Methode von Blöcken befindet sich in einer Tabelle. Der originale Block verbleibt. Man kann denn über mit einer Schleife Elemente unterund-color: #FFFF99'>suchen ob die Kreise sind.Nachher kann man die Elemente löschen.Der Code ist ohne Prüfen geschrieben da ich hier kein AutoCAD habe:vTab=Block.ExplodeFor i=Lbound(vTab) To Ubound(vTab) If vTab(i).Entitype=7 then Kreis dP(0)=vTab(i).InsertionPoint(0) dP(1)=vTab(i).InsertionPoint(1) dP(2)=vTab(i).InsertionPoint(2) hier die Prozedur für Koo ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Blockdefinition Fehler 9
Makro am 19.02.2007 um 15:08 Uhr (0)
Hallo zusammen,ich bekomme ständig den Fehler 9 "End of Blockdefinition!!"wie kann ich diesen fehler ausmärzen?hier der code...Public Sub ersetzeblock() Begin the selection Dim blockRefObj As AcadBlockReference Dim blockRefObj1 As AcadBlockReference Dim blockRefObj2 As AcadBlockReference Dim basePnt As Variant Dim basePnt1 As Variant On Error Resume Next ThisDrawing.Utility.GetEntity blockRefObj1, basePnt, "mit Blockreferenz ersetzen:" Dim varAttributes1 As Variant Dim varAttributes As Varian ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : VBA-Tool in LT
cadffm am 04.07.2018 um 10:47 Uhr (1)
Wenn dein Programm ein VBA-Makro ist welches in AutoCAD ausgeführt werden muß, Nein.Selbst AutoCAD hat keine VBA-Schnittstelle mehr ootb, daher gilt für LT: Wo nichts ist..Da mußt du dir einen anderen Weg für die Umsetzung und-color: #FFFF99'>suchen.LT-User sein mit dem Wunsch das Problem oder die Möglichkeiten nach eigenen Wünschen anzupassenbedeutet immer auch kreativ zu sein. Man kann so ziemlich alles machen, spätestens wenn dieBearbeitung überhaupt nicht in LT stattfindet ist wirklich alles möglich, lach.Da hier die Aufg ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Automatisches Recover
basti19 am 17.05.2004 um 11:20 Uhr (0)
Hi Leute, ich habe letzte Woche versucht eine Datei per VBA zu recovern... leider scheint es dafür keinen Punkt zu geben. Auch der Versuch mittels SendCommand zu arbeiten ist gescheitert, da ich keine Möglichkeit gefunden habe, die es mir erlaubt, einen Dateinamen zu schicken... Zur Erklärung: ich habe viele DWGs von denen eine DWG hin und wieder stirbt, wodurch AutoCAD abstürzt. Da ich nicht jedes mal und-color: #FFFF99'>suchen will, welche Datei es ist/war, würde ich gern alle mittels Wiederherstellen behandeln und anschli ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Selbsterstellte Befehle mit AcadDocument_BeginCommand abfangen
insidERR am 22.04.2008 um 10:52 Uhr (0)
Und jetzt mal ne andere Frage.Ich will jetzt Befehle von Hand eingeben und mit "BeginnCommand" abfangen.Hat einer ne Idee?Mein Gedanke ist, Zeichnungen direkt über Eingabeleiste zu öffnen. Mit "_open" ist es nicht getan. Unsere Zeichnungen sind numerisch sortiert. D.h. "97236" befindet sich auf "server/CAD/9/" Ich will es so machen, dass man direkt die Zeichnungsnummer eingibt und beim Bestätigen die Strg-Taste gedrückt hällt. In der Funktion "BeginnCommand" wird überprüft ob die Strg-Taste gehalten wird, ...
|
| 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 : DXF in Verbindung mit VBA zum Ändern von Zeichnungen geeignet?
kiltswitch am 09.11.2004 um 16:28 Uhr (0)
Hallo, mich kennt man hier ja inzwischen. :-) Bei meiner ganzen Recherche zwecks Änderung von Zeichnungen fiel mir auch ein, dass es ja auch noch DXF gibt. Ich könnte ja folgendes Programm in VBA schreiben: - Zeichnung mit Blockinhalten in DXF speichern - zeilenweises Durchund-color: #FFFF99'>suchen der DXF nach den Blocknamen - wenn gefunden, dann Änderung von Werten (bspw. Drehung, Koordinaten etc.) in der entsprechenden DXF-Zeile - zurücklesen der DXF in Zeichnung also ich habe das mal manuell getestet und das geht natü ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Alle Objekte die auf dem Bildschirm sichtbar sind
Benny4 am 24.02.2011 um 12:02 Uhr (0)
Hallo,ich möchte folgendes machen: Ich möchte alle Entitys haben, die zur Zeit auf dem Bildschirm sichtbar sind. Der Grund ist folgender:Ich habe ein Makro geschrieben, bei dem man eine Linie auswählt, und das dann alle angrenzenden Objekte sucht und aus allen dann eine Polylinie macht. Funktioniert soweit auch gut. Das Problem ist nur bei sehr großen Zeichnungen (ca. 50.000 Entitys) dauert das und-color: #FFFF99'>Suchen der angrenzenden Objekte natürlich sehr lange. Und aus diesem Grund möchte ich nicht die ganze Zeichnung d ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Objekttypen bestimmen und ausgeben
otm am 05.10.2009 um 15:56 Uhr (0)
Hi zusammen,nach längerem ergebnislosen und-color: #FFFF99'>Suchen, eine Frage:Ich möchte folgende Infos über einen Layer in einen Textstring ausgeben (der dann später in eine Textdatei geschrieben wird).- Layername: LayInhalt = ThisDrawing.Layers("xy")- Layerbeschreibung: LayInhalt = LayInhalt & Chr(10) & " " & ThisDrawing.Layers(LayName).Description- Auf dem Layer vorkommende Objektarten (Polylinien geschlossen, PL offen, Linien, Kreise, ..)- Flächen der geschlossenen Polylinie- Summe der geschlossenen Polylinineflächen- Lä ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Block verschieben
rexxitall am 08.06.2013 um 16:01 Uhr (0)
untested sub move_JCdim e as acadentitydim P(2) as doubledim i as longdim b as acadblockreferencefor each entity in thisdrawing.modelspace alles durchwuehelnif lcase(entity.objectname)="acdbblockreference" then is sich block set b=entity mussu machen doofe entity pointer zu block pointerif lcase(b.name)="josef" then hassu nun volle doenerrotweissfor i=0 to 2 kriegstu block koordinatenp(i)=b.insertationpoint(i) nextvoll krass koordinatenp(0)=p(0)-1 one step to the left (c) Frank N furtherb.insartationpoint ...
|
| 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 : Dateiinformationen
guido159 am 05.11.2006 um 20:51 Uhr (0)
Hallo nochmals an alle,hab nun endlich mein Problem mit ein paar Kompromisse lösen können.Nach langem und-color: #FFFF99'>suchen im Netz ist mir leider keine Möglichkeit unter gekommen wie ich es schaffen kann das AutoCad mir die Dateiinfos nicht verschwinden läßt. Also hab ich nun versucht eine dll für den Windows Explorer zu finden die es mir Möglich macht die von AutoCad programmintern verwendete Dateiinfos darzustellen. Und Ihr werdet es nicht glauben ich hab etwas gefunden. Unter folgendem Link http://www.cadwerx.net/ be ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : selectionset sortieren?
Stelli1 am 21.05.2007 um 15:53 Uhr (0)
Hallo Gerald,hatte noch eine Idee wie es ohne viel Programmieraufwand geht.Dazu musst du unter Verweisen aber Mircrosoft ActiveX Data Objects Recordset 2.x Libary einstellen.Dann kannst du alle Möglichkeiten eines Recordsets im Speicher nutzen.Also Sortieren, Filtern, und-color: #FFFF99'>Suchen ..Code:Sub test() Dim MeineElemente As New ADOR.Recordset MeineElemente.Fields.Append "y", adDouble MeineElemente.Fields.Append "x", adDouble MeineElemente.Fields.Append "Index", adInteger MeineElemente.Open For i = 1 To 1000 ...
|
| In das Form AutoCAD VBA wechseln |
