Issues with Storing/Retrieving FILLETRAD

[sublimation]

I can't figure out why the setvar and getvar work when I preselect my entities but not when I select them individually.  When I select the lines manually, my code extends the lines but with the original radius.

 

; EXTENDS 2 LINES TO COMMON POINT
(defun C:ETP (/ xFillRad xArrEnt xCMD)
	(setq xCMD (getvar "CMDECHO"))
	(setvar "CMDECHO" 0)
	(setq xFillRad (getvar "FILLETRAD"))
	(setvar "FILLETRAD" 0.0)
  	(IF (NOT (setq xArrEnt (SSGET "_I")))
		(COMMAND "FILLET" "T" "T")
		(COMMAND "FILLET" "T" "T" (ssname xArrEnt 0) (ssname xArrEnt 1))
		)
	(setvar "FILLETRAD" xFillRad)
	(setvar "CMDECHO" xCMD)
	(princ)
	)

 

[Roy_043]

When the _Fillet comand prompts you to select entities, the code has completely finished, and therefore the variables have already been reset.

Try changing:

(COMMAND "FILLET" "T" "T")

To:

(COMMAND "FILLET" "T" "T" pause pause)

You should also verify if the cmdecho should actually be ON for that part of the code.

[sublimation]

Dude!  That solved it and totally makes sense!  Thank you very much!

[tombu]

With Shift key pressed while selecting the second segment with the FILLET command 0 radius will always be used no matter what FILLETRAD is set to.  Easy peasy.

[sublimation]

2 hours ago, tombu said:

With Shift key pressed while selecting the second segment with the FILLET command 0 radius will always be used no matter what FILLETRAD is set to.  Easy peasy.

Handy tip! Thanks!