---

Hallo,

Habe ein problem mit ein optionButton

Habe unter optionButton1  layer “Grundriss“ einblenden und unter optionButton2 layer “Grundriss“ ausblende. Das geht mit diese code:

Private Sub knopm2zeigen_Click()

'ZEIGEN

If knopm2zeigen = True Then
'On Error Resume Next
ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = False
ThisDrawing.Layers.Add("7_Tekt_M2").LayerOn = True
Else
ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = True
ThisDrawing.Layers.Add("7_Tekt_M2").LayerOn = False
End If
ThisDrawing.Regen (acActiveViewport)
End Sub

Private Sub knopm2ausblende_Click()

'AUSBLENDE

ThisDrawing.Layers.Add ("00")
ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item("00")
If knopm2ausblende = True Then
ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = True
ThisDrawing.Layers.Add("7_Tekt_M2").LayerOn = False
Else
ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = False
ThisDrawing.Layers.Add("7_Tekt_M2").LayerOn = True
End If
ThisDrawing.Regen (acActiveViewport)
End Sub

Jetzt habe ich das Problem wenn ich selbständig im Autocad layers der layer freeze oder lampe Aus, dann bleibt im Userform nach neu abrufen der optionButton1 aktive (ZEIGEN) aber er sollte optionButton2 (AUSBLENDE) aktive zeigen.

Wie kann ich das machen??

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

---

Hallo,

Frage doch beim Start des Formulars den aktiven Stand der Layer ab und schalte davon abhängig die Eigenschaft "Value" des betroffenen Option-Buttons auf True oder False.

Gruß, Carsten

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

---

Leider weiss ich nicht wie ich diese aktiven Stand der Layer abfragen soll. und verarbeiten muss...???

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

---

Hi,

zum Beispiel so:

Code:

---

If ThisDrawing.Layers.Item("Test_Layer").Freeze = True Then
MsgBox "Layer ist gefroren"
me.OptionButton1.Value = True
Else
MsgBox "Layer ist getaut"
me.OptionButton1.Value = False
End If

---

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 06. Feb. 2008 editiert.]

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

---

Wie ist es möklich um ein case zu machen es sollte funktionieren wenn der layer freeze ist aber auch wenn der layeron =false ist.

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

---

Hi dw,

Kannst du noch mal beschreiben, was du genau vor hast?! So verstehe ich deine Frage nicht. 

Gruß, Carsten

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

---

Es sollte so sein wenn ein (layer,layeron =aus) oder (freeze =true)  eine von beide deaktiviert ist sollte im Dialogbox der Optionsbutton auf ausblende stehen. Das wollte ich lose mit eine case aber habe keine Ahnung wie ich mit ein case arbeiten soll.

Hoffentlich versehest du mein Problem.
Anbei meine code:

Private Sub knopm2zeigen_Click()

'Hier worden alle TEKSTEN M2. ZICHTBAAR

If knopm2zeigen = True Then
On Error Resume Next
    ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = False
    ThisDrawing.Layers.Add("7_Tekt_M2").LayerOn = True
Else
    ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = True
    ThisDrawing.Layers.Add("7_Tekt_M2").LayerOn = False
End If

ThisDrawing.Regen (acActiveViewport)
End Sub

Private Sub knopm2ausblende_Click()

'Hier worden alle TEKSTEN M2 UITGEZET.

ThisDrawing.Layers.Add ("00")
ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item("00")

If knopm2ausblende = True Then
    ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = True
    ThisDrawing.Layers.Add("7_Tekt_M2").LayerOn = False
Else
    ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = False
    ThisDrawing.Layers.Add("7_Tekt_M2").LayerOn = True
End If

ThisDrawing.Regen (acActiveViewport)
End Sub

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

---

Hallo,

dein Programmcode kann so nicht funktionieren. Das einizige was ihn durchlaufen läßt ist die Einstellung "On error resume Next". Dann überspringt er alle fehlerhaften Zeilen.

Mit dem Code

Code:

---

ThisDrawing.Layers.Add("7_Tekt_M2").Freeze = True

---

erzeugst du einen Layer. Er ist nicht dazu geeignet die Eigenschaften abzufragen oder einzustellen.
So geht es richtig

Code:

---

ThisDrawing.Layers("7_Tekt_M2").Freeze = True
option1.value = ThisDrawing.Layers("7_Tekt_M2").Freeze

---

In deinem Fall wäre es doch viel einfacher das Ein- und Ausschalten eines Layers auf einen Button in AutoCAD zu legen. Da brauchst du keinen VBA Programmcode für. Such doch mal hierzu im Forum Rund um AutoCAD.

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

---

Hallo,

noch ein Nachtrag fürs einfache Suchen.

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