Topic: If then statements

[MSTG007]

I am trying to understand how to write a simple if then that statement.

What I am trying to do is if a path under template settings / Default Template File Name for QNEW has a "C:\*" then run command 1, if it does not have "C:\*" do nothing.

Can anything like this be done? thanks

[huiz]

I use things like this to configure a new AutoCAD:

Code: [Select]

(vl-load-com)
(setq *files* (vla-get-files (vla-get-preferences (vlax-get-acad-object))))

(setq CurrentSupportPaths (vla-get-SupportPath *files*))
(if (not (vl-string-search "H:\\Application Data\\" CurrentSupportPaths)) (vla-put-SupportPath *files* (strcat "H:\\Application Data\\" ";" CurrentSupportPaths)))

(vla-put-TemplateDwgPath *files* "H:\\Application Data\\Template\\")


I assume you can ignore the last line if you don't want to set it, but do something like:

Code: [Select]

(setq CurrentTemplatePath (vla-get-TemplateDwgPath *files*))
(if ((vl-string-search "C:\\" CurrentTemplatePath)) ( ... do something ... )



[Dommy2Hotty]

I am trying to understand how to write a simple if then that statement.

AfraLISP has excellent tutorials for LISP:
http://www.afralisp.net/autolisp/tutorials/conditionals.php

(If) is probably the most important and widely use condition statement.
Unlike other languages though, you can match only one (if) statement with a then statement. The syntax is as follows :

(if xyz
   (then do this)
   (else do this)
)

[MSTG007]

To a degree, that is what I am kinda trying to figure out. So I see this portion that finds the keyword. But I need it to run a lisp routine if that loads custom (Ribbons, Tool Palettes, etc.) loaded.

Am I heading the right direction with this?

Code: [Select]

(vl-load-com)

;If this exists in this path
(setq CurrentTemplatePath (vla-get-TemplateDwgPath *files*))
(if ((vl-string-search "C:\\" CurrentTemplatePath))

;then do load routine

(defun c:Setup_menus()
  (load (findfile ".\\Library\\Setup_menus\\Setup_menus.lsp")))
(C:Setup_menus)
(princ)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq *files* (vla-get-files (vla-get-preferences (vlax-get-acad-object))))

(setq CurrentSupportPaths (vla-get-SupportPath *files*))
(if (not (vl-string-search "H:\\Application Data\\" CurrentSupportPaths)) (vla-put-SupportPath *files* (strcat "H:\\Application Data\\" ";" CurrentSupportPaths)))

(vla-put-TemplateDwgPath *files* "H:\\Application Data\\Template\\")


Honestly, it would be nice if I could set this up where once the user clicks the icon shortcut it runs this code above.

[huiz]

I think this does it:

Code: [Select]


(if (vl-string-search "C:\\" CurrentTemplatePath) setup_menus)



[MSTG007]

Bare with me, Im trying to simplify this... lol

Code: [Select]

(vl-load-com)

(defun c:Setup_menus()
(Alert "Still Stock and Needs to be Changed.")
(princ)


(if (vl-string-search "C:\\" CurrentTemplatePath) setup_menus)


With this:

Code: [Select]

(if (vl-string-search "C:\\" CurrentTemplatePath) setup_menus)
Error:

Code: [Select]

Command: (if (vl-string-search "C:\\" CurrentTemplatePath) setup_menus)
; error: bad argument type: (or stringp symbolp): nil
ideas?

[ronjonp]

Answer HERE too for qnew path. If you want the support paths, you can also use: (getenv "PATH")

[MSTG007]

Thank you Ron for this.

Code: [Select]

(if (and (setq tmp (getenv "LastTemplate")) (wcmatch (strcase tmp) "C:\USERS\*"))
  (code)
)
Below is a sample lisp I want it to run if the "C:\USERS\*" exist.
Setup_menu.lsp

Code: [Select]

(defun c:Setup_menus ()
(setvar "Expert" 0)
(ALERT "Setting Up Menus.")
(princ)
); defun

Code: [Select]

(if (and (setq tmp (getenv "LastTemplate")) (wcmatch (strcase tmp) "C:\USERS\*"))(C:Setup_menus))
Right now, When I run the above it says it works. but I do not see the Alert box popping up.

And if it does not exist, it will do nothing.

[ronjonp]

Try ( double backslashes added to users path ):

Code - Auto/Visual Lisp: [Select]

1. (if (and (setq tmp (getenv "LastTemplate")) (wcmatch (strcase tmp) "C:\\USERS*"))(C:Setup_menus))

[JohnK]

...

Code - Auto/Visual Lisp: [Select]

1. (if (and (setq tmp (getenv "LastTemplate")) (wcmatch (strcase tmp) "C:\\USERS*"))(C:Setup_menus))

That syntax still irks me.

When you are relying upon a return to signal a specific reaction or setting a variable it's "better" to use COND.

Code - Auto/Visual Lisp: [Select]

1. (cond (expr) (iffalse))

For example, in ronjonp's code above a variable is created, converted, tested, and wrapped in a boole (to comply with IFs requirements). It would be easier in that situation to use COND and return either the results of "expr" or "nil" to set the variable. Like this:

Code - Auto/Visual Lisp: [Select]

1. (set var (cond (expr) (iffalse)))

In the case of the OPs needs, a COND will also "better" serve you by offering you something easier to maintain (add conditions to) and easier to read. COND will return "nil" if everything fails.

Code - Auto/Visual Lisp: [Select]

1. (cond
2.    (expr)
3.    (expr)
4.    ;| ... |;
5.    )
6. )

[MSTG007]

Could you show me what that would look like converting Ron’s to this Cond format please?

[JohnK]

Could you show me what that would look like converting Ron’s to this Cond format please?

Code - Auto/Visual Lisp: [Select]

1. (cond
2.   ((wcmatch (strcase (getenv "LastTemplate")) "C:\\USERS*")
3.    (C:Setup_menus)) )

[JohnK]

BTW, I should mention that ANY autolisp code I have not pulled from my archives and reposted should be considered highly suspect; I have not written any Autolisp code in many years. It was my job for many years to (re)write code for a company (it was my only job for many years to just program; I went through 1000's of lines of code from other programmers and streamlined/fixed and wrote new/better) but I would still not trust anything I write new without testing it yourself first.

[ronjonp]

The only reason I set a variable is to check that (getenv "LastTemplate") actually returns something ( don't know why it ever would not but... ) otherwise STRCASE will $h!+ the bed .


I guess you could write it like this too not setting any variables.

Code - Auto/Visual Lisp: [Select]

1. (and (= 'str (type (getenv "LastTemplate")))
2.      (wcmatch (strcase (getenv "LastTemplate")) "C:\\USERS*")
3.      (c:setup_menus)
4. )

[MSTG007]

Ok guys. This is where I am at.

Code: [Select]

(defun c:Setup_menus ()
(setvar "Expert" 0)
(ALERT "Setting Up Menus.")
(princ)
); defun

;;does not work;;(cond ((wcmatch (strcase (getenv "LastTemplate")) "C:\\USERS\\*")(C:Setup_menus)) )

;;works;;;;;(if (and (setq tmp (getenv "LastTemplate")) (wcmatch (strcase tmp) "\\\\NetworkName*"))(C:Setup_menus))

;;works;;;;;(cond ((wcmatch (strcase (getenv "LastTemplate")) "\\\\NetworkName*")(C:Setup_menus)) )

;;does not work;;(and (= 'str (type (getenv "LastTemplate")))(wcmatch (strcase (getenv "LastTemplate")) "C:\\USERS*")(c:Setup_menus)(Setup_menus) )


I have a Icon Shortcut with the following switch:

Code: [Select]

/b "C:\Test\Startup.scr"

Code: [Select]

(if (and (setq tmp (getenv "LastTemplate")) (wcmatch (strcase tmp) "C:\\USERS\\*"))(ALERT "Setting Up Menus."))"
If I run this from the desktop shortcut I can not get it to work. But if I drag it into CAD Model it works.

Code: [Select]

(if (and (setq tmp (getenv "LastTemplate")) (wcmatch (strcase tmp) "C:\\\\USERS\\\\*"))(ALERT "Setting Up Menus."))"
If I run this from the desktop shortcut, it works, but if I drag it in; it does not.

Weird stuff. lol