Topic: Solved: Routine acts like it works but doesn't

[jlogan02]

I copied this routine from one that is working. I only needed to change the block name and attvalue. In a test I removed the (princ) to see what returned. It returned the last (setvar "Clayer" Clay) as if it is going all the way through. I ran troubleshooter and it doesn't show anything either.

The block for both routines are located in the same folder and are in the search path.

For some reason the block doesn't get inserted.

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun c:InsLatLong (/ osm ss attvalue dims dimsc Clay)
4.   (defun *error* (msg)
5.     (if osm
6.       (setvar 'osmode osm)
7.     )
8.     (if (not (member msg '("Function cancelled" "quit / exit abort")))
9.       (princ (strcat "\nError: " msg))
10.     )
11.     (princ)
12.   )
13.   (setq osm (getvar 'osmode))
14.   (setvar 'osmode 0)
15.   (setvar 'cmdecho 0)
16.  
17.   ;| "LM:getattributes" Courtesy of Lee Mac |;
18.   (defun lm:getattributevalue (blk tag / val enx)
19.     (while
20.       (and (null val)
21.            (= "ATTRIB"
22.               (cdr (assoc 0 (setq enx (entget (setq blk (entnext blk))))))
23.            )
24.       )
25.       (if (= (strcase tag) (strcase (cdr (assoc 2 enx))))
26.         (setq val (cdr (assoc 1 enx)))
27.       )
28.     )
29.   )
30.  
31.   (setq Clay (getvar "clayer"))
32.   (command "._layer" "Make" "TEXT3" "C" "CYAN" "TEXT3" "")
33.   (setq dimsc (getvar 'dimscale))
34.   (setq ss (ssget "x" '((0 . "INSERT") (2 . "TBLK_ATT_CTL") (66 . 1))))
35.   (setq attvalue (LM:GetAttributeValue (ssname ss 0) "TITLELINE4"))
36.  
37.   (cond
38.     ((wcmatch (strcase attvalue) "SINGLE LINE")
39.      (command ".-insert" "SU_STA_Ins_LatLong" "0,0" dimsc dimsc "")
40.               (setq dims (vla-get-activedimstyle (vla-get-activedocument (vlax-get-acad-object))))
41.         );;wcmatch
42.    );;end cond
43.  
44.   (setvar "clayer" Clay)
45.  (princ)
46. )

EDIT:
If I change the attvalue to the attvalue of the code that's working and leave the blockname unchanged the block gets inserted. I can insert any block using the other routine.

Here is that portion of the other routine.

Code - Auto/Visual Lisp: [Select]

1. (setq dimsc (getvar 'dimscale))
2.   (setq ss (ssget "x" '((0 . "INSERT") (2 . "TBLK_ATT_CTL"))))
3.   (setq attvalue (LM:GetAttributeValue (ssname ss 0) "SUFFIX"))
4.    (cond
5.     ((wcmatch (strcase attvalue)
6.               "RM")
7.      (command ".-insert" "SU_STA_INS_LatLong" "0,0" dimsc dimsc "")
8.               (setq dims (vla-get-activedimstyle (vla-get-activedocument (vlax-get-acad-object))))
9.         );;wcmatch
10.    );;end cond
11.  
12.   (setvar "clayer" Clay)

[jlogan02]

SOLVED: Something to do with the attributed block itself. Tried two different drawings with the same attribute and it works

[kdub_nz]

>>> Something to do with . . .

That is usually the cause of most errors.

[jlogan02]

Right!?!?!?

[kdub_nz]

Right!?!?!?

Sorry, that's just my lack of humor showing.

I had a laugh at the statement
>>> Something to do with . . .

Did you actually find the fault ?


fyi : regarding the file attachment .snagx
not everyone has Snagit, so you should save the capture in the SnagitEditor as a .PNG file prior to attaching it to your post.

Regards,

[framednlv]

I hope you know that if you have an annotative dim style current, dimscale will always be 1.0, and you can't only set it to 0.

[jlogan02]

Yes. I go that reminder when I started testing. Good point.