|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
Theo37 am 29.01.2010 um 13:12 Uhr (0)
Hallo Georg,ich habe auf die Anfrage "Objekte wählen:" mit "Alle" geantwortet, dann werden alle Bemaßungen der Zeichnung aktualisiert.Das mit VBA zu lösen wäre kein Problem. Mann müsste nur alle Objekte prüfen ob es sich ume eine Bemaßung handelt und wenn ja dann aktualisiern.Leider ist es doch ein Problem, weil es in ACAD 10 verschiedene Bemaßungsobjekte gibt. Das ist eine Frage an die Profis wie man die möglichst einfach erwischt. Ich weiß zumindest keine schnelle LösungGruß, Theo
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
Theo37 am 29.01.2010 um 09:46 Uhr (0)
Hallo Georg,die Bemassungen werden schon mit kopiert. Nur werden sie, in der neuen Datei, erst angezeigt wenn man "Bemassung aktualisiern" ausführt. Gruß, Theo
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Alle Zeichenobjekte einer Zeichnung in eine andere Kopieren
Theo37 am 23.10.2008 um 16:19 Uhr (0)
Hallo,das mit "copyobjects" funktioniert recht gut. Wenn auch etwas langsam bei großen Dateien. Ich habe dazu folgende Prozedur geschrieben:Public Sub copyalle()Dim Enti As AcadEntityDim Alle() As ObjectDim i As IntegerDim olddwg As AcadDocumentDim newdwg As AcadDocumentDim newobj As Variant i = 0 Set olddwg = ThisDrawing ReDim Alle(olddwg.ModelSpace.layout.block.Count - 1) Set newdwg = ThisDrawing.Application.Documents(1) For Each Enti In olddwg.ModelSpace.layout.block Set Alle(i) = Enti i = ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Explode von uneinheitlich skalierten Blöcken
Theo37 am 08.10.2008 um 15:32 Uhr (0)
Nein. Ich möchte die Objekte einer Zeichnung Löschen Verschieben oder auch Auflösen können. Klappt auch sehr gut. Bis auf diese uneinheitlich skalierten Blöcke, diese lassen sich nicht auflösen.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Explode von uneinheitlich skalierten Blöcken
Theo37 am 08.10.2008 um 15:21 Uhr (0)
An "Sendcommand" hab ich auch schon gedacht. Aber da weiß ich nicht wie ich das "Entry" an den ACAD-Befehl übergeben soll. Auch wenn ich einen Auswahlsatz daraus machen würde, so daß alle Entry auf einmal enthalten wären, wüsste ich nicht wie ich den mit "sendcommand" an den ACAD-Befehl übergeben soll.Zu Deiner Frage. Sinn des ganzen Makros ist es die Layer und die Objekte einer Zeichnung, tabelarisch zu erfassen und diese dann Löschen, Auflösen oder Verschieben.... können. Im Prinzip das was auch Schnella ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Filterliste nach unbennante Blöcke
Theo37 am 02.12.2010 um 15:45 Uhr (0)
Hallo an Alle,eine Frage. Ich möchte in meiner Zeichnung alle Blöcke eines Namens in einen Auswahlsatz packen. Das funktioniert mit dem Code unten ganz gut. Leider funktioniert das nicht mit unbennanten Blöcken, wenn mein Blockname also z. B. "*U13" ist. Was muß ich ändern, daß auch unbennante Blöcke gefunden werden? GC(0) = -4 Einleitender Gruppencode für logischen Vergleich GC(1) = 0 Gruppencode für Elementname GC(2) = 2 Name des benannten Blockelements GC(3) = 66 ob Attri enthalten GC(4) ...
|
| In das Form AutoCAD VBA wechseln |
