Rispondi alla discussione

Messaggio

<blockquote data-quote="GP." data-source="post: 476355" data-attributes="member: 2855">In sostituzione del primo lisp puoi usare questo, aggiungendo una riga per ogni colore particolare che vuoi processare[CODE](defun c:zz ()&nbsp; &nbsp; (vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))&nbsp; &nbsp; &nbsp; &nbsp; (vla-put-color x&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (cond&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ( (= 131 (vla-get-color x)) 4)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ( (= 151 (vla-get-color x)) 6)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (t (vla-get-color x)) ;--&gt; se il colore non è tra quelli indicati assegna il proprio colore ACI&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; ))[/CODE]Per il secondo puoi usare anche questa versione con COND, la particolarità è che puoi assegnare lo stesso colore ai layer che non ti interessano[CODE](defun c:hh ()&nbsp; &nbsp; (vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))&nbsp; &nbsp; &nbsp; &nbsp; (vla-put-color x&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (cond&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ( (= (vla-get-Name x) &quot;AM_0&quot;) 1)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ( (= (vla-get-Name x) &quot;AM_1&quot;) 2)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ( (= (vla-get-Name x) &quot;AM_3&quot;) 3)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ( (= (vla-get-Name x) &quot;AM_4&quot;) 4) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (t 7)&nbsp;&nbsp; ; --&gt; se il layer non è tra quelli indicati assegna il colore 7&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; &nbsp; &nbsp; )&nbsp; &nbsp; ))[/CODE]</blockquote>

[QUOTE="GP., post: 476355, member: 2855"] In sostituzione del primo lisp puoi usare questo, aggiungendo una riga per ogni colore particolare che vuoi processare [CODE](defun c:zz () (vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (vla-put-color x (cond ( (= 131 (vla-get-color x)) 4) ( (= 151 (vla-get-color x)) 6) (t (vla-get-color x)) ;--> se il colore non è tra quelli indicati assegna il proprio colore ACI ) ) ) )[/CODE] Per il secondo puoi usare anche questa versione con COND, la particolarità è che puoi assegnare lo stesso colore ai layer che non ti interessano [CODE](defun c:hh () (vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (vla-put-color x (cond ( (= (vla-get-Name x) "AM_0") 1) ( (= (vla-get-Name x) "AM_1") 2) ( (= (vla-get-Name x) "AM_3") 3) ( (= (vla-get-Name x) "AM_4") 4) (t 7) ; --> se il layer non è tra quelli indicati assegna il colore 7 ) ) ) )[/CODE] [/QUOTE]

Verifica

Rispondi alla discussione

Staff online

Utenti online

Statistiche forum