CadXP: LISP de conversion de materiaux en couleurs - CadXP

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

LISP de conversion de materiaux en couleurs

#1 L'utilisateur est hors-ligne   GaelRayonB 

  • ceinture jaune
  • Groupe : Membres
  • Messages : 6
  • Inscrit(e) : 10-juin 20
  • LocationRouen (76)

Posté 16 juillet 2020 - 09:58

Bonjour

Je travaille très régulièrement avec des conversion de STEP en DWG ( via INVENTOR )

Je recherche un LISP ou une solution me permettant de transformer un objet dont le matériau est du type 012,345,678 en couleur forcée 012,345,678

Il m'arrive dans les plans d'avoir des matériaux

012,345,678(1)
012,345,678(2)
012,345,678(3)
.....

Merci

Fichier(s) joint(s)


0

#2 L'utilisateur est hors-ligne   lecrabe 

  • ceinture rouge et blanche 8em dan
  • Groupe : Moderateurs
  • Messages : 9 015
  • Inscrit(e) : 10-décembre 03
  • LocationLoire (42)

Posté 16 juillet 2020 - 13:51

Hello

SVP tu peux nous mettre un DWG exemple a disposition pour voir !?

Par Download Free, WETransfert ou etc ...

LA SANTE (Stay Safe), Bye, lecrabe "triste"
Automne 2020, la retraite
Autodesk Expert Elite Team
0

#3 L'utilisateur est hors-ligne   GaelRayonB 

  • ceinture jaune
  • Groupe : Membres
  • Messages : 6
  • Inscrit(e) : 10-juin 20
  • LocationRouen (76)

Posté 17 juillet 2020 - 08:42

Bonjour

Voici un lien WeTransfer

https://we.tl/t-30pwUUcVge

Merci
0

#4 L'utilisateur est hors-ligne   lecrabe 

  • ceinture rouge et blanche 8em dan
  • Groupe : Moderateurs
  • Messages : 9 015
  • Inscrit(e) : 10-décembre 03
  • LocationLoire (42)

Posté 17 juillet 2020 - 09:33

Hello

OK Merci pour le DWG !

En effet tes noms de materiaux sont un peu curieux !
Les mysteres de la norme STEP !?
Ces objets 3D STEP proviennent de quel logiciel ??

RAPPEL: as tu essaye avec ton AutoCAD la commande IMPORTER ??
Qui sait lire "plus ou moins bien" de nombreux formats 3D !

De plus ces codes couleurs RGB ne sont pas normaux, car en general on attend des valeurs du genre 0-255
Tes codes couleurs sont codes en quoi ??

1) Comprendre le code couleur !

2) Developpement specifique pour supprimer (xxx) et affecter la bonne couleur forcee RGB aux objets concernes !

LA SANTE (Stay Safe), Bye, lecrabe "triste"
Automne 2020, la retraite
Autodesk Expert Elite Team
0

#5 L'utilisateur est hors-ligne   Tramber 

  • ceinture rouge et blanche 8em dan
  • Groupe : Moderateurs
  • Messages : 8 479
  • Inscrit(e) : 29-mars 03
  • LocationStrasbourg

Posté 17 juillet 2020 - 09:53

;; gc:str2lst
;; Transforme un chaine avec séparateur en liste de chaines
;;
;; Arguments
;; str : la chaîne
;; sep : le séparateur
(defun gc:str2lst (str sep / len lst)
  (setq len (strlen sep))
  (while (setq pos (vl-string-search sep str))
    (setq lst (cons (substr str 1 pos) lst)
	  str (substr str (+ len pos 1))
    )
  )
  (reverse (cons (substr str 1 pos) lst))
)

(defun c:M2rvb()
  (setq truc (vlax-ename->vla-object(car(entsel))))
  (setq mat(vla-get-Material truc))
  (cond((member mat '("ByLayer" "ByBlock" "Global")))
       ((=(length(setq listervb(gc:str2lst mat "_")))3);(setq mat "0_102_153")
	(vl-catch-all-apply
	  (function
	    (lambda ( / c )
	      (and
		(= 3 (setq listervb(gc:str2lst mat "_")))
		(setq c (vla-get-TrueColor truc))
		(progn (vla-put-ColorMethod c acColorMethodByRGB) (apply 'vla-SetRGB (cons c listervb)) (vla-put-TrueColor listervb c) )
		))))
	))
  )

Un petit code vite fait.
Lancer M2rvb
Image IPB

Bureau d'études dessin.
Spécialiste Escaliers
Développement - Formation

./__\.
(.°=°.)
0

#6 L'utilisateur est hors-ligne   GaelRayonB 

  • ceinture jaune
  • Groupe : Membres
  • Messages : 6
  • Inscrit(e) : 10-juin 20
  • LocationRouen (76)

Posté 21 juillet 2020 - 08:39

Bonjour

Désolé du temps de réponse
Je suis en vacances a la fin de la semaine ( enfin .....)
Je suis surbookée pour finir les affaires en cours
Je ferrais appel a votre gentillesse des mon retour de vacances ( le + tard possible ) et bien sur a votre retours de vacances aussi
Bonne VACANCES A TOUS

Merci
0

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)