Continue code after while-loop

jonas_eek_erikson — Mon, 24 Jun 2024 06:37:22 GMT

I have the following code where after creating a new layer, I loop a function where the user selects an object that get a boundingbox and some property-changes.

What I would like after the user is done selecting objects, is to execute two commands . But when pressing spacebar I get an error message "error: bad argument type: lentityp nil".

(defun C:REVN ( / ss blockID point1 point2 newRevLayer rev rRev obj *error*)

(vl-load-com)

(setq ss (ssget "_X" '((2 . "BL-H-H1"))))

(setq blockID (ssname ss 0))

(setq rRev (getpropertyvalue blockID "REV"))

(setq rev (vl-string-trim " " rRev))

(setq newRevLayer (strcat "REVMARK"rev))

(command "._layer" "_make" newRevLayer "_color" 7 "" "")

(while

(setq obj (vlax-ename->vla-object (car (entsel))))

(vla-getboundingbox obj 'point1 'point2)

(setq point1 (vlax-safearray->list point1))

(setq point2 (vlax-safearray->list point2))

(setq point1 (list (car point1) (cadr point1)))

(setq point2 (list (car point2) (cadr point2)))

(command "._rectang" point1 point2 "")

(command "._pedit" "_last" "w" 2 "")

(command "chprop" "_last" "" "c" 50 "tr" 40 "")

)

(command "._IsdInsertn" "IN-RIVNING")

(while (> (getvar 'CmdActive) 0) (command pause))

(command "._layer" "_set" 0 "")

)

Re: Continue code after while-loop

paullimapa — Mon, 24 Jun 2024 07:24:07 GMT

The error occurs when you press space bar and there is no entity selected but your code still wants to process as there is

(setq obj (vlax-ename->vla-object (car (entsel))))

so perhaps separate it like this

(while (setq en (entsel)) (setq obj (vlax-ename->vla-object (car en)))

Re: Continue code after while-loop

jonas_eek_erikson — Mon, 24 Jun 2024 10:37:32 GMT

Thank you Paul!

Re: Continue code after while-loop

paullimapa — Tue, 25 Jun 2024 14:14:44 GMT

You are welcome…cheers!!!

topic Re: Continue code after while-loop in Visual LISP, AutoLISP and General Customization Forum

Continue code after while-loop

Re: Continue code after while-loop

Re: Continue code after while-loop

Re: Continue code after while-loop