---

Hallo,
vermutlich habe ich irgendwo einen Denkfehler.
Ich möchte verschiedene Layergruppen in einer Datenbank anlegen und von dort wieder abrufen. Der Punkt an dem meine Probleme anfangen ist folgender: Wenn ich die Daten aus der Datenbank auslese um die Layer anzulegen kommt die Strichstärke als String von der Datenbank z.B. "acLnWt050" Autocad benötigt bei der Zuordnung aber einen Wert vom Type ACAD_LWeight als Ergebnis bekomme ich folglich einen Typenkonflikt
Und hier ein Codeschnipsel hoffentlich zur Veranschaulichung:
                With DB_Layer_Var 'DB_Layer_Var ist mein Recordset aus der DB
                    For i = 0 To 2
                    .FindFirst "ID=" & Layer_Var_ID(i) 'Datensatzsuche - Layer_Var_ID enthält versch. Indexnummern zum anspringen der richtigen Datensätze für Strichstärke, Linientype...
                    Do Until .NoMatch = True
                        Layer_Var(i) = .Fields(1)
                        .FindNext "ID=" & Layer_Var_ID(i)
                    Loop
                    Next
                    Set layerObj = ThisDrawing.Layers.Add(Layer_Name)
                    With layerObj
                        .color = Layer_Farbe
                        .Description = Layer_Beschreibung
                        .Linetype = Layer_Var(1)
                        .Lineweight = Layer_Var(0) 'Layer_Var(0) wird in der ersten Schleife mit dem String aus der DB gefüllt (z.B. "acLnWt050"), hier bräuchte ich aber einen anderen Type
                    End With
                End With
Ich könnte mir vorstellen dass das irgendwie über eine Funktion laufen könnte z.B.
Function Str_To_ACLnWtX(LinienStaerke As String) As ACAD_LWEIGHT
For each LDicken in ThisDrawing.***
if LDicken.Name=LinienStaerke then
Str_To_ACLnWtX=LDicken.Value
exit functin
end if
next
end function

mit dem Aufruf:
.Lineweight = Str_To_ACLnWtX Layer_Var(0)
Gibts da sowas in der Art?
Ich hoffe das warhalbwegs verständlich?

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

---

Hi,

Du kannst die Linienstärle eines Objekts auch mit einem Integerwert zuweisen, dieser Wert entspricht 100*Linienstärke, also z.B. wenn Du einer Linie die Strichstärke von 0.05mm zuweisen willst, dann:

tLine.Lineweight = 5

Man muss aber wissen, dass nur die laut AutoCAD vordefinierten Werte zu verwenden sind.

Hoffe es hilft, - alfred -

---

Hallo Alfred,
das wäre schon eine akzeptable Lösung, da die jetzigen Werte auch dem entsprechen müssen was Autocad verwendet.

vielen Dank, damit kann ich erstmal weiterarbeiten,

Hartmut

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

---

Eins fällt mir dabei aber noch ein,
wie kann ich damit die Werte "ByLayer" und "ByBlock" abbilden?

viele Grüße, Hartmut

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

---

Hi,

Linetype-byLayer = -1
Linetype-byBlock = -2

- alfred -

---

Das hört sich gut an, vielen Dank

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

---

Meinst Du sowas ?

Code:

---

Function LW_Str_Val(s As String) As Integer
Dim LW As Integer
Select Case s
  Case "acLnWtByLayer"
        LW = -1
  Case "acLnWtByBlock"
        LW = -2
  Case "acLnWtByLwDefault"
        LW = -3
  Case Else
        LW = Val(Right(s, 3))
End Select
LW_Str_Val = LW
End Function

---

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

---

Hallo KlaK,
manchmal hat man wirklich Bretter vorm Kopf 
So kann ich beide Varianten lösen (als Typ Integer oder ACAD_LWEIGHT)
vielen Dank

PS:
Ich hatte gestern schon mal das mit den Integerwerten getestet und komischerweise wurde mein Layer bei -1 für byLayer mit -0.001 angelegt

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

---

Hi,

Du kannst zwar einem Element die Farbe 'vonLayer' geben, aber die Aussage der Layer X soll Farbe 'vonLayer' haben, geht ja auch so nicht sinnvoll

- alfred -

---

Auch wenn es nicht um die Farbe ging, stimmt das natürlich ;-)
(kein Wunder das Autocad mir da komische Sachen draus gemacht hat)

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