---

hallo zusammen,
ich stehe etwas auf dem schlauch und würde mich über eure hilfe freuen.
mit dem vba-code unten lasse ich eine klothoide als polylinie zeichne.
dazu noch zwei linie am anfang und am ende sowie text.
zum schluss würde ich gerne all diese elemente um einen bestimmten winkel,
den ich schon ermittelt habe, drehen. wie bekomme ich diese verschiedenen
elemente nun in eine auswahl? den begriff "selectionset" habe ich schon mal
gehört, kann damit aber leider nicht richtig arbeiten - bin halt anfänger...
freue mich über jede hilfe
gruß jörg

' *********** Fall 3 ******************
' ******** von rechts unten  **********
' ******** nach links oben    *********
' *************************************

If fall = 4 Then
GoTo 1004
Else
GoTo 3000
End If

1004:
'Senkrechte1
startPoint(0) = x1: startPoint(1) = y1
endPoint(0) = x1: endPoint(1) = y1 - 10
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

For i = 1 To 1001
If i = 1 Then
LL(i) = L1
GoTo 4000:
End If
If i = 1001 Then
LL(i) = L2
'MsgBox ("FERTIG !")
GoTo 4000:
End If
LL(i) = L1 + (i - 1) * diff

4000:
ff(i) = LL(i) / A
xx(i) = A * (ff(i) - (ff(i) ^ 5) / 40 + (ff(i) ^ 9) / 3456 - _
(ff(i) ^ 13) / 599040 + (ff(i) ^ 17) / 175472640)
xx(i) = xx(i) * (-1)

yy(i) = A * ((ff(i) ^ 3) / 6 - (ff(i) ^ 7) / 336 + _
(ff(i) ^ 11) / 42240 + (ff(i) ^ 17) / 9676800)
yy(i) = yy(i) * (-1)

    points(k) = x1 + xx(i): points(k + 1) = y1 + yy(i): points(k + 2) = 0
    If i = 1001 Then
    xs = points(k)
    ys = points(k + 1)
    End If
   
    k = k + 3
   
Next i

Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)

    point1(0) = xx(1): point1(1) = 25 + yy(1): point1(2) = 0
    point2(0) = xx(1000): point2(1) = yy(1000) - 25: point2(2) = 0
   
    basePoint(0) = x1: basePoint(1) = y1: basePoint(2) = 0
    rotationAngle = winkel1
    plineObj.Rotate basePoint, rotationAngle
   
    Pi = 3.141592654
    tau = 200 / Pi * L2 / (2 * R2)
   
    xdreh = R2 * Cos(tau * Pi / 200)
    ydreh = R2 * Sin(tau * Pi / 200)
   
    startPoint(0) = xs: startPoint(1) = ys: startPoint(2) = 0#
    endPoint(0) = xs - R2 * Cos(tau * Pi / 200): _
    endPoint(1) = ys - R2 * Sin(tau * Pi / 200): endPoint(2) = 0#
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    lineObj.color = 1
       
    basePoint(0) = xs: basePoint(1) = ys: basePoint(2) = 0
    rotationAngle = 2 * 0.7853981
    lineObj.Rotate basePoint, rotationAngle
   
    textString = "A=" & A
    insertionPoint(0) = x1 + xx(500) - 1: insertionPoint(1) = y1 + yy(500) - 10
    height = 2
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
       
    textString = "R1=" & TextBox2
    insertionPoint(0) = x1 + xx(1) + 1: insertionPoint(1) = y1 + yy(1) - 2.5
    height = 1
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
   
    textString = "R2=" & TextBox3
    insertionPoint(0) = x1 + xx(1000) - 5: insertionPoint(1) = y1 + yy(1000) + 2.5
    height = 1
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)

GoTo 3000:
'***************************************
'***************************************

------------------
AutoCAD 2004 DEU

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

du brauchst nicht unbedingt ein Selektionset.
Das kannst du füllen in dem du über einen FIlter und/oder einer Benutzerauswahl Element aus der Zeichnung holst.

Das Brauchst du hier nicht, da du die Elemente selbst erzeugst.

Da du eine Achse zeichnest, hat die x-Elemente.
Anschrieb und Referenzlinie zum Achshauptpunkt kommt aber nur einmal.

Merke die doch die Zeichnungsentitys in einem eigenen Array

z.B.
Dim MyElements () as acadentity

for i=1 to 10
    myPolyline = blabla
    redim Preserve myElements(Ubound(myElements +1)
    set myElements(Ubound(myElements)= myPolyline
    myText=blabla
    redim Preserve myElements(Ubound(myElements +1)
    set myElements(Ubound(myElements)= myText
next i

for i= lbound(myElements) to ubound(MyElements)
    myElements(i).rotate  .....
next i

Du rechnest übringens deine Winkel geodätisch.
Im AutoCAD hast du Bogenmaß und eine umgekehrte Drehrichtung

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

[Diese Nachricht wurde von Stelli1 am 25. Okt. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

noch ne Frage:
Warum arbeitest du mit Taylor Reihe.
Ist dir der "sin" nicht genau genug?

Wie war das noch mit der guten alten Klothoide
R=L/A (ich weiss es nicht mehr)

Stelli

[EDIT:woll mal wenigtens Klothoide richtig schreiben]
------------------
Warum lisp'eln wenn's auch anders geht.

[Diese Nachricht wurde von Stelli1 am 24. Okt. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo stelli,
danke für deine hilfe, aber wenn ich den redim-befehl in vba eingebe,
wird der text rot eingefärbt, was bei mir bedeutet, dass er den
befehl nicht kennt? gibt es vielleicht doch eine andere möglichkeit?
gruß jörg

ps:
formel für klothoide: a^2 = r * l

------------------
AutoCAD 2004 DEU

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo stelli,
danke für deine hilfe, aber wenn ich den redim-befehl in vba eingebe,
wird der text rot eingefärbt, was bei mir bedeutet, dass er den
befehl nicht kennt? gibt es vielleicht doch eine andere möglichkeit?
gruß jörg

ps:
-formel für klothoide: a^2 = r * l
die berechnung der x/y-werte steht so in der ras-l

------------------
AutoCAD 2004 DEU

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

schreib doch mal redim in dein codefenster, marlieren und F1.

Du kannst alternativ dein Datenfeld auch statisch anlegen. Das heißt du dimensionierst es von vorne herein so gross das alle Elemente rein passen und läßt parallel einen Zaähler mitlaufen damit du weisst wie viele Elemente verwendet sind.

Noch eine Frage: Kennst du die Bedeutung deiner Variablen alle noch ?
Bezeichnungen wie ff(), ll() sind nicht gerade aussagekräftig. Verwende doch einfach Klartext. Dann kann auch ein anderer und du auch noch in zwei Wochen lesen was gemeint war. So wirst du einen eventuellen Fehler nie finden.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
noch ein Nachtrag

kopier doch mal folgendes in dein Codefenster und probiere mal aus

Code:

---

Sub test2()
  Dim TestVar() As Double
 
  ReDim Preserve TestVar(0 To 10)
  Debug.Print UBound(TestVar)
 
End Sub

---

STelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP