|
Rund um Autocad : VBA - Filter SelectionSet
RoSiNiNo am 28.07.2003 um 15:04 Uhr (0)
Hier der Code den ich jetzt verwenden, das und-color: #FFFF99'>Suchen der Blöcke geht so schnell das es nicht auffällt. Code: For Each objBlk In colBlks For Each objBlkEntity In objBlk If TypeOf objBlkEntity Is AcadAttribute Then Set objAttribute = objBlkEntity If UCase(objAttribute.TagString) = TagString Then strNamesFilter = strNamesFilter & objBlk.Name & "," Exit For End If End If Next objBlkE ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Tastatur Funktionstasten
RoSiNiNo am 16.05.2003 um 07:31 Uhr (0)
Danke Caladia, ich bin der Meinung, man sollte die ursprünglichen Menüs nicht anrühren. Wozu kann man denn eigene Menüs erstellen. Wenn man nämlich seine eigenen selbstgebauten Menüs, Icons, Lisps, VBA, ... in ein eigenes Verzeichnis schreibt, kann man sehr leicht seine Einstellungen auf einen anderen Arbeitsplatz übertragen ohne viel und-color: #FFFF99'>suchen zu müssen. Ob das jetzt an Mechanical liegt, kann ich aber nicht sagen, kann es nicht überprüfen da ich nur Acad pur habe. ------------------ Roland
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Text auf Objekt drehen
RoSiNiNo am 10.09.2002 um 15:52 Uhr (0)
Zitat: Original erstellt von TLieske: ich suche einen Befehl der folgendes macht: Text auf Objekt drehen: Text(e) wählen Quellobjekt für Drehung picken (z.B. Linie) Hallo Thomas, hab das mal in VBA programmiert, hoffe es funktioniert bei dir. Es zentriert Texte und und-color: #FFFF99'>MTexte auf Linien und Kreisbögen. Die Richtung ist von der Linienrichtung abhängig. Code: Zentriert Text oder MText mit constAbstand and Linie Public Sub TextLinieZentrieren() Dim Elem As AcadEntity Dim PtT As Variant ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Dynamischer Block mit Abrundung
RoSiNiNo am 11.02.2013 um 08:08 Uhr (0)
Wie schon des öfteren in diesem Forum erwähnt, ist es nicht möglich, Abhängigkeiten und Parameter zu mischen.Du musst also den Block neu aufbauen und die XY-Parameter durch horrizontale und vertikale Abhängigkeitsbemaßungen ersetzen.Dann wäre es auch noch wichtig, die Abhängigkeit Paralell durch Kollinear zu ändern. Statt dessen kannst du natürlich auch Zusammenfallend mit der Option Objekt verwenden (beim Bogen).Des weiteren musst du natürlich auch noch die Kreise und die Endpunke alle abhängig machen, da ...
|
| In das Form Rund um AutoCAD wechseln |
|
Autocad VBA : Formular zum ausfüllen meines Zeichnungskopfes
RoSiNiNo am 20.11.2003 um 09:57 Uhr (0)
Jetzt stllt sich auch noch die Frage, ist dein Block schon in der Zeichnung eingesetzt oder nicht? Wenn er schon in der Zeichnung ist, dann musst du nach der jeweiligen Blockreferenz und-color: #FFFF99'>suchen. Wenn du aber den Block erst einfügen musst, dann ist das noch leichter, du kennst ja dann die Blockreferenz schon. Dann stellt sich noch die Frage, gibt es den Block öffter in der Zeichnung, gibt es mehrere Layouts mit je einem Kopf, sollen alle Blöcke geändert werden oder nur der im aktuellen Layout,....? Du solltest ...
|
| In das Form Autocad VBA wechseln |
|
Autodesk.NET/ARX : C# - Benutzereingaben
RoSiNiNo am 27.08.2004 um 07:26 Uhr (0)
Aber Objekte kann ich doch schon wählen mit public static CommandLinePrompts.PromptResult Select(out ObjectIdCollection ids); Nur was kann ich mit dieser ObjectIdCollection machen. In dieser ObjectIdCollection sind die ObjectId s der gewählten Objekte drinnen. Wie komme ich nun aber zu diesen Objekten, oder besser gesagt, wie kann ich nun auf das Objekt mit der bestimmten Id zugreifen? Ich hab da noch nichts gefunden, aber wie gesagt, ich bin da noch sehr neu und ständig am und-color: #FFFF99'>suchen, sowohl im C# Buch als au ...
|
| In das Form Autodesk.NET/ARX wechseln |
|
Rund um Autocad : Attribute ausgeblendet
RoSiNiNo am 21.08.2003 um 09:24 Uhr (0)
Probier es einmal damit Code: Public Sub BlockAttVisible() Dim SS As AcadSelectionSet Dim FltTypes(0) As Integer Dim FltData(0) As Variant Dim Obj As AcadBlockReference Dim BlAttrib As Variant Dim Count As Integer Dim Attrib As AcadAttributeReference Set SS = CreateSelectionSet("BlockAttVisibleAuswahl") FltTypes(0) = 0: FltData(0) = "INSERT" Selectionset erstellen, Benutzer fragen und Filter anwenden SS.Clear SS.SelectOnScreen FltTypes ...
|
| In das Form Rund um Autocad wechseln |
|
Autocad VBA : alle Blöcke (und deren Werte) einer Zeichnung in Datei auslesen
RoSiNiNo am 23.11.2004 um 10:05 Uhr (0)
Ich habe jetzt ca. zwei Minuten gebraucht um folgendes in der ACAD-Hilfe zu finden: Auflisten von AutoCAD-Attributen in einer Excel-Tabelle Dieses Unterprogramm sucht alle Blockreferenzen in der aktuellen Zeichnung. Anschließend sucht es die mit diesen Blockreferenzen verknüpften Attribute und listet sie in einer Excel-Tabelle auf. Gehen Sie zum Ausführen dieses Beispiels wie folgt vor: Öffnen Sie eine Zeichnung, die Blockreferenzen mit Attributen enthält. (Die Musterzeichnung sample/activeX/att ...
|
| In das Form Autocad VBA wechseln |
|
Rund um Autocad : Punktnummer - Koordinaten ausdrucken ???
RoSiNiNo am 04.10.2002 um 08:48 Uhr (0)
das ganze noch einmal für Punkte in Excel-Datei Code: Option Explicit Public ExcelVBA As Excel.Application stellt Excel für alle Prozeduren bereit Übergibt Punktekoordinaten in Exeldatenblatt und speichert in Zeichnungspfand und Zeichnungsnamen Public Sub Dots_Extract_Excel() Dim ExcelSheet As Object Dim ExcelWorkbook As Object Dim RowNum As Integer Dim Count As Integer Dim Pfad As String Dim DatName As String Dim PfadDatei As String Dim SS As ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : autocad/vba/excel
RoSiNiNo am 12.03.2003 um 07:34 Uhr (0)
Hi Jörg, hier ein Beispiel wie ich es gemacht habe. Ist schon etwas älter, daher vielleicht nicht so schön programmiert. Code: Public ExcelVBA As Excel.Application stellt Excel für alle Prozeduren bereit Übergibt Punktekoordinaten in Exeldatenblatt und speichert in Zeichnungspfand und Zeichnungsnamen Public Sub Dots_Extract_Excel() Dim ExcelSheet As Object Dim ExcelWorkbook As Object Dim RowNum As Integer Dim Count As Integer Dim Pfad As String Dim DatName ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : ... muß nochmal nerven
RoSiNiNo am 14.02.2003 um 10:51 Uhr (0)
Hab ich mir fast gedacht, das ganze nochmal aber hoffentlich richtig. Code: Option Explicit Feletic 04.10.2000 Public Sub BlockRefresh() Dim Obj As Object Dim SS As AcadSelectionSet Dim FltTypes(0) As Integer Dim FltData(0) As Variant Frage nach den zu bearbeitenden Blöcken On Error Resume Next Set SS = ThisDrawing.SelectionSets("BlöckeNeuzeichAuswahl") If Err Then On Error GoTo 0 Set SS = ThisDrawing.SelectionSets.Add("BlöckeN ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : ... muß nochmal nerven
RoSiNiNo am 13.02.2003 um 07:54 Uhr (0)
Hier ist es, mit vbaide vba-Editor starten. Neues Modul erzeugen und folgenden Code einfügen. Code: Option Explicit Feletic 04.10.2000 Public Sub BlockRefresh() Dim Obj As Object Dim SS As AcadSelectionSet Dim FltTypes(0) As Integer Dim FltData(0) As Variant Frage nach den zu bearbeitenden Blöcken On Error Resume Next Set SS = ThisDrawing.SelectionSets("BlöckeNeuzeichAuswahl") If Err Then On Error GoTo 0 Set SS = ThisDrawing. ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Block auf Layer 0
RoSiNiNo am 14.02.2003 um 10:46 Uhr (0)
Hier ein paar Funktionen in VBA geschrieben. Das erste setzt alle Blockelemente auf Layer 0 und bylayer, das zweite geht alle Attribute durch und setzt diese auf Layer 0. Code: Feletic 10.07.2002 Public Sub BlockToLayer0() Setzt alle Elemente eines Blocks auf Layer "0" und ByLayer Dim SS As AcadSelectionSet Dim FltTypes(0) As Integer Dim FltData(0) As Variant Dim BlRef As AcadBlockReference gewählte Blockreferenz Dim Bl As AcadBlock Block ( -- Blockre ...
|
| In das Form Rund um Autocad wechseln |
