Linetype Scale

[GLORY]

Hello, 

I need help regarding to change the linetype scale of every line on a certain layer based on its individual length.

Thank you. 

[BIGAL]

Something like this. You will need to edit the values.

 

(defun c:ltsc ( / lay ss obj x len)
(setq lay (cdr (assoc 8 (entget (car (entsel "\pick line for layer"))))))
(setq ss (ssget '((0 . "LINE")(cons 8 lay))))
(repeat (setq x (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
(setq len (vla-get-length obj))
(cond 
((and (> len 0.0001)(<= len 100.0)) (vla-put-LinetypeScale obj 0.9))
((and (> len 100.001)(<= len 200.0)) (vla-put-LinetypeScale obj 1.9))
((and (> len 200.0001)(<= len 300.0)) (vla-put-LinetypeScale obj 2.9))
((and (> len 300.0001)(<= len 400.0)) (vla-put-LinetypeScale obj 3.9))
((and (> len 400.0001)(<= len 500.0)) (vla-put-LinetypeScale obj 4.9))
)
)
(princ)
)

 

[GLORY]

thank you BIGAL for your time.