|
AutoCAD VBA : Mittelpunkte von Ringen ermitteln
CADdog am 27.08.2021 um 08:23 Uhr (1)
Zitat:Original erstellt von Björn Möller:Kann ich als Nutzer so eine falsche Einsortierung eigentlich selbst korrigieren?Nein, das geht nicht.Entweder den Moderator bitten, den Beitrag zu verschieben, das kann aber dauern,oder im richtigen Forum einen neuen Beitrag erstellen und dann im falschen Beitag durch Editieren einen link dorthin setzen.------------------Gruß ThomasCADdog the dog formerly known as TRAutoCAD spricht mit einem, aber viele hören nicht zu.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Pickfirst selectionset ergaenzen und ausgeben
KlaK am 04.07.2013 um 13:11 Uhr (1)
Zitat:Original erstellt von rexxitall:Gerade wenn man 8000 Elemente selektiert hat und die nicht nur rotieren sondern auch noch verschieben etc. moechte nosmile:) [/B]Nur mal eine Frage:Du weißt schon, dass man auf vorselektierte mit dem vordefinierten SelectionSet("CURRENT") oder ("PICKFIRST") zugreifen kann?Kannst auch Deine Selection vor Beenden des Programmes auf CURRENT übergeben, dann kann man mit Schnellauswahl vorher gleich wieder darauf zugreifen.GrüßeKlaus
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : Änderung einer dxf-Datei
harryk am 17.10.2003 um 19:03 Uhr (0)
sehe ich das richtig, Du liest eine Dxf Datei in Excel ein, suchst das Vorkommen eines bestimmtem Strings und löscht die Zeile davor und die 14 nachfolgenden? Das sieht so aus als ob Du komplette Zeichnungselemente löscht, geht mit Autocad VBA besser da Du geziehlt nach diesen Typ mit den gewünschten Eigenschaften suchen und dann löschen, verschieben oder sonst noch was kannst. Wenn die Dxf Datei als Ascii vorliegt kannst Du das ganze auch direkt in der Datei machen, Open Zeichnung.dxf For Output As #1. ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Bitte um Hilfe bei Blockauswahl über Attribute
Jowo76 am 09.12.2008 um 21:54 Uhr (0)
Erstmal hallo an Alle,da mir der Part der AutoCad-Programmierung in der Firma zugeteilt wurde, und ich leider vom Programmieren kaum Ahnung habe, wende ich mich an Euch.Zum Problem:Ich habe in einer Zeichnung mehrere Blöcke mit den Attributen Punktnummer(PNUM) und Höhe(Höhe).Nun soll ich den Block mit einer bestimmten Punktnummer als Attribut automatisch auswählen, ihn dann auf eine andere Höhe verschieben und diese Höhe in das Höhenattribut eintragen. Bitte um Eure UnterstützungDanke im VorausJowo76
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Problem mit IntersectWith
yamaha am 15.02.2008 um 21:48 Uhr (0)
Hallo Carsten.beiliegend eine GIF wie das auf meinem Rechner aussieht.Dann die Beispiel DWG (TXT umbenennen in DWG)und dann nachfolgend der Code dazu.Sub Inters()On Error Resume NextSet ssetObj = ThisDrawing.SelectionSets("IntersectTest")If Err.Number 0 Then Set ssetObj = ThisDrawing.SelectionSets.Add("IntersectTest")End IfOn Error GoTo 0ssetObj.ClearMsgBox ("Bitte zwei sich schneidende Komponenten wählen")ssetObj.SelectOnScreenIf ssetObj.Count = 2 Then Set oObject1 = ssetObj.Item(0) Set oObject2 = sse ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : MText mit Dateiliste bearbeiten
wwwilli am 14.09.2006 um 13:29 Uhr (0)
Ja, auch nicht schlecht.Muss drüber nachdenken, was da alles nötig wäre: Öffnen einer Datei wäre viel einfacher.Neueintrag = alle vorhandenen durchsuchen, ob schon da, sonst Einfügepunkt für neuen suchen, dort Text absetzen, Hyperlink anhängen. Andere Objekte evtl. verschieben.Ich weiß all die nötigen Befehle dafür nicht, habe mich mit Behandlung von Zeichnungsobjekten in AC-VBA noch nicht auseinandergesetzt.Ich wünschte, man könnte in AC Makros AUFZEICHNEN, das würde den Einstieg wesentlich erleichtern.Mf ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : automatisierte Blockerstellung
Dirk.B am 06.01.2004 um 07:54 Uhr (0)
Hallo Ralf! Ich bin mir ganz sicher ob Dir dieses weiter hilft, aber bei meiner programmiererei hilft mir oft die AutoCAD Hilfe auf die Sprünge. Hier einige Info s zu Blockattributen: In diesem Beispiel wird ein Block definiert und ein Attribut zur Blockdefinition hinzugefügt. Anschließend wird der Block in die Zeichnung eingefügt. Sub Ch10_CreatingAnAttribute() Definieren des Blocks Dim blockObj As AcadBlock Dim insertionPnt(0 To 2) As Double insertionPnt(0) = 0 insertionPnt(1) = 0 ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Bogen versetzen mit Offset
fox-033 am 12.06.2008 um 21:11 Uhr (0)
Vielen Dank für die rasche Antwort. Es ist mir aber immer noch nicht ganz klar, wie ich die "neu erzeugten" Bögen genauso weiterverarbeiten kann wie das Ursprungsobjekt, z.B. das Handle ermitteln und den mit Offset erzeugten Bogen verschieben kann, oder die Start- und Endpoints in eine Variable speichern kann. In der Zeichnung existiert ja der neue Bogen und hat eine eigenständige Referenz. Muß ich wieder alle Objekte in ein SelectionSet einlesen und die Bögen herausfiltern?Mit Bogen(i).Offset (Versatz)BAW ...
|
| In das Form AutoCAD VBA wechseln |
|
Autocad VBA : mit variablen Werten eine komplette Zeichnung erstellen
RoSiNiNo am 12.08.2003 um 07:38 Uhr (0)
Kommt ganz darauf an was du damit machen willst. Wenn du den Kreis nachher noch einmal angreifen willst (Farbe ändern, verschieben,...), dann solltest du ihn dir auch merken. Code: dim Kreis as acadcircle set kreis = thisdrawing.modelspace.addcircle(Einsetzpunkt, Radius) wenn du den Kreis nicht mehr brauchst, dann Code: thisdrawing.modelspace.addcircle Einsetzpunkt, Radius ------------------ Roland
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Objekte in ACAD verschieben
Karsten HST am 18.03.2005 um 12:39 Uhr (0)
So müsste es gehen: Sub MoveAll() Dim acSSet As AcadSelectionSet, nItem As AcadEntity Dim FromPoint, ToPoint On Error Resume Next SelectionSets.Add ALLES Set acSSet = SelectionSets( ALLES ) acSSet.Select acSelectionSetAll FromPoint = Utility.GetPoint(, von Punkt: ) ToPoint = Utility.GetPoint(FromPoint, nach Punkt: ) For Each nItem In acSSet nItem.Move FromPoint, ToPoint Next acSSet.Delete End Sub
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : VBE-Zugriff-->Doku?
Headcase am 02.05.2006 um 09:38 Uhr (0)
Vielen Dank für den Tip! Man sollte nicht Freitags kurz vor Feierabend noch solche Fragen stellen Habe eben festgestellt, dass die Hilfe ja doch einiges hergibt.Mein Problem war: Ich wollte in einem "About"-Dialogfeld neben der Programmversion das ausgelesene Datum der letzten Änderung anzeigen. Dass ist mir nun mit Hilfe des FSO gelungen, jedoch nur über Angabe des absoluten Pfades der .DVB-Datei. Diesen kann ich mit "application.VBE.activevbproject.filename" auslesen, dadurch sollte das ganze jetzt auch ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Linien Selektieren und verschieben für Anfänger
Brischke am 26.05.2004 um 01:05 Uhr (0)
Hallo, wie du die Linien selektierst, das kannst du dir dort ableiten: http://ww3.cad.de/foren/ubb/Forum259/HTML/000242.shtml Die so ermittelten Linienobjekte sind dann nur noch bzgl. der länge zu überprüfen. Linien verfügen über diese Länge-Eigenschaft, so dass du diese dann mit einer einfachen If-Bedingung rausfiltern kannst. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat! Treffen Sie (de ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : custom_mittellinie
Stelli1 am 12.06.2007 um 14:03 Uhr (0)
Hallo,da du hier im VBA Forum bist mal eine Antwort aus dieser Sicht:Das kann man mit VBA schon programmieren. Aber mit wenig VB Kenntnissen sehe ich da nicht viel Chancen.Aber da gibt es bestimmt schon was. Ich denke aber das der Beitrag im "Rund um AutoCAD" Forum besser aufgehoben ist, da hier alle (auch die Lispler ) lesen und einer eine Lösung bzw. einen Tipp hat.Wenn du möchest, können wir den Beitrag dorthin verschieben um Crossposts zu vermeiden.Viel ErfolgWilfried Stelberg------------------Warum li ...
|
| In das Form AutoCAD VBA wechseln |
