|
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 und-color: #FFFF99'>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 : 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 15.06.2008 um 10:38 Uhr (0)
was ich eigentlich möchte ist folgendes :- block in der dwg und-color: #FFFF99'>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 |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
