Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  AutoCAD ObjectARX und .NET
  Farbwahl-Fenster von AutoCAD

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Farbwahl-Fenster von AutoCAD (1438 mal gelesen)
Theo37
Mitglied
Techniker


Sehen Sie sich das Profil von Theo37 an!   Senden Sie eine Private Message an Theo37  Schreiben Sie einen Gästebucheintrag für Theo37

Beiträge: 423
Registriert: 08.10.2008

erstellt am: 01. Feb. 2011 14:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo an Alle,

ich möchte einen kleinen befehl erstellen in dem der User unter anderem auch die Farbe für ein Objekt festlegen können soll.
Ist es dazu möglich das normale Farbwahlfenster zu starten und bekomme ich dann auch irgenwie zurück was der Benutzer gewählt hat?
Ich hatte das selbe Problem schon mal in VBA und habe da nee ganz eigene Lösung gemacht. Ich fände es aber schöner auf das Vorhandene und damit Vertraute zurück greifen zu können.
Bin dankbar für jede Idee.

Gruß, Theo

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


Ex-Mitglied

erstellt am: 01. Feb. 2011 15:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Hi,

ohne Kommentar. 

Code:
<Autodesk.AutoCAD.Runtime.CommandMethod("CADde_showColorDlg")> _
Public Shared Sub CADde_showColorDlg()
  Dim tCoDlg As Autodesk.AutoCAD.Windows.ColorDialog = New Autodesk.AutoCAD.Windows.ColorDialog
  Dim tDlgRes As System.Windows.Forms.DialogResult = tCoDlg.ShowDialog
  If tDlgRes = System.Windows.Forms.DialogResult.OK Then
    Call MsgBox("gewählte Farbe: " & tCoDlg.Color.ToString)
  Else
    Call MsgBox("Abgebrochen oder anderer Fehler")
  End If
End Sub

- alfred -

------------------
www.hollaus.at

Theo37
Mitglied
Techniker


Sehen Sie sich das Profil von Theo37 an!   Senden Sie eine Private Message an Theo37  Schreiben Sie einen Gästebucheintrag für Theo37

Beiträge: 423
Registriert: 08.10.2008

erstellt am: 02. Feb. 2011 09:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke. Das ist ja einfach. (Wenn man's weiß)

Gruß, Theo

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



Sehen Sie sich das Profil von CAD-Huebner an!   Senden Sie eine Private Message an CAD-Huebner  Schreiben Sie einen Gästebucheintrag für CAD-Huebner

Beiträge: 9732
Registriert: 01.12.2003

AutoCAD 20xx, Civil 3D 201x, Inventor Prof 201x usw.

erstellt am: 02. Feb. 2011 10:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Theo37 10 Unities + Antwort hilfreich

Hier noch mal ein Beispiel in C# (etwa Mitte vom Quelltext), ist aber nicht so schön aufbereitet wie Alfreds Code - Top. http://through-the-interface.typepad.com/through_the_interface/2008/10/changing-the-co.html

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

Theo37
Mitglied
Techniker


Sehen Sie sich das Profil von Theo37 an!   Senden Sie eine Private Message an Theo37  Schreiben Sie einen Gästebucheintrag für Theo37

Beiträge: 423
Registriert: 08.10.2008

erstellt am: 17. Feb. 2011 16:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

eine Frage/Bitte habe ich noch.
Kann ich in dem Code unten (großer Teil von Alfred) es erreichen, daß "Farbe" als Vorschlag übernommen wird und auch in diesem Vorher/Nacher Farbfeld angezeigt wird.

      Dim altfarbe As Integer
        Dim Farbe As New AcadAcCmColor
        On Error Resume Next
        altfarbe = CInt(Hintergrundfarbe3.Text)
        If altfarbe > 255 Or altfarbe < 1 Then altfarbe = 20
        Farbe.ColorIndex = altfarbe
        Dim tCoDlg As Autodesk.AutoCAD.Windows.ColorDialog = New Autodesk.AutoCAD.Windows.ColorDialog
        tCoDlg.IncludeByBlockByLayer = False
        tCoDlg.SetDialogTabs(1)
        Dim tDlgRes As System.Windows.Forms.DialogResult = tCoDlg.ShowDialog
        If tDlgRes = System.Windows.Forms.DialogResult.OK Then Hintergrundfarbe3.Text = tCoDlg.Color.ColorIndex.ToString


Danke, Theo

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


Ex-Mitglied

erstellt am: 17. Feb. 2011 16:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Hi,

Code:
tCoDlg.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Colors.ColorMethod.ByAci, altfarbe)

- alfred -

------------------
www.hollaus.at

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz