|
Autocad VBA : Block einfügen
ollibaer2004 am 05.04.2005 um 11:30 Uhr (0)
wenn ich dass richtig verstanden habe, geht es darum einen block in die zeichnung einzufügen.. wenn der block nicht in der zeichnung vorhanden ist, wird er aus der datei nachgeladen, ansonsten nur eingefügt. dieser kann nun separat bearbeitet werden, so wie es InesP ganz oben haben wollte. (der name des blocks sollte natürlich schon bekannt sein und entspr. im code angepasst werden) oder bin ich ganz dabei %) tschau Olli
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Block einfügen
ollibaer2004 am 05.04.2005 um 12:07 Uhr (0)
Hi nochmal, evtl. hilft dir das hier: der code listet alle blöcke in deiner zeichnung auf, must nur noch vergleichen ob dein block in der zeichnung vorhanden ist. (bräuchtest ne userform mit einer listbox oder nimmst ein array) Private Sub CommandButton5_Click() Dim blockname As String Dim a As Integer Dim blocktotal As Integer ListBox1.Clear blocktotal = ThisDrawing.Blocks.count ReDim allenamen(blocktotal) As String For a = 0 To blocktotal - 1 blockname = ThisDraw ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Block mittels VBA einfügen?
ollibaer2004 am 29.06.2004 um 08:11 Uhr (0)
ne so nicht, da ich über eine Userform Attribute setze und diese dann beim setzten des blocks übergebe hab es aber jetzt selbst gelöst, trotzdem danke: Es geht doch über die .InsertBlock-Methode ich hab gedacht es geht damit nicht, da der Block kaputt war ;o) errorhndl: Error Nummer bei nicht vorhandenem Block If Err.Number = -2145386445 Then MsgBox ( Der Block BD1x1 ist nicht in dieser Zeichnung vohanden ) Dim PT1 As Variant Dim importfile As String importfile = ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Attribute und UserForm
ollibaer2004 am 25.09.2006 um 10:31 Uhr (0)
hi zusammnen,bin zufällig in eure diskussion geraten, hatte mal ein ähnliche problem,hab aber mit excel gelöst.mit meinem angehängten program kann man sich alle blöcke in einer zeichnung mit angabe der enthaltenen attribute anzeigen lassen und nach excel übergeben. dort ändert man diese und schreibt sie anschließend zurück. identifiziert wird der block anhand der übergebenen objekt-id löscht man in excel die objekt id wird beim zurückschreiben nach einem einfügepunkt gefragt.ich hoffe es hilft.
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Block mittels VBA einfügen?
ollibaer2004 am 28.06.2004 um 12:56 Uhr (0)
Hallo zusammen, weiss jemand wie ich einen mit Wblock erstellten BLOCk mittels VBA in eine zeichnung einfügen kann? hab es nur über den umweg xref anhängen und binden geschafft: Dim einfüge As Variant Dim importfile As String Dim xrefHome As AcadBlock Dim xrefInserted As AcadExternalReference importfile = C:RaumStmpRaum-NR.dwg einfuege = ThisDrawing.Utility.GetPoint(, Bitte den Einfügepunkt für Block & name & wählen ) Set xrefInserted = ThisDrawing.ModelSpace. _ ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : Block einfügen
ollibaer2004 am 05.04.2005 um 10:56 Uhr (0)
Hallo, versuch es mal so Dim einfuege As Variant Dim name As String Dim blockref As AcadBlockReference On Error GoTo errorhndl name = "Raum-NR" einfuege = ThisDrawing.Utility.GetPoint(, "Bitte den Einfügepunkt für Block " & name & " wählen") Set blockref = ThisDrawing.ModelSpace.InsertBlock(einfuege, importfile, 1, 1, 1, 0) errorhndl: If Err.Number = "-2145386445" Then MsgBox ("Der Block Raum-NR ist nicht in dieser Zeichnung vohanden") Dim importfile As String importfile = "C:RaumStmpRaum-NR.dwg" Set ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
