|
Autocad VBA : Zeichnung als Block einfügen
Feyza am 06.12.2005 um 11:58 Uhr (0)
Hallo Zusammen,hier im Forum habe ich folgendes nettes programmchen,für das einfügen von "vorhandenen" Blocken in externen Zeichnungen gefunden.Dim einfuege As VariantDim name As StringDim blockref As AcadBlockReference On Error GoTo errorhndlname = "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" ThenMsgBox ("Der Block Raum-NR ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeichnung als Block einfügen
Feyza am 06.12.2005 um 12:42 Uhr (0)
Gelöst : )Me.Hide"den Programm code"Me.ShowMan muß das Formular ausblenden und wieder einblenden : )Schöne GrüßeFeyza : )------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Zeichnung als Block einfügen
Feyza am 06.12.2005 um 12:02 Uhr (0)
wenn ich dieses Prog bei mir umsetzte, kommt ein AutoCAD fenster mit folgender Meldung:AutoCAD Hauptfenster ist nicht sichtbar------------------
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : VBA - Blöcke
Feyza am 08.11.2010 um 10:02 Uhr (0)
Danke Thomas,mit dem auflösen hat es prima funktioniert: blockref.ExplodeNur einen bestimmten Block einfügen, da sollte die Orginalzeichnung nicht geöffnet sein.Ich habe eine Zeichnung, in dieser Zeichnung ist ein bestimmter Block H1 und dieser Block soll nur in die neue Zeichnung eingefügt werden.Könntest Du mir bitte hier auch einen anderen Tip geben : )?Danke nochmals.------------------Schöne GrüßeFeyza : )
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : List1 = ActiveDocument.ModelSpace?!
Feyza am 13.07.2005 um 09:26 Uhr (0)
Hallo Nancy, danke Dir nochmals. nee : ). Wenn die ganzen Fragen, die ich habe, in dem Objektkatalog drinnen steht, könntest Du mir vielleicht bei diesem Beispiel schreiben, wie man danach sucht. Ich habe nach Zeichnung aktivieren; Zeichnung aktiv, Objekt aktiv, Object aktiv... gesucht. Bei diesen Beipielen hat er mir nichts anzeigen können. Schöne Grüße Feyza : ) ------------------
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : VBA: Punktstil ändern
Feyza am 10.08.2011 um 13:26 Uhr (0)
Hallo Zusammen,ich erzeuge mit vba einen Punkt in einer Zeichnung.Leider sehe ich den Punkt nicht, so dass ich manuell durch Hilfsmittel-- Format-- Linienstil den Stil durch einem Kreuz ändere.Bei den neuen Zeichnungen ist der Punktstil schon in der Vorlage .dwt definiert.Wie kann ich in vba sagen, dass er in der aktuellen alten Zeichnung den Punktstil ändern soll.Vielen Dank für Eure Hilfe.------------------Schöne GrüßeFeyza : )
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : List1 = ActiveDocument.ModelSpace?!
Feyza am 12.07.2005 um 14:16 Uhr (0)
Hallo Zusammen, in diesem Beitrag hatte ich Unterstützung von startrek bekommen. http://ww3.cad.de/foren/ubb/Forum259/HTML/000647.shtml Ich möchte hier zusätzlich noch, wenn ich in der Listbox eine Datei anklicke, das dies der aktuelle aktive Zeichnung ist. List1 = ActiveDocument.ModelSpace Diesen Code nimmt er leider nicht an. Welchen Code muß ich hier nutzen? Danke für die Unterstützung Schöne Grüße Feyza : ) ------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBA: Datei auflisten, abspeichern und löschen
Feyza am 04.07.2005 um 14:56 Uhr (0)
Hallo Zusammen, ich möchte gerne in meinem VBA Programm: 1.) alle geöffneten Zeichungen in AutoCAD in einer Listbox anzeigen lassen 2.) die markierte geöffnete Zeichnung in der Listbox mit einer neuen Namen, die ich mit verschiedenen Textboxen zusammen stelle, abspeichern. 3.) Wenn die Zeichung mit der neuen Bezeichung abgespeichert worden ist, soll es dann die alte Zeichung ( Datei ) löschen. Danke für jede Unterstützung Schöne Grüße Feyza : ) ------------------
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ANSI --> DIN umstellen
Feyza am 02.05.2005 um 16:34 Uhr (0)
Hallo an Alle, jeder kennt bestimmt das Problem, wenn man von einem anderen CAD System eine Zeichnung als DXF/DWG ausliest, das dies in Norm ANSI/Britisch dargestellt wird. Wir bekommen von externen auch ab und zu, solche Zeichnungen. Und wenn welche da sind, ist es immer ein Haufen. Wie könnte man dies am besten automatisieren? Ich habe mir ein bestmmtes Verzeichnis gedacht, wo man diese Zeichnungen ablegt und von dort aus aufmacht und In AutoCAD Mechanical 2002 wäre die Funktion zum Umstellen: Mechanical ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Block einfügen - Benutzereingabe ist ein Schlüsselwort soll weg
Feyza am 24.11.2009 um 14:11 Uhr (0)
Hallo Zusammen,ich hoffe Ihr könnt mir hier weiterhelfen:In AutoCAD Mechanical 2008 habe ich ein VBA Script, wo mir ein Block aus einer Datei, die ich mir in einer Listbox aufliste einfügen soll:Me.HideDim einfuege As VariantDim name As StringDim blockref As AcadBlockReferenceDim importfile As Stringimportfile = List1On Error GoTo errorhndl name = lblFileNameBox einfuege = ThisDrawing.Utility.GetPoint(, "Bitte den Einfügepunkt für Block " & " wählen") Set blockref = ThisDrawing.ModelSpace.InsertBlock ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : VBA - Blöcke
Feyza am 08.11.2010 um 09:25 Uhr (0)
Guten Morgen Zusammen,von einer DB hole ich die Einfügekoordinaten rüber und füge diese zwei Werte in Textboxe-- txtlaenge_x.Text/txtlaenge_y.Text ein. importfile = Listbox1 On Error GoTo errorhndl einfuege(0) = txtlaenge_x.Text: einfuege(1) = txtlaenge_y.Text: einfuege(2) = 0 In der Listbox1 sind die Zeichnungen aufgelistet, die ich einfügen möchte.Hier kann ich die Zeichnungen als Block einfügen: Set blockref = ThisDrawing.ModelSpace.InsertBlock(einfuege, importfile, 1, 1, 1, 0)Ich möch ...
|
| In das Form AutoCAD VBA wechseln |
