CAD Software Forum

Posted: **Sun Sep 13, 2020 8:52 am**

Hi,

Sorry I misunderstood your reply.

The error message 'File Not Found' is displayed.
Note: the file does exist and is in a folder in the search/support path.

I will copy the file to additional folders in the search paths to check.

S.

Posted: **Mon Sep 14, 2020 10:17 am**

just to confirm:

I will copy the file to additional folders in the search paths to check.

I have copied the dim files to a number of locations (6) in the search paths and the file is still reported as not found.

S.

Posted: **Mon Sep 14, 2020 9:33 pm**

Display file_name to sure it's the correct name.

Code: Select all

(defun OPEN_DIM_FILE ()
 (PRINC FNAME)
...

 ) ;end OPEN_DIM_FILE

Posted: **Tue Sep 15, 2020 1:41 am**

With your help I have found the problem.

It was my error!
In all of the locations (sample):

Code: Select all

	(setq sch "sch_10")

I should have entered:

Code: Select all

	(setq sch "sch_10_")

Just the small '_' caused ALL of my searching.
Hence the file was not found.
S.

Posted: **Thu Sep 17, 2020 7:19 am**

The basic functionality is now there and working.

However I am now looking to refine some areas.
When the user selects radio button RB31 I want to only turn on the next level or radio buttons (L5_ON)
if the local variable flg is set to wn_
Here is where flg is set to wn_

Code: Select all

	(defun RB11_FLAG ()
	(setq flg "wn_")					;store flange type
	);end rb11_flag

.

And here is the original code for RB_31

Code: Select all

(action_tile "rb31"				 	;toggle #150 option
	"(L5_ON)(RB31_FLAG)"				;"(SET_WLRE90_IMAGE)"
	); END ACTION TILE

.

This is what I have tried, but it does not work!

Code: Select all

	(action_tile "rb31"			;toggle #150 option
	(if 
		(= flg wn_)			;if variable weldneck flange selected do this 
		(progn
		(L5_ON)
		(RB31_FLAG)
		);end progn
;---------------------------;			;otherwise  if ANY of bl/so/scr/sl are set do this
      (progn
		(setq newtile $key)
		(RB31_FLAG)
		(F_NAME)
		(READ_DIM_FILE)
		)
	) ;_ end of if	
	); END ACTION TILE

.
Having selected RB11 (Weldneck Flanges)
When I select RB31 none of the radio buttons in L5 turn on??

Any hints at where I'm going wrong?
S.

Posted: **Sat Sep 19, 2020 2:45 am**

Now resolved:

Code: Select all

(action_tile "rb31"			;toggle #150 option
	"(if 
		(= flg \"wn_\")			;if variable weldneck flange selected do this 
		(progn
		(L5_ON)
		(RB31_FLAG)
		);end progn
;---------------------------;			;otherwise  if ANY of bl/so/scr/sl are set do this
      (progn
		(setq newtile $key)
		(RB31_FLAG)
		(F_NAME)
		(READ_DIM_FILE)
		)
	)" ;_ end of if	
	); END ACTION TILE

.

S.

CAD Software Forum

Radio Button Cluster Tile

Re: Radio Button Cluster Tile

Re: Radio Button Cluster Tile

Re: Radio Button Cluster Tile

Re: Radio Button Cluster Tile

Re: Radio Button Cluster Tile

Re: Radio Button Cluster Tile