Topic: Not thinking clearly here with COND statement...

[jlogan02]

I check for the subjectcode value "03". If the value isn't a match, do the first set of commands. If the value is a match do the second set of commands.

Code - Auto/Visual Lisp: [Select]

1. (setq ss (ssget "x" '((0 . "INSERT") (2 . "TBLK_ATT_CTL") (66 . 1))))
2.   (setq attvalue (LM:GetAttributeValue (ssname ss 0) "SUBJECTCODE"))
3.  
4.   (cond
5.    ((wcmatch (strcase attvalue)
6.               "03"
7.    
8.      (command "clayout" "Model")
9.      (command "-layer" "unlock" "TTBK_BORD_LINES" "")
10.      (command "erase" "all" "")
11.      (command "_.-purge" "_D" "decimal,fraction" "N")
12.      (command "-layer" "lock" "TTBK_BORD_LINES" "")
13.      (command "Zoom" "all")
14.      (command "_.-insert" "STA_STR_STANDARDS" "0,0" dim dim "0")
15.      (command "Clayout" "ANSI-D 22x34")
16.      (command "-layer" "filter" "s" "All" "")
17.   )
18.    )
19.   ((wcmatch (strcase attvalue)
20.               "03"
21.    
22.      (command "clayout" "ANSI-D 22x34")
23.      (command "-layer" "unlock" "TTBK_BORD_LINES" "")
24.      (command "erase" "all" "")
25.      (command "_.-purge" "_D" "Annotative,DIMEN" "N")
26.      (command "-layer" "lock" "TTBK_BORD_LINES" "")
27.      (command "Zoom" "all")
28.      (command "Clayout" "MODEL")
29.    )
30.   )
31.   )

I used this as my guide http://www.theswamp.org/index.php?topic=13046.msg158557#msg158557.

Code - Auto/Visual Lisp: [Select]

1. (cond
2.   ((= 1 0)
3.     none of this will get executed
4.     because the conditions is false
5.   ) ; end cond 1
6.  
7.   ((= 1 1)
8.      do all of this because it is true
9.      and this
10.      and this
11.    ) ; end cond 2
12.  
13.    ((= 2 2)
14.      none of this will get
15.      executed even if it is true
16.      because the prior stmt was true
17.    ) ; end cond 3
18.  
19.    (T
20.      This is often placed at the last position
21.      in a condition statement and will be executed
22.      if all the prior conditions are false
23.      if any one of the above conditions are true
24.       this will not be executed
25.    ) ; end cond 4
26. ) ; end cond stmt

Which means I'm not understanding something. If my value is 03, the first set of commands would run. If the value is 20, the first set of commands doesn't run and Moves on to cond 2 and runs.

What I have is a title block in both paper space and model space for two different disciplines. The user fills out a card in a 3rd party program where the subject code gets generated and filled out in both the MS and the PS title blocks. Upon start-up I want this code to check for subject code and eliminate the title block that doesn't match the subject code for the corresponding space. The example above, "03" subject code is for a PS title block. Subject Code 20 would be for a MS title block. Mind you, there are probably 50 various subject codes between the two disciplines.

I haven't provided Lee Mac's LM:GetAttributeValue routine that is part of the attvalue variable.

[Lee Mac]

A few things straight off the bat -

1. Your test expressions are each missing a closing parenthesis for the wcmatch expression:

Code - Auto/Visual Lisp: [Select]

1. (wcmatch (strcase attvalue) "03"

2. Both of your test expressions are the same, and so the second condition will never be executed (as, if the test expression is validated, cond will stop evaluation at the first condition; if the test expression is not validated, neither conditions will be evaluated).

3. If "03" is within the string being tested, you may need to add wildcard operators [e.g. (wcmatch (strcase attvalue) "*03*")], otherwise, if you're testing for an exact match, I feel that a simple equality operator is more appropriate, e.g. (= (strcase attvalue) "03")

[ronjonp]

Why are you looking for a code? It seems as if you just want to know what's in model or paperspace?

Here's a direct way to select them.

Code - Auto/Visual Lisp: [Select]

1. ;; In modelspace
2. (setq ss (ssget "_x" '((0 . "INSERT") (2 . "TBLK_ATT_CTL") (66 . 1) (410 . "Model"))))
3. ;; In paperspace
4. (setq ss (ssget "_x" '((0 . "INSERT") (2 . "TBLK_ATT_CTL") (66 . 1) (410 . "ANSI-D 22x34"))))

[jlogan02]

A few things straight off the bat -

1. Your test expressions are each missing a closing parenthesis for the wcmatch expression:

Code - Auto/Visual Lisp: [Select]

1. (wcmatch (strcase attvalue) "03"

Thanks for pointing that out.

2. Both of your test expressions are the same, and so the second condition will never be executed (as, if the test expression is validated, cond will stop evaluation at the first condition; if the test expression is not validated, neither conditions will be evaluated).

I think this was the crux of my question. I didn't change the second test expression because I didn't understand if I needed to test for the thing within the cond.

3. If "03" is within the string being tested, you may need to add wildcard operators [e.g. (wcmatch (strcase attvalue) "*03*")], otherwise, if you're testing for an exact match, I feel that a simple equality operator is more appropriate, e.g. (= (strcase attvalue) "03")

It will be an exact match. The list is very specific.

[jlogan02]

Why are you looking for a code? It seems as if you just want to know what's in model or paperspace?

Here's a direct way to select them.

Code - Auto/Visual Lisp: [Select]

1. ;; In modelspace
2. (setq ss (ssget "_x" '((0 . "INSERT") (2 . "TBLK_ATT_CTL") (66 . 1) (410 . "Model"))))
3. ;; In paperspace
4. (setq ss (ssget "_x" '((0 . "INSERT") (2 . "TBLK_ATT_CTL") (66 . 1) (410 . "ANSI-D 22x34"))))

I definitely could have gone farther, if my brain went that far. Thanks for that.

[ronjonp]

You could also check the space within a loop like so:

Code - Auto/Visual Lisp: [Select]

1. (if (setq s (ssget "_X" '((0 . "INSERT") (2 . "TBLK_ATT_CTL") (66 . 1))))
2.   (foreach e (mapcar 'cadr (ssnamex s))
3.     (if (= "Model" (cdr (assoc 410 (entget e))))
4.         ;; Do modelspace stuff
5.         ;; Else do paperspace stuff
6.     )
7.   )
8. )