Help Xline Layer Control

[Temssi.d]

hi'

I have this script,

(defun C:2 (/ dis)
  (setvar 'cmdecho 1)
  ; Create the first Xline
  (command "_.xline" "_ver" pause "")
 
  (while (setq dis (getdist "\nDistance to next Xline: "))
    (command "_.copy" "_last" "" "_non" "@" "_non" (polar (getvar 'lastpoint) 0 dis))
  ); while  

  (prin1)
)

I need to change it so it will create vertical Xlines and Place all Xlines on a designated layer (e.g., "layer1") without permanently altering the current layer setting.

thanks!!!

[komondormrex · Accepted solution]

hi,

like that?

(defun C:2 (/ dis)
  (setvar 'cmdecho 1)
  ; Create the first Xline
  (command "_.xline" "_ver" pause "")
  (vla-put-layer (vlax-ename->vla-object (entlast)) "layer1") ;added. puts 1st xline to existing "layer1"
 
  (while (setq dis (getdist "\nDistance to next Xline: "))
    (command "_.copy" "_last" "" "_non" "@" "_non" (polar (getvar 'lastpoint) 0 dis))
  ); while  

  (prin1)
)

[paullimapa]

May want to check to make sure layer1 exists and if not create it

[Temssi.d]

yep!

thanks 👏😃