Assign Lineweight per color not layer

[fcfcadd]

Does anyone have a program that will assign a line weight per each individual color not layer. I need to assign line weights to these colors in a bunch of drawings.

1 - .016
2 - .007
3 - .014
4 - .024
5 - .002
6 - .031
7 - .006
8 - .002

The reason why they need to be assigned is for them to by imported into Revit Structure and for them to show up correctly in revit.

[T.Willey]

See if this does what you want. The numbers I have for lineweights are different than the ones you list, so I couldn't test it, but it should work.

(vl-load-com)
(defun LineweightByColor (Doc LwClrList / )
    
    (vlax-for lo (vla-get-Layouts Doc)
        (vlax-for obj (vla-get-Block lo)
            (if (setq tempList (assoc (vla-get-Color obj) LwClrList))
                (vla-put-Lineweight obj (cdr tempList))
            )
        )
    )
)
(LineweightByColor
    (vla-get-ActiveDocument (vlax-get-Acad-Object))
    (list
        '(1 . 16)
        '(2 . 7)
        '(3 . 14)
        '(4 . 24)
        '(5 . 2)
        '(6 . 31)
        '(7 . 6)
        '(8 . 2)
    )
)

[fcfcadd]

Command: 'VLIDE OOPS: Automation Error. Invalid lineweight valueOOPS:
Automation Error. Invalid lineweight value

[T.Willey]

Change an object to the lineweight within the properties dialog, then run this on it and see what it says as the lineweight.

(vlax-dump-object
    (vlax-ename->vla-object
        (car (entsel "\n Select object to dump properties to the command line: "))
    )
    T
)

[fcfcadd]

Color was pen 2 or yellow and this is what it says that lineweight is.

Lineweight = 18

[T.Willey]

Color was pen 2 or yellow and this is what it says that lineweight is.

Lineweight = 18

So you might have to assign an object to each lineweight, and then use the second code posted to get the number to update the list in the first code. Once you get the numbers you want, just change the second number in the list.

Hope that makes sense.

[fcfcadd]

I'll give it a try. Thanks.

[T.Willey]

I'll give it a try. Thanks.

You're welcome. Let us know if it doesn't work the way you think i should.

[fcfcadd]

(vl-load-com)
(defun LineweightByColor (Doc LwClrList / )
    
    (vlax-for lo (vla-get-Layouts Doc)
        (vlax-for obj (vla-get-Block lo)
            (if (setq tempList (assoc (vla-get-Color obj) LwClrList))
                (vla-put-Lineweight obj (cdr tempList))
            )
        )
    )
)
(LineweightByColor
    (vla-get-ActiveDocument (vlax-get-Acad-Object))
    (list
        '(1 . 40)
        '(2 . 18)
        '(3 . 35)
        '(4 . 60)
        '(5 . 5)
        '(6 . 80)
        '(7 . 15)
        '(8 . 5)

This is what it returns now

OOPS: malformed list on input
_$

Moderator Note:

Please use [ CODE ] tags...

[T.Willey]

You don't finish the list, or the call to the program. You need to add two closing parenthesis, and then it won't be a malformed list anymore.