Multiple polyline ltscale???

[DC-MWA]

Hi gurus,

I am working on a little lisp that manipulates ltscale of all polylines on a certain layer.

I have the parts that set them all to 1.  I'm trying to set them all to a variable value instead of 1.

(setq dscl_math (/ (atoi lay_name_scale) (getvar "dimscale")));;variable

;;;;this sets to 1, instead of 1 i need to use "dscl_math"

((lambda (/ ss i)
(if (setq ss (ssget "x" (list (cons 0 "LWPOLYLINE") (cons 8 new_layer))))
(repeat (setq i (sslength ss))
(entmod (append (entget (ssname ss (setq i (1- i)))) '((48 . 1.))))
)
)
(princ)
)
)

I'm keep screwing it up??

dc

[DC-MWA]

This needs more explanation...

I need to get the ltscale of each polyline and mutilpy by the variable and then set the ltscale of each polyline to that new value.

I hope that makes sense.

[dlanorh · Accepted solution]

Try this :

(if (setq ss (ssget "x" (list (cons 0 "LWPOLYLINE") (cons 8 new_layer))))
(repeat (setq i (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(vlax-put-property obj 'linetypescale (* (vlax-get-property obj 'linetypescale) your_val))
);end_repeat
);end_if

your_val is the value you want to multiply by as a real number

Oops missed post 2, amended above code

[DC-MWA]

Thank you. That worked perfectly!!!