topic Set layer at end of lisp in Visual LISP, AutoLISP and General Customization Forum

Set layer at end of lisp

bemmer7MZ3G — Fri, 09 Aug 2024 18:01:57 GMT

I have this lisp file that when I specify a maximum distance and select two points, it will print points divided on a layer called "Rivet Hole". One thing I was trying to do was get the program when it finishes to set the layer to a different layer called "Text", but I am having some trouble figuring out how to do that.

Re: Set layer at end of lisp

ec-cad — Fri, 09 Aug 2024 18:19:20 GMT

You could 'save' the existing current layer.. e.g.

(setq olay (getvar 'clayer))

Then reset it on exit .. e.g.

(setvar 'clayer olay)

For your request to set to Layer "Text" on exit, try following.

(defun C:DDP (/ cc1 cc2 range spcs spc) ; = DIVide Distance [not object] using Points, at user-specified Maximum spacing (command "-layer" "s" "Rivet Hole" "") (initget (if *DIVDPmax* 6 7)); no zero, no negative, no Enter on first use (setq *DIVDPmax* ; global variable with routine-specific name (cond ( (getdist ; returns nil on Enter when permitted (strcat "\nMaximum Point spacing" (if *DIVDPmax* (strcat " <" (rtos *DIVDPmax*) ">") "") ": " ); strcat ); getdist ); User-input condition (*DIVDPmax*); prior value if present, on Enter ); cond & *DIVDPmax* p1 (getpoint "\nOne end of range: ") p2 (getpoint "\nOther end: ") range (distance p1 p2) spcs (+ (fix (/ range *DIVDPmax*)) (if (equal (rem range *DIVDPmax*) 0 1e-4) 0 1)) spc (/ range spcs) ); setq (setvar 'lastpoint p1); kind of interesting that that's allowed... (repeat (1- spcs) (command "_.point" "_none" (polar (getvar 'lastpoint) (angle p1 p2) spc)) ); repeat ;; Add the next 2 lines (command "_.layer" "_M" "TEXT" ""); Case no Layer Text exists (nil if exists) (command "_.layer" "_S" "TEXT" ""); Set to Layer Text ); defun

ECCAD

Re: Set layer at end of lisp

Kent1Cooper — Fri, 09 Aug 2024 20:18:17 GMT

[Line 30 is extraneous. The Make option makes the Layer current in the process, so there no need for the Set option after Making it.]

Re: Set layer at end of lisp

ec-cad — Fri, 09 Aug 2024 20:28:31 GMT

Well, I know that, but it may be more 'clear' what's happening with (2) calls.

Geez