Change Linetype Scale LISP

[Maccabee1]

Hi,

I am looking for a LISP routine to look for all Polylines on a layer and change the Linetype Scale from 0.0003 to 0.0006. I know that this is easy enough to do using QSELECT but I have to do this regularly so if it could be done in a LISP it would save me a lot of time.
I have tried putting together my own code below which deletes the 0.0003 linetype scales but instead of deleting the lines I would like it to change them to 0.0006. My code might be going down the completely wrong route but I thought I would give it a go before asking!

(defun c:test (/ ss i sn l) (vl-load-com)
 (if (setq ss (ssget "X" '((410 . "Model")(48 . 0.0003)(0 . "LWPOLYLINE")(8 . "0"))))
 (repeat (setq i (sslength ss))
 (setq sn (ssname ss (setq i (1- i))))
 (entdel sn)
 )
 )
      (vl-load-com)
      (setq doc (vla-get-ActiveDocument
      (vlax-get-acad-object)))
      (princ)
      )

[rkmcswain]

Something like this should do it. No error checking of course.

(defun c:foo (/ ss i sn obj)
  (vl-load-com)
  (if (setq ss (ssget "X" '((410 . "Model")(48 . 0.0003)(0 . "LWPOLYLINE")(8 . "0"))))
    (repeat (setq i (sslength ss))
      (setq sn (ssname ss (setq i (1- i))))
      (setq obj (vlax-ename->vla-object sn))
      (vla-put-LinetypeScale obj 0.0006)
    )
  )
 (princ)
)

[Maccabee1]

Something like this should do it. No error checking of course.

(defun c:foo (/ ss i sn obj)
  (vl-load-com)
  (if (setq ss (ssget "X" '((410 . "Model")(48 . 0.0003)(0 . "LWPOLYLINE")(8 . "0"))))
    (repeat (setq i (sslength ss))
      (setq sn (ssname ss (setq i (1- i))))
      (setq obj (vlax-ename->vla-object sn))
      (vla-put-LinetypeScale obj 0.0006)
    )
  )
 (princ)
)

Thats perfect, thank you!

[perbot]

Hi,
how the code will looks like, if i want to change linetype scale just for selected objects?

[Tom Beauford]

Hi,
how the code will looks like, if i want to change linetype scale just for selected objects?

Replacing

(ssget "X" '((410 . "Model")(48 . 0.0003)(0 . "LWPOLYLINE")(8 . "0")))

with

(ssget)

should work.

[rkmcswain]

Remove the "X" option from the (ssget) function.

The "X" tells the function to not allow the user to choose, and simply select all objects (subject to any filtering).

There is a full list of options here.

[perbot]

Works great, thank you guys!