---

Problemstellung.jpg

Hallo wertes Forum.

Wie kann man am besten zwischen verchiedenen Linientypen unterscheiden? (siehe Grafik - allerdings nur ein kleiner auszug)
Gibt es da eine eindeutige Identifizierungsmöglichkeit, wenn man einen Linientyp definiert, oder muss man alles über folgende Attribute machen:
 
  line.Linetype
  line.Thickness
  line.Lineweight
  ....

lg Peter

 

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

---

Hallo Peter,

es kommt darauf an wie weit die Informationen "verschlüsselt" sind.
Es gibt auf jeden Fall keine Supereigenschaft wo alles drin steckt.
In der Regel würde man in der Reihenfolge
- Layer
- LineType
- Color /Truecolor
- Lineweight
vorgehen um Informationen zu decodieren.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

problemstellung.jpg

Hallo Wilfried,

danke wiedermal für deine Antwort. Hab jetzt die von dir genannten Attribute ausgegeben und wundere mich, warum "Lineweight" und "color" bei jeder der 10 Linien gleich ist.

Folgende Prozedur gibt mir die Infos im Direktfenster aus:

  Private Sub lineDef()
     
    Dim ret As Collection
    Dim lineset As AcadSelectionSet
    Dim e As AcadEntity
    Dim i As Integer
    Dim l As AcadLine
    Dim s As String
   
    Set ret = New Collection
    Set lineset = CreateSelectionSet("SET01")
    lineset.Select mode:=acSelectionSetAll
   
    i = 0
    For Each e In lineset
      If TypeOf e Is AcadLine Then
        Set l = e
        Debug.Print "---------------------------------"
         
        s = l.Layer & Chr(13)
        s = s & l.Linetype & Chr(13)
        s = s & l.color & Chr(13)
      '  s = s & l.TrueColor & Chr(13)
        s = s & l.Lineweight & Chr(13)
        Debug.Print s
          i = i + 1
      End If
    Next e
   
End Sub

Direktfenster:
---------------------------------
SUS_Kanal - Drainage
ACAD_ISO07W100
256
-1

---------------------------------
SUS_Lüftung
ACAD_ISO07W100
256
-1

---------------------------------
SUS_Kanal - Regen
ACAD_ISO07W100
256
-1

---------------------------------
SUS_Kanal - Schmutz
ACAD_ISO07W100
256
-1

---------------------------------
SUS_Kanal - Drainage
ByLayer
256
-1

---------------------------------
SUS_Sanierung - geschlossen
ByLayer
256
-1

---------------------------------
SUS_Sanierung - offen
ByLayer
256
-1

---------------------------------
SUS_Lüftung
ByLayer
256
-1

---------------------------------
SUS_Kanal - Regen
ByLayer
256
-1

---------------------------------
SUS_Kanal - Schmutz
ByLayer
256
-1

Bedeutet ByLayer "durch den Layer definiert"? Wie kann ich dann verschiedene Linien unterscheiden, wenn sie auf dem gleichen Layer liegen (-> mit diesem System könnte ich sie dann ja nicht eindeutig zuordnen!)

Ich bitte wieder um deinen schlauen Rat,

lg Peter

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

---

Hallo Peter,

Wenn die Linien auf dem gleichen Layer liegen und auf "VonLayer" stehen, was bei der Farbe dann der Wert 256 ist, haben die Linien auch die Farbe, die im Layer definiert ist. Du kannst höchsten die Farbe der Linie auf einen Wert setzen. Dann können die Linien auf dem selben Layer liegen aber andere Farben usw. besitzen. Dann steht in deiner Auswertung aber nicht VonLayer bzw. 256 bei der Farbe.
Von daher versteh ich dein Problem nicht ganz. Du hast doch bestimmt bei deinem Beispiel 10 Linien, die jeweils auf einem Layer liegen, oder?!

Gruß, Carsten

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

---

Hallo Peter,

du kannst doch über das Eigenschaftsfenster von AutoCAD kontrollieren wie die Linieneigenschaften sind.
Grundsätzlich sind Linien die auf einem Layer sind, die gleiche Linienart und Farbe haben auch Linien gleicher Bedeutung. Dabei ist die Linienart byLayer und die Farbe 256(byLayer) letzendlich auch Eigenschaften.
In deinem Quelltext hast du TRUECOLOR auskommentiert. Haben deine Elemente nur die Indexfarben ?
Ansonsten ist die Eigenschaft Truecolor nicht nur einfach ein Wert sondern ein Objekt. Dazu musst du eine Object als TrueColor deklarieren und dieses per Set aus der Objekteigenschaft belegen. Dann kannst du aus dem Farbobjekt die Eigenschaften auslesen.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

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