topic Re: 3 COND statement in Visual LISP, AutoLISP and General Customization Forum

3 COND statement

Anonymous — Fri, 15 Sep 2017 11:51:02 GMT

Good day every one!!!..

I need some help in some COND statement....

I have 3 COND statement to grab the project number from the path of the Dwg at the time I need to plot...

the first 2 work OK, but the third is the one I can't make it work ....

If the user change the project number I need to set the FLAG = "!ALERT"

where is my error? please help...

(defun ProjectNumber ()
(setq SplitDwgPrefix (splitdirs (getvar "dwgprefix"))) ; ("U:" "100000" "elec")
(setq GetDrive (nth 0 SplitDwgPrefix)) ; "U:"
(setq DWG_PATH (getvar "dwgprefix")) ; get the path of the files => "U:/100000/elec/"
(setq user_name (getvar "loginname"))
(setq PNumber (nth 1 SplitDwgPrefix)) ; "\\100000\\"

(set_tile "jobnumber" PNumber)
(setq PNumber0 (get_tile "jobnumber"))

(cond
; If is Drive "U" and Project Number is not changed manually
( (and (= GetDrive "U:") (= PNumber0 PNumber)
(setq jobnumber PNumber)
(setq Flag "---")
(alert (strcat jobnumber " Cond1"))
)
)

; If Project number is NIL and is not in drive "U"
( (/= GetDrive "U:")
(progn
(ProjectNumberDCL "Please... Enter Project Number... " " * Project Number *" "0000.00")
(setq jobnumber PrjNumber)
(setq Flag "!ALERT")
(alert (strcat jobnumber " Cond2")) ; for testing only
)

)

; if the Project Number is changed manually --- IS NOT WORKING.!!
( (/= PNumber PNumber0)
(progn
(setq PNumber1 (get_tile "jobnumber"))
(setq jobnumber PNumber1)
(setq Flag "!ALERT")
(alert (strcat jobnumber " Cond3")) ; for testing only
)

)
) ; cond
jobnumber
) ; defun

at the OK button I have this.....to re-check the project number

(action_tile "accept" "(mplt_chkl)(projectNumber)(mplt_Info)")
(action_tile "cancel" "(done_dialog)")

at the DCL file that section is .....

: boxed_column {
fixed_width = true;
fixed_height = true;
label = "Job Number:";
: edit_box {
key = "jobnumber";
width = 12;
height = 1;
}
spacer;
}

Re: 3 COND statement

dbroad — Fri, 15 Sep 2017 12:31:41 GMT

Even though it's well commented, I haven't got the big picture. That said, in your second case, your comment says that the project number is nil but there is no test for that condition.

 ; If Project number is NIL and is not in drive "U"
      (  (/= GetDrive "U:")

Your last check merely checks to see if the project number has been changed manually. I'm not sure how the test justifies that assumption.

 ; if the Project Number is changed manually                  --- IS NOT WORKING.!!
     (  (/= PNumber PNumber0)

In general a cond statement should always end with a default case (in your case a 4th case) where any assumptions made that might be false give feedback of an exceptional case.

Re: 3 COND statement

Anonymous — Fri, 15 Sep 2017 12:49:21 GMT

thank you dbroad for you imput...

at the beginning of the "defun ProjectNumber", In the

(setq PNumber (nth 1 SplitDwgPrefix)) ; "\\100000\\" I get the number from the path and then

(setq PNumber0 (get_tile "jobnumber")) ; I get the number from the "edit_box" if the user change the original number PNumber

I believe both of them are strings.

in the 3rd COND, I compared those 2 statements to see if they are not equal...

(/= PNumber PNumber0)

thanks...

Re: 3 COND statement

dbroad — Fri, 15 Sep 2017 13:09:48 GMT

If the drawing hasn't been saved, the dwgprefix could be anything and splitdwgprefix could be returning something other than what is assumed. Thorough testing of splitdwgprefix for unexpected cases is merited.

If the person hadn't entered anything for the job number, I wouldn't say that it had been changed manually. Does your lisp pre populate the job number field?

You still need a 4th condition for debugging purposes.

Re: 3 COND statement

Anonymous — Fri, 15 Sep 2017 13:24:36 GMT

my comments between the lines...

If the drawing hasn't been saved, the dwgprefix could be anything and splitdwgprefix could be returning something other than what is assumed. Thorough testing of Thorough testing of splitdwgprefix for unexpected cases is merited. .... ;;;>>>> that where COND2 take place and is working OK. getting everything Outside of drive "U:\"

If the person hadn't entered anything for the job number, I wouldn't say that it had been changed manually. Does your lisp pre populate the job number field?

Does your lisp pre populate the job number field? .... ;;;>Yes it is pre-populated and is working OK.

You still need a 4th condition for debugging purposes. ... .... ;;;> I added the (T)

Re: 3 COND statement

dbroad — Fri, 15 Sep 2017 13:49:40 GMT

Why do you need to use (setq PNumber1 (get_tile "jobnumber")) if you just tested it and already know what it's value is. You just used PNumber0 for comparison purposes. Just use it. I don't know what is not working though. What does it actually do?

Re: 3 COND statement

Anonymous — Fri, 15 Sep 2017 15:47:07 GMT

Please, can you or somebody else just take the code, modify and show me, where is my mistake...?

Thank you for your help..

Re: 3 COND statement

dbroad — Fri, 15 Sep 2017 16:36:05 GMT

I don't see how anyone could "fix" such incomplete code. Here is your code gutted of dialog calls and external routines. Cond3 works fine as far as I can tell.

(defun ProjectNumber (/ DWG_PATH FLAG GETDRIVE JOBNUMBER PNUMBER PNUMBER0 PNUMBER1 PRJNUMBER SPLITDWGPREFIX USER_NAME)
  (setq SplitDwgPrefix  '("U:" "100000" "elec"))
  (setq GetDrive "U:")
  (setq DWG_PATH "U:/100000/elec/")
  (setq user_name "Bob")
  (setq PNumber "\\100000\\")
  (setq PNumber0"\\100001\\")
   (cond
					; If is Drive "U" and Project Number is not changed manually
    ((and (= GetDrive "U:")
	  (= PNumber0 PNumber)
	  (setq jobnumber PNumber)
	  (setq Flag "---")
	  (alert (strcat jobnumber " Cond1"))
     )
    )

					; If Project number is NIL and is not in drive "U"
    ((/= GetDrive "U:")
     (progn
       (setq jobnumber PrjNumber)
       (setq Flag "!ALERT")
       (alert (strcat jobnumber " Cond2")) ; for testing only
     )

    )

					; if the Project Number is changed manually                  --- IS NOT WORKING.!!
    ((/= PNumber PNumber0)
     (progn
       (setq PNumber1 PNumber0)
       (setq jobnumber PNumber1)
       (setq Flag "!ALERT")
       (alert (strcat jobnumber " Cond3")) ; for testing only 
     )

    )
  )					; cond
  jobnumber
)					; defun

Re: 3 COND statement

Anonymous — Fri, 15 Sep 2017 16:44:52 GMT

thanks, I will check it.

Re: 3 COND statement

roland.r71 — Mon, 18 Sep 2017 10:00:47 GMT

@Anonymous wrote:
Good day every one!!!..

I need some help in some COND statement....

I have 3 COND statement to grab the project number from the path of the Dwg at the time I need to plot...
the first 2 work OK, but the third is the one I can't make it work ....
If the user change the project number I need to set the FLAG = "!ALERT"

where is my error? please help...

---snip

(cond
; If is Drive "U" and Project Number is not changed manually
( (and (= GetDrive "U:") (= PNumber0 PNumber)
(setq jobnumber PNumber)
(setq Flag "---")
(alert (strcat jobnumber " Cond1"))
)
)

---snip

If this is the original code, the first one is not ok.

The only reason you don't get an error and it apears to work is because they all return T(rue) for the AND statement.

The correct way would be:

((and (= GetDrive "U:")(= PNumber0 PNumber))

   (setq jobnumber PNumber)
   (setq Flag "---")
   (alert (strcat jobnumber " Cond1"))

)

p.s.: You don't need (progn inside a (cond

Re: 3 COND statement

roland.r71 — Wed, 20 Sep 2017 09:18:38 GMT

Your problem is not with the 3 conds, the "problem" is, the 3rd cond is never true, because YOU MAKE IT SO at the beginning:

(setq PNumber (nth 1 SplitDwgPrefix))                          ; "\\100000\\"
(set_tile "jobnumber" PNumber)
(setq PNumber0 (get_tile "jobnumber"))

Here, you first retrieve the PNumber var. ("\\100000\\")

Then you set "jobnumber" tile to PNumber var value. ("\\100000\\")

Then you read the "jobnumber" tile into PNumber0 var. (so, again: "\\100000\\")

Then, at cond 3 you get:

(/= PNumber PNumber0)

Well, that's like saying:

(/= "\\100000\\" "\\100000\\") - which is never going to be True.

Re: 3 COND statement

roland.r71 — Wed, 20 Sep 2017 16:48:32 GMT

(defun ProjectNumber ()
   (setq SplitDwgPrefix (splitdirs (getvar "dwgprefix")))      ; ("U:" "100000" "elec")
   (setq GetDrive (nth 0 SplitDwgPrefix))                           ; "U:"
   (setq DWG_PATH (getvar "dwgprefix"))                         ; get the path of the files => "U:/100000/elec/"
   (setq user_name (getvar "loginname"))
   (setq PNumber (nth 1 SplitDwgPrefix))                          ; "\\100000\\"

   (set_tile "jobnumber" PNumber)
   (setq PNumber0 (get_tile "jobnumber"))


  (cond

The red lines should NOT be inside this function (which you call when user hits the "OK" button)

But BEFORE you test for user input (& the (set_tile ...) should of course be placed AFTER you create the dialog.)

Re: 3 COND statement

roland.r71 — Wed, 20 Sep 2017 16:57:58 GMT

In fact, currently the user can not set it manually, even if he wanted to.

As soon as he hits "OK", whatever he typed into that "tile" get's overwritten by the project number derived from the files path.

Something you should notice during testing. (ok, it might be in a bit of a fast flash )

Re: 3 COND statement

john.uhden — Thu, 21 Sep 2017 01:42:56 GMT

Of course the (alert ...) is within the (and ...), and since alert always returns nil, then the (and ...) will return nil.

And it seems that Pnumber is always made = Pnumber0.

It's a wonder that any of the conditions is met.

Re: 3 COND statement

Anonymous — Fri, 22 Sep 2017 01:20:53 GMT

thank you all... dbroad, roland.r71 and john.uhden.

I did follow and made some changes to the dbroad suggestion and it work....

thank a lot guys....