| |
| 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
Beiträge: 423 Registriert: 08.10.2008
|
erstellt am: 01. Feb. 2011 14:20 <-- editieren / zitieren --> Unities abgeben:
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 / zitieren -->
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
Beiträge: 423 Registriert: 08.10.2008
|
erstellt am: 02. Feb. 2011 09:22 <-- editieren / zitieren --> Unities abgeben:
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 20xx, Civil 3D 201x, Inventor Prof 201x usw.
|
erstellt am: 02. Feb. 2011 10:18 <-- editieren / zitieren --> Unities abgeben: Nur für Theo37
|
Theo37 Mitglied Techniker
Beiträge: 423 Registriert: 08.10.2008
|
erstellt am: 17. Feb. 2011 16:11 <-- editieren / zitieren --> Unities abgeben:
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 / zitieren -->
Hi, Code: tCoDlg.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(Colors.ColorMethod.ByAci, altfarbe)
- alfred - ------------------ www.hollaus.at |