Block erstellen mit VBA (Autodesk/Rund um AutoCAD)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Autor

Thema: Block erstellen mit VBA (183 mal gelesen)

Ralf Rehm
Mitglied
Dipl.-Ing. Stahlbau

Senden Sie eine Private Message an Ralf Rehm

Schreiben Sie einen Gästebucheintrag für Ralf Rehm

Beiträge: 57
Registriert: 16.12.2003

erstellt am: 16. Dez. 2003 13:59

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Ich möchte mit AutoCAD 2004 nithilfe eines VBA-Programmes aus einem SelectionSet einen Block erstellen. Kann mir jemand sagen, wie das geht???

Danke im voraus

Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

fuchsi
Mitglied
Programmierer c#.net Datawarehouse

Senden Sie eine Private Message an fuchsi

Schreiben Sie einen Gästebucheintrag für fuchsi

Beiträge: 1201
Registriert: 14.10.2003

AutoCad Version 2012 deu/enu
<P>Windows 7 64bit

erstellt am: 16. Dez. 2003 14:31

<-- editieren / zitieren -->

Unities abgeben:

Nur für Ralf Rehm

hab mal ein bisschen gesucht, aber hab auch nichts gescheites gefunden.

eine (zugegeben unelegante)Möglichkeit wäre

thisdrawing.wblock filename, selectionset
und dann wieder einfügen

aber da muss es doch was gescheiteres geben

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Karsten HST
Mitglied
Bauingenieur

Senden Sie eine Private Message an Karsten HST

Schreiben Sie einen Gästebucheintrag für Karsten HST

Beiträge: 54
Registriert: 22.04.2003

erstellt am: 16. Dez. 2003 14:57

<-- editieren / zitieren -->

Unities abgeben:

Nur für Ralf Rehm

Versuchs mal mit der CopyObjects-Anweisung des Dokument-Objectes.

Dim nBlock As AcadBlock, InsPoint(2) As Double
Dim sSet As AcadSelectionSet, sItem As AcadEntity
Dim Objects() As AcadEntity
On Error Resume Next
Set nBlock = Blocks.Add(InsPoint, "AllEntities")
Set sSet = SelectionSets.Add("Entities")
If sSet Is Nothing Then
Set sSet = SelectionSets("Entities")
End If
sSet.Clear
sSet.SelectOnScreen
ReDim Objects(sSet.Count - 1)
For i = 0 To sSet.Count - 1
Set Objects(i) = sSet.Item(i)
Next
CopyObjects Objects, nBlock, IdPairs

Dieser Code fügt die gewählten Zeichnungsobjekte in die Blockdefinition AllEntities ein. Anschließend mußt Du nur noch die vorhandenen Elemente löschen, den Block in die Zeichnung einfügen oder was sonst noch so passieren soll.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP