---

Hallo zusammen,

ich schreibe zurzeit einen Konverter für meine Diplomarbeit und habe ein kleines Problem:

Beim erstellen von Polylinien mit meinem Konverter erstelle ich auch direkt die Layer mit. Die Objekte haben auch gleich die richtige Farbe, allerdings werden die Layer im Layermanager mit der Farbe weiß angezeigt. Hier der Auszug aus dem Teil der DXF-Datei, an dem die Polylinie und der Layer erzeugt wird:

Code:

---

POLYLINE
62
1
8
H045_051
66
1
10
6558718.204
20
4941605.410
30
327.161
70
8
0
VERTEX
62
1
8
H045_051
10
6558718.204
20
4941605.410
30
327.161
70
32
0
VERTEX
62
1
8
H045_051
10
6558718.188
20
4941605.512
30
327.875
70
32
0
VERTEX
62
1
8
H045_051
10
6558718.148
20
4941605.497
30
327.867
70
32
0
VERTEX
62
1
8
H045_051
10
6558718.161
20
4941605.450
30
327.204
70
32
0
SEQEND
0

---

Also Farbe rot und Layer "H045_051". Kann ich auch ohne vorher noch Tables mit Layer anzulegen die angezeigte Farbe im Layermanager änder? Wenn nicht, wie erzeuge ich dann die Tables mit den Layern. Hatte da ziemliche Probleme. Hier mein X-ter Versuch:

Code:

---

0
SECTION
2
HEADER
9
$EXTMIN
10
6558711.097
20
4941621.571
30
325.480
9
$EXTMAX
10
6558716.414
20
4941625.145
30
328.007
9
$LIMMIN
10
6558711.097
20
4941621.571
9
$LIMMAX
10
6558716.414
20
4941625.145
0
ENDSEC

0
SECTION
2
TABLES
  0
TABLE
  2
H045_051
70
0
62
1
6
CONTINUOUS
0
ENDTAB

.
.
.

0
SECTION
2
ENTITIES
0
POLYLINE
62
2
.
.
.

---

Hoffe ihr könnt mir da weiter helfen

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

---

Hallo Tommy,

meine Versuche haben folgenden Mindesteintrag in der Layertabelle ergeben:

Code:

---

TABLE
  2
LAYER
70
    10
  0
LAYER
  2
H045_051
70
    0
62
    1
  6
CONTINUOUS
  0
ENDTAB

---

Vielleicht hilft das ja schon mal für's erste !?

------------------
Gruß
Heiko

"Kunst kommt von können, nicht von wollen, sonst müsste es ja Wunst heißen." - Karl Valentin

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

---

H45.zip

Vielen Dank, hat mir sehr geholfen. Funktioniert nun prima! 

Allerdings hat das nun ein neues Problem aufgeworfen:
Obwohl ich über $EXTMIN und $EXTMAX und über $LIMMIN und $LIMMAX die Dimensionen der Zeichnung (wie vorher auch) setze, wird beim öffnen der Zeichnung nun nicht mehr dort hingezoomt. Woran kann das liegen? Wenn ich die Layer wieder rausnehme geht es. Habe mal die DXF-Datei angehängt, hoffe ihr könnt mir da weiterhelfen.
Vielen Dank im Vorraus!

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

---

Hallo Tommy,

wird wohl an der fehlenden Angabe der Ansicht (VPORT) liegen:

Code:

---

TABLE
  2
VPORT
70
    2
  0
VPORT
  2
*ACTIVE
70
    0
10
0.0
20
0.0
11
1.0
21
1.0
12
43.909796803258359
22
-142.27782979933539
13
0.0
23
0.0
14
1.0
24
1.0
15
0.0
25
0.0
16
0.0
26
0.0
36
1.0
17
6558677.8032031972
27
4941754.9113297993
37
34.918708187518753
40
15.91747107392192
41
1.722758620689655
42
50.0
43
0.0
44
0.0
50
0.0
51
0.0
71
    0
72
  100
73
    1
74
    1
75
    0
76
    0
77
    0
78
    0
  0
ENDTAB
  0

---

Hast Du ein ACAD zur Verfügung ?
Dann teste doch einfach umgekehrt (DXF rausschreiben)
und vergleiche die Dateien.
Was anderes hab' ich auch nicht gemacht.

------------------
Gruß
Heiko

"Kunst kommt von können, nicht von wollen, sonst müsste es ja Wunst heißen." - Karl Valentin

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

---

Hi Heiko,

das komische ist ja, dass ich vorher auch keine Anzeige drin hatte (VPORT) und es auch geklappt hat, bis ich die Sache mit den Layern geändert hatte.
Nun ja, jetzt mit dem VPORT klappt es einigermaßen. Allerdings möchte ich im Prinzip einfach nur ein Zoom auf die Grenzen erreichen. Habe zwar immer die Höhlen im Bild, aber nicht auf die Grenzen gezoomt, weil ich nicht weiß weclhe Werte ich wie setzen muss und wie sich diese Werte errechnen. Hier mein VB-Code:

Code:

---

speichern.WriteLine("ENDTAB")
speichern.WriteLine("0")
speichern.WriteLine("TABLE")
speichern.WriteLine("2")
speichern.WriteLine("VPORT")
speichern.WriteLine("70")
speichern.WriteLine("2")
speichern.WriteLine("0")
speichern.WriteLine("VPORT")
speichern.WriteLine("2")
speichern.WriteLine("*ACTIVE")
speichern.WriteLine("70")
speichern.WriteLine("0")
speichern.WriteLine("10")
speichern.WriteLine("0.0")
speichern.WriteLine("20")
speichern.WriteLine("0.0")
speichern.WriteLine("11")
speichern.WriteLine("1.0")
speichern.WriteLine("21")
speichern.WriteLine("1.0")
speichern.WriteLine("12")
' Jetzt wird einfach der mittlere Rechtswert ermittelt
speichern.WriteLine(CStr((CDbl(Extmin_Y) + CDbl(Extmax_Y)) / 2000).Replace(",", "."))
speichern.WriteLine("22")
' Jetzt wird einfach der mittlere Hochwert ermittelt
speichern.WriteLine(CStr((CDbl(Extmin_X) + CDbl(Extmax_X)) / 2000).Replace(",", "."))
speichern.WriteLine("13")
speichern.WriteLine("0.0")
speichern.WriteLine("23")
speichern.WriteLine("0.0")
speichern.WriteLine("14")
speichern.WriteLine("1.0")
speichern.WriteLine("24")
speichern.WriteLine("1.0")
speichern.WriteLine("15")
speichern.WriteLine("0.0")
speichern.WriteLine("25")
speichern.WriteLine("0.0")
speichern.WriteLine("16")
speichern.WriteLine("0.0")
speichern.WriteLine("26")
speichern.WriteLine("0.0")
speichern.WriteLine("36")
speichern.WriteLine("1.0")
speichern.WriteLine("17")
speichern.WriteLine("0.0")
speichern.WriteLine("27")
speichern.WriteLine("0.0")
speichern.WriteLine("37")
speichern.WriteLine("0.0")
speichern.WriteLine("40")
speichern.WriteLine("15.91747107392192")
speichern.WriteLine("41")
speichern.WriteLine("1.722758620689655")
speichern.WriteLine("42")
speichern.WriteLine("50.0")
speichern.WriteLine("43")
speichern.WriteLine("0.0")
speichern.WriteLine("44")
speichern.WriteLine("0.0")
speichern.WriteLine("50")
speichern.WriteLine("0.0")
speichern.WriteLine("51")
speichern.WriteLine("0.0")
speichern.WriteLine("71")
speichern.WriteLine("0")
speichern.WriteLine("72")
speichern.WriteLine("100")
speichern.WriteLine("73")
speichern.WriteLine("1")
speichern.WriteLine("74")
speichern.WriteLine("1")
speichern.WriteLine("75")
speichern.WriteLine("0")
speichern.WriteLine("76")
speichern.WriteLine("0")
speichern.WriteLine("77")
speichern.WriteLine("0")
speichern.WriteLine("78")
speichern.WriteLine("0")
speichern.WriteLine("0")
speichern.WriteLine("ENDTAB")
speichern.WriteLine("0")
speichern.WriteLine("ENDSEC")
speichern.WriteLine("0")

---

P.S.: Ich benutze AutoCAD 2006, habe aber die Sache mit dem VPORT vorher nicht ausprobiert, weil es vorher wie oben beschrieben auch ohne geklappt hat. Hoffe du weißt bei meinem Problem hier Rat. 

Gruß

Thomas

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

---

Sorry Thomas,

mit VB kann ich Dir nicht dienen,
aber vielleicht kann ja noch jemand was beisteuern...

------------------
Gruß
Heiko

"Es gibt kein richtiges Leben im falschen." - Theodor W. Adorno in Minima Moralia, 43
und das hat er gesagt lange bevor es SL, WOW, ETC gab !

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