How to extract the selection set for w block and modify it

[raj]

hi,

LISP ROUTINE

i am working on block i want my blocks to change their color as per the user defenition

like a block with if users option is 5 10 15 20 25
i need to assign the colour red ----5 green------10 blue---15 and so on for the same block which i assigned

how can i do this i am woking on lisp rotines

[ReMark]

raj: Please do not double post. We heard you the first time. Try to have a little patience.

Double posting wastes space and can be confusing as people respond to the same question is both posts. That just makes it more difficult to follow the course of the conversation.

Thanks you.

[NHM]

hi,

LISP ROUTINE

i am working on block i want my blocks to change their color as per the user defenition

like a block with if users option is 5 10 15 20 25
i need to assign the colour red ----5 green------10 blue---15 and so on for the same block which i assigned

how can i do this i am woking on lisp rotines

The Block on which you are working needs to be assigned BYBLOCK Color.... Only then can one apply the color codes to the said blocks even through a LISP Routine

[Tharwat]

Here is mine ......

(defun c:THcool (/ TH:CAD ss obj Bs)
  ;Tharwat Nov .09.2010
  (vl-load-com)
  (if (and (setq ss (car (entsel "\n Select Block :")))
	   (eq (cdr (assoc 0 (entget ss))) "INSERT")
	   )
     (progn
         (setq TH:CAD (vla-get-activedocument (vlax-get-acad-object)))
          (setq obj (vlax-ename->vla-object ss))
            (vlax-for Bs (vla-get-Blocks TH:CAD)
               (vlax-for Obj Bs
                   (vlax-property-available-p Obj 'Color)
                   (vla-put-Color Obj 1)
                 )
             )
       )
    (princ (strcat "\n *** Select a BLOCK not a :"(cdr (assoc 0 (entget ss))) " *** "))
    )
  (princ)
  )

Tharwat

[NHM]

Tharwat, Your program works great.... I tried and tested it... The only problem as I see it that Raj wants the color to be inputted at the prompt and the color which he assigns for e.g. 1 i.e. red to selected block entities they should transform their color to red...

This is my interpretation of the matter posted by Raj....

[raj]

i would like to ask my user for a colour and then change the color

[NHM]

But you did not reply to the question asked earlier.... whether your blocks whose color transformation you intend to do are assigned BYBLOCK or some other color... This is some necessary inputs required from your end for me to enable me to write a code accordingly

[raj]

they are assigned by block
my need : i have a bolt and for different size i need different colors to b added as per the users input of size so they can be sorted
can u please addon some comment to the code for my understanding

[alanjt]

So each size has a defined color? If so, you need to have a list of sizes with corresponding color.

[raj]

ya ur right