Informationen zum Forum AutoCAD VBA:
Anzahl aktive Mitglieder: 784
Anzahl Beiträge: 12.026
Anzahl Themen: 2.139

Im Beitrag/Titel Nur im Titel Nur nach Datum sortieren Docs / Anhänge mit Lösung
Suchmaschinenstatistik
Livesuche
Einstellungen
Info

Auch mit chatGPT* können Lösungen aus dem CAD.de-Forum recherchiert werden:

* chatGPT ist eine eingetragene Marke von openAI

Ergebnisse 1 - 3, 3 Gesamtergebnisse mit Suchbegriffen komponenten verschieben sec.
AutoCAD VBA : Auswahl auf 0,0 verschieben
Bernhard F. am 10.06.2009 um 14:33 Uhr (0)
Hallo alfredEs soll ein gesamtes SelectionSets gebildet werden und der linke unter Punkt zu 0,0 werden.------------------Gruß, Bernhard F.
In das Form AutoCAD VBA wechseln
AutoCAD VBA : Auswahl auf 0,0 verschieben
Bernhard F. am 10.06.2009 um 13:59 Uhr (0)
Kann mir jemand sagen, wie ich eine auswahl auf 0,0 verschieben kann?folgenden Code habe ich:Code:Public Sub test_2() Dim sset As AcadSelectionSet Dim Entity As AcadEntity Dim fType%(1), fData(1) Dim minExt As Variant Dim maxExt As Variant Dim test As Variant Dim FromPoint , ToPoint Dim ToPoint(0 To 2) As Double On Error Resume Next Set sset = ThisDrawing.SelectionSets("Rahmen") If Err.Number Then Set sset = ThisDrawing.SelectionSets.Add("Rahmen") End If On Error GoTo 0 fType(0) = 0 fDa ...
In das Form AutoCAD VBA wechseln
AutoCAD VBA : Auswahl auf 0,0 verschieben
Bernhard F. am 10.06.2009 um 15:35 Uhr (0)
Vielleicht etwas umständlich aber es funktioniert.Code:Public Sub Alles_Verschieben() Dim sset As AcadSelectionSet Dim Entity As AcadEntity Dim fType%(1), fData(1) Dim minExt As Variant Dim maxExt As Variant Dim Test As Variant Dim FromPoint , ToPoint Dim ToPoint(0 To 2) As Double On Error Resume Next Set sset = ThisDrawing.SelectionSets("Rahmen") If Err.Number Then Set sset = ThisDrawing.SelectionSets.Add("Rahmen") End If On Error GoTo 0 fType(0) = 0 fData(0) = "INSERT" fType(1) = 8 ...
In das Form AutoCAD VBA wechseln

Anzeige:

Anzeige: (Infos zum Werbeplatz)

Alle Produkt-, Schrift-, Firmennamen und Logos sind Warenzeichen oder eingetr. Warenzeichen der jeweiligen Firmen.
©2025 CAD.de , Lenggries. Tel: ++49 (8042) 973 8208 | Datenschutz