Dashed and Dot to Hidden

[paulof]

Hi guys,
Could someone tell me, if it's possible (with a lisp code) to change Dot and Dashed linetype to Hidden?
Thanks,

[rkmcswain]

Do you want to change the linetype of layers or of entities or of both?

[paulof]

Do you want to change the linetype of layers or of entities or of both?

Some drawings have layers with other linetypes and have objects too. I think the best solution would be to change the layers, or the objects, so that there would be just the sort of hidden linetype.

[tedg]

Some drawings have layers with other linetypes and have objects too. I think the best solution would be to change the layers, or the objects, so that there would be just the sort of hidden linetype.

Well here's a quick, crude stab at what a routine may look like.

(defun c:hidlt ()
    (command "-layer" "ltype" "hidden" "test" "") ;; changes the linetype to hidden on "test" layer
    (command "_chprop" "all" "" "ltype" "bylayer" "") ;;changes all entites' linetype to ByLayer
(princ)    
)

There's probably a better way, but it's a start.
Good luck...

[paulof]

Ok. I dont want to change entities to Bylayer, only change all entities of drawing to specific Layer and keep linetypes. Only Dot and Dashed must change to Hidden.
Thanks.

[_gile]

Hi,

Try this:

(vl_load_com)
(vlax-for blk (vla-get-Blocks
		(vla-get-ActiveDocument (vlax-get-acad-object))
	      )
  (vlax-for obj	blk
    (if	(and (vlax-property-available-p obj 'LineType T)
	     (member (vla-get-Linetype obj) '("DOT" "DASHED"))
	)
      (vla-put-lineType obj "HIDDEN")
    )
  )
)

[paulof]

Thanks for your help!
But it returns error:
"no function definition: VLAX-GET-ACAD-OBJECT; error: An
error has occurred inside the *error* functionAutoCAD variable setting
rejected: "blipmode" nil"

[_gile]

Sorry,

no function definition: VLAX-GET-ACAD-OBJECT

You got this message because I forgot to add a (vl-load-com) at the begining.
This expression is needed to load the vlax functions. You can add it to your startup suite so that the vlax functions should be automaticaly loaded.

; error: An
error has occurred inside the *error* functionAutoCAD variable setting
rejected: "blipmode" nil

This message means that the *error* function haven't be reset to the built in one in another routine which redefine it (restting blipmode sysvar).