RAL par Vlisp

[Tramber]

Il y a bien (dos_getcolor "Select a color" 1) de DOSlib mais cette fonction ne permet que de spécifier une True color.

 

Je recherche :

 

Un moyen de spécifier interactivement un RAL pendant l'execution d'un programme.

J'ai bien essayé de récupérer la variable CECOLOR après avoir lancé un (command "_color") mais ceci n'affiche que des options en ligne de commande (d'ailleurs essayez de saisir un RAL, même avec l'option CO, je n'y arrive pas) et je voudrais bien la boîte, si possible.

 

Peut-on faire appel à un ARX ou autre ? Avez-vous entendu parler du sujet qqe part ?

 

Merci

 

[Tramber]

J'ai trouvé qqe chose, tout bête, une solution en ligne de commande (mais toujours pas en boite de dialogue) :

 

A l'invite :

 

Commande: -couleur

Entrez la couleur par défaut de l'objet [Truecolor/carnet de COuleurs] 
: co
Saisie du nom du carnet de couleurs : RAL CLASSIC
Saisie du nom de la couleur :

 

[Patrick_35]

Salut Tramber

Ce sujet ne répond pas à ta question ?

 

@+

[Tramber]

Pas vraiment.

Je suis en train de démarrer une recherche à partir de cette discussion sur le forum Autodesk.

 

Pas évident, mais des pistes s'ouvrent.

 

Avec ou sans boite de dialogue, je voudrais appliquer des RAL à des objets ou à CECOLOR.

Merci en tous cas.

 

[Tramber]

(setq accmcol (vla-getinterfaceobject(vlax-get-acad-object)"Autocad.AcCmColor.16"))
(setq colbook (vla-get-bookname accmcol))
(setq color_book_files(vl-directory-files "C:\\Program Files\\Autodesk Architectural Desktop 2004\\support\\color" "*.acb"))



(setq colbook (vla-get-bookname accmcol))
(setq numral(itoa(getint"\nNuméro de RAL ? ")))
(if (eq "" colbook)
 (progn
   (setq col_book_name "ral classic.acb")        
   (if (member col_book_name color_book_files)
     (progn
(if(vl-catch-all-apply (function (lambda() (vla-setcolorbookcolor accmcol "RAL CLASSIC" (strcat"RAL "numral)))))
  (alert "Le numéro de RAL n'existe pas")
  (VLA-PUT-TRUECOLOR obj accmcol))
))))

 

....en se bougeant un peu les fesses !