Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

LISP: If, Not 1

Status
Not open for further replies.
Volk359

Volk359

Technical User
Jun 30, 2004
395
US
Greetings all,

I've created a lisp routine to automatically repath an image that had already been inserted but where the path/filename was incorrect. It works fine but the problem is the image type isn't always the same, i.e. sometimes they are a .TIF and others they are a .CAL.

I included an IF NOT command where if it didn't find filename.CAL then go find filename.TIF. Seems to me I have the syntax correct but apparently not because if it doesn't find the .CAL it just quits. Likewise if I swap the CAL and TIF it will only find the TIF but not the CAL.

Any suggestions?

Thanks,

Keith

Code: 
(setq imagename (getvar "dwgname"))
(setq imagename (substr imagename 1 (- (strlen imageName) 4)))
(setq filename (strcat (getvar "dwgprefix") imagename ".cal"))
(if (not filename)
    (setq filename (strcat (getvar "dwgprefix") filename ".tif"))
)
(command "image" "p" imagename filename)
 
Sort by date Sort by votes
It seems you don't have the routine actually looking if the "filename" exists, you just assign it a string/name, so it would never be 'nil'

Maybe changing one line to the following will do it;

(if (not (findfile filename))
 
Upvote 0 Downvote
OK, that seems to work except it's looking for filename.CAL.TIF. I inserted the line to strip out the last three characters and put the whole thing together properly but I get:

Unknown command "C:\DOCUMENTS AND SETTINGS\me\DESKTOP\filename.cal". Press F1 for help.
nil

Code: 
(setq imagename (getvar "dwgname"))
(setq imagename (substr imagename 1 (- (strlen imageName) 4)))
(setq filename (strcat (getvar "dwgprefix") imagename ".cal"))
(if (not (findfile filename))
    (setq imagename (substr imagename 1 (- (strlen imageName) 4)))
    (setq filename (strcat (getvar "dwgprefix") filename ".tif"))
)
(command "image" "p" imagename filename)
 
Upvote 0 Downvote
I think your "if" got messed up, you wanted 2 statements to occur if not. Slightly different coding:

Code: 
(setq imagename (getvar "dwgname"))
(setq imagename (substr imagename 1 (- (strlen imageName) 4)))
(setq filename (strcat (getvar "dwgprefix") imagename ".cal"))
(if (not (findfile filename))
    (setq filename (strcat (getvar "dwgprefix") imagename ".tif"))
)
(command "image" "p" imagename filename)
 
Upvote 0 Downvote
I see, by swapping IMAGENAME and FILENAME I don't have to strip out the file extension and reassemble it.

Thanks much!!.
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

bsmith374
  • Locked
  • Question
move all autocad object vertices to snap grid point lisp
Replies
0
Views
421
bsmith374
bsmith374
victoriaair
  • Locked
  • Question
Update "DATE" field via lisp routine
Replies
17
Views
1K
victoriaair
victoriaair
CastleFurniture
  • Locked
  • Question
LISP to Remove Bind Prefixes and Merge Resulting Layers
Replies
0
Views
422
CastleFurniture
CastleFurniture
vbcad
  • Locked
  • Question
Create a reactor lisp?
Replies
0
Views
271
vbcad
vbcad
dortega4226
  • Locked
  • Question
Creating LiSP to isolate drawing layers w/ & w/out Xrefs 1
Replies
5
Views
479
dortega4226
dortega4226

Part and Inventory Search

Sponsor

Back
Top