|
AutoCAD VBA : ThisDrawing.Blocks
egug am 16.06.2008 um 19:01 Uhr (0)
zuerst mal besten Dank an alle die mich unterstützt haben. Habs geschafft und hier mal eine Funktionsbeschreibung des Programms.- suche alle DWGs in einem ausgewählten Directory- erstelle von jeder gefundenen DWG ein ASCII File von dem Block LOGO mit den vorbestimmten Attributen TITEL, ZEICHNUNGSNUMMER, INDEX und DATUMhier der Programmcode :Private Sub CommandButton1_Click() Dim zeichnung, numfile, atttxt As String Dim Objekt As AcadObject, myAtts, att Dim j, cnt As Integer Dim sNextFile, startfo As String ...
| | In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : ThisDrawing.Blocks
egug am 15.06.2008 um 10:38 Uhr (0)
was ich eigentlich möchte ist folgendes :- block in der dwg suchen- da ich weiss dass der block attribute hat, diese ausgeben z.B. msgbox, file etc.diese routine funktioniert, aber ich will den block nicht picken müssen ThisDrawing.Utility.GetEntity blk, pickedPoint, "Block picken" If blk.HasAttributes = True Then If blk.Name = "LOGO" Then numfile = Replace(zeichnung, ".dwg", ".num") Open numfile For Output As #1 Write #1, zeichnung Block_Attribute = blk.GetAttributes For cnt = LBound(Bloc ...
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Block Referenzen
egug am 08.12.2004 um 21:22 Uhr (0)
Hallo zusammen beschäftige mich noch nicht sehr lange mit ACAD und sehe mit den Blockreferenzen noch nicht klar. Bei ACAD sind scheinbar die Referenzen anders definiert wie in anderen CAD Systemen. Was ich rausgefunden habe ist, dass wenn einen Block in eine Zeichnung einfügt wurde und der Block geändert wird beim öffnen der Zeichnung ACAD nichts merkt dass zum Beispiel im Block die Grafik verändert wurde. Erst wenn man den Block einfügt kommt die Meldung Neudefinieren . Es wäre hilfreich wenn beim öffnen ...
| | In das Form Autocad VBA wechseln |
|
Autocad VBA : ThisDrawing.Utility.GetEntity
egug am 03.01.2007 um 19:30 Uhr (0)
Hallo allezuerst mal wünsche ich allen ein gutes erfolgreiches Jahr und gute Gesundheit.Nun zu meinem Problem :ich erstelle eine neue Zeichnung die ich aus einer Combobox auswähle. Die Zeichnung beinhaltet einen Block und einige Linien.Was ich machen will ist, ich möchte in diesem Block ein Attribut ändern. Das ganze funktioniert auch problemlos mit der folgenden Routine.Eigentlich möchte ich den Befehl "ThisDrawing.Utility.GetEntity pickedBlock," ersetzen, also keinen Block anpicken sondern über den Block ...
| | In das Form Autocad VBA wechseln |
|
AutoCAD VBA : ThisDrawing.Blocks
egug am 13.06.2008 um 18:26 Uhr (0)
schönen guten Abend an alle Nichtfussballfans :-)habe folgende VBA Routine die in einer Zeichnung den Block mit dem Namen LOGO suchen soll und die enthaltenen Attribute anzeigen soll.Private Sub CommandButton19_Click() Set allblocks = ThisDrawing.Blocks For Each blk In allblocks If blk.Name = "LOGO " Then MsgBox (blk.Name) Block Attribute auslesen End If NextEnd SubBesten Dank für Eure Hilfe
| | In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Block Referenzen
egug am 13.12.2004 um 19:04 Uhr (0)
habe in folgenden Optionen den Pfad eingetragen wo meine XREFS liegen. - Suchpfad für Support Datei - Position der Datenquellen - Position der temporären externen Referenzdatei so wir die Grafik sichtbar. Leider wird wenn ich mit REFBEARBEIT ein als XREF eingefügtes Element ändere nur gerade diese Zeichnung geändert in der ich das ausführe, die anderen x Zeichnungen bleiben ungeändert :-( . Scheinbar ist das Konzept in ACAD nicht so wie in anderen CAD Systemen vorhanden. Ist es eigentlich in ACAD 2004 mö ...
| | In das Form Autocad VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
