Objektfarbe ändern mit Eingabedaten

[PSP11]

Bye to all,
Ich versuchte nach einer Lispe zu suchen, die mir erlaubt, die Farbe einiger ausgewählter Objekte mit einem Wert als Eingabe zu ändern. Ich sah auch die Handbücher zu schreiben lisp, aber nicht praktische Programmierung Ich habe nicht verstanden, wie zu tun, nicht gefunden ähnliche lisp, die eine Eigenschaft von Objekten ändern.
Ich weiß, dass die Änderung einfach ist, über das Eigenschaftsmenü zu machen, aber wenn ich viele Farben verwenden möchte, möchte ich vermeiden, dass ein Vorhang mit allen Farben, die von der Autocad-Öffnung verwendet werden., dann eine Taste oder ein Befehl, die Farbeingabe von der Tastatur einfügen würde alles viel einfacher und schneller.

Ich hoffe, du kannst mir helfen. Danke.

 

[GP.]

Nachweis questo:

(defun c:chcol ( / obj col n)
(vla-startundomark (vla-get-activedocument))
(falls und
(princ "\nselezionare oggetti")
(setq obj (ssget))
(setq col (geting "nuovo colore:"))
(<= 1 col 256)
)
(Länge obj)
(Einsatzpropertyvalue (ssname obj (setq n (1-n)))) "color" col)
)
)
(vla-endundomark (vla-get-activedocument))
(princ)
)

wenn Sie die Eingabe aus dem Dialogfeld "Farbe" bevorzugen, ersetzen
(setq col (getint "neue Farbe: ")mit(setq col (acad_ colordlg 256)

 

[Cristallo]

Über Farbe, gp
in einer truecolor Farbe Entität (wir sagen als Beispiel 88,88,88) wenn Sie gehen, um zu finden Gruppe 62 gibt Sie (62.251), als ob es ein graues Col.251. aber schafft es ruhig in truecolor.
wo geht es, um die wahren Farbdaten zu speichern?
und wenn (acad_colordlg 256) den Standard-Farbdialog startet, wie man den vollen Farbdialog von truecolor zurückgibt?

 

[Cristallo]

seltsame Sache:
setpropertyvalue auf 2010 abstürzt (keine Funktionsdefinition) noch ist eine vlisp-Funktion, die von Mom adesk berichtet wird

 

[GP.]

Über Farbe, gp
in einer truecolor Farbe Entität (wir sagen als Beispiel 88,88,88) wenn Sie gehen, um zu finden Gruppe 62 gibt Sie (62.251), als ob es ein graues Col.251. aber schafft es ruhig in truecolor.
wo geht es, um die wahren Farbdaten zu speichern?
und wenn (acad_colordlg 256) den Standard-Farbdialog startet, wie man den vollen Farbdialog von truecolor zurückgibt?

der Befehl für truecolor ist acad_truecolordlg, ad es.
(setq col (acad_truecolordlg 256)gibt paar Wetten mit dxf-Code relativ zu Farbe, Typ:(62 . 40) (420 . 16490500)die Regelung ist:(62. Farbindex) bei Indexfarbe(62. Colorindex) (420. Truechole) im Falle der truecolor Farbe((62 . colorindex) (420 . truecolor) (430 . "colorbook$colorname")) im Fall von "Farbkatalog"

Ich finde es sehr bequem und einfach, die Farbänderung von Objekten mit Autolisp zu verwalten, anstatt mit den vla-vlax Funktionen, im Fall dieser Diskussion:

(defun c:chcol ( / obj col n)
(vla-startundomark (vla-get-activedocument))
(falls und
(princ "\nselezionare oggetti")
(setq obj (ssget))
(setq col (acad_truecolordlg 256))
)
(Länge obj)
(entmod (append (entget (ssname obj (setq n (1-n)))))))
)
)
(vla-endundomark (vla-get-activedocument))
(princ)
)

S.: Der Immobilienbereich (e) Gewinnspiel) werden Funktionen hinzugefügt, um Lisp mit Mac-Versionen zu erleichtern, nicht mit vla-vlax ausgestattet, wenn ich mich nicht schlecht von 2012 erinnern.

 

[Cristallo]

:finger: sempre efficace