Topic: Need some lisp code error message help:

[dubb]

Code: [Select]

(vl-load-com)
(setq acadObj (vlax-get-acad-object))
(setq acDoc (vlax-get-property acadObj 'ActiveDocument))
(setq acDocSumInfo (vlax-get-property acDoc 'SummaryInfo))
(setq stdsearch (cdr (assoc style jur)))
(cond ((/= (tblsearch "dimstyle" stdsearch) nil)
       (setq dstyl (vla-item (vla-get-dimstyles acDoc) stdsearch))
       (vla-put-activedimstyle acDoc dstyl)
       )
      )
(cond ((/= (tblsearch "style" stdsearch) nil)
       (setvar "textstyle" stdsearch)     
    )
      )
  (princ)
  )
(setq sd-std (list
        (cons 'dim "sd-anno-dim")
        (cons 'txt "simplex_sd_anno-0.08")
        (cons 'address "simplex_sd_anno-0.10")         
        (cons 'street "simplex_sd_anno-0.125")
        )
      )
(setq jurstd "sd-std") ;registry
  (cond
    ((= style standard)
     (std 'txt jurstd))
    ((= style street)
     (std 'street jurstd))
    ((= style address)
     (std 'address jurstd))
        )
  (command "clayer" "label")
  (COMMAND "MTEXT" PAUSE "r" pause "c" "n" "w" "0")
  (princ)
    )
The error 

Code: [Select]

; error: bad argument type: listp "sd-std"
I tried to convert with (read) but still not working. The above is a snippet of the portion of the code I need to get working. This is my first time really getting into constructing lists. Please help, thanks.

[kdub_nz]

Firstly, your sample has a couple of additional parenthesis ....

Second : It's difficult to test code that isn't complete.
What are the parameters style and jur ?

Code: [Select]

(setq stdsearch (cdr (assoc style jur)))

[kdub_nz]

Code: [Select]

(setq sd-std (list (cons 'dim "sd-anno-dim")
   (cons 'txt "simplex_sd_anno-0.08")
   (cons 'address "simplex_sd_anno-0.10")
   (cons 'street "simplex_sd_anno-0.125")
     )
)
Returns

Code: [Select]

((DIM . "sd-anno-dim") (TXT . "simplex_sd_anno-0.08") (ADDRESS . "simplex_sd_anno-0.10") (STREET . "simplex_sd_anno-0.125"))


What do you imagine this should do ?

Code: [Select]

(cond ((= style standard) (std 'txt jurstd))
      ((= style street) (std 'street jurstd))
      ((= style address) (std 'address jurstd))
)

Could you be a little more explicit regarding the location of the cause error message. ?

[kdub_nz]

I'm guessing :

Is this what you are trying to achieve ?

Code: [Select]

(cdr (assoc 'txt sd-std))  ;-> "simplex_sd_anno-0.08"

[dubb]

Sorry for the confusion. I have multiple lisp files. I combined them into one.

Code: [Select]

;;start of
;;sup-registry.lsp
;setup registry
(setq SUPReg (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)"\\Profiles\\"(getvar "cprofile") "\\SUP-Settings")) ;registry to be created
;make registry
(defun regMk (name value /)
  (vl-registry-write SUPReg name value)
  (princ)
  )
;check if a registry exist
(defun regchk (name /)
  (print (vl-registry-read SUPReg name))
  (princ)
  )
;list registry available
(defun reglist ()
  (print (vl-registry-descendents SUPReg ""))
  (princ)
  )

;;start of
;;standards.lsp
(vl-load-com)
(setq acadObj (vlax-get-acad-object))
(setq acDoc (vlax-get-property acadObj 'ActiveDocument))
(setq acDocSumInfo (vlax-get-property acDoc 'SummaryInfo))
(setq sd-std (list
  (cons 'dim "sd-anno-dim")
  (cons 'txt "simplex_sd_anno-0.08")
  (cons 'address "simplex_sd_anno-0.10")        
  (cons 'street "simplex_sd_anno-0.125")
  )
      )
(setq sd-full (list
  (cons 'dim "sd-anno-dim-full")
  (cons 'txt "simplex_sd_anno-0.10")
  (cons 'address "simplex_sd_anno-0.15")        
  (cons 'street "simplex_sd_anno-0.20")
)
      )
 ;general standard list
 (setq gen-std (list
  (cons 'dim "sup-anno-dim")
  (cons 'tc-dim "sup-anno-tc-dim")
  (cons 'profile-dim "sup-anno-dim-profile")
  (cons 'txt "SIMPLEX_ANNO-0.08")
  (cons 'address "SIMPLEX_ANNO-0.10")        
  (cons 'street "SIMPLEX_ANNO-0.125")
  )
      )

(defun std (style jur / )

;san diego standard list
  (setq stdsearch (cdr (assoc style jur)))
(cond ((/= (tblsearch "dimstyle" stdsearch) nil)
       (setq dstyl (vla-item (vla-get-dimstyles acDoc) stdsearch))
       (vla-put-activedimstyle acDoc dstyl)
       )
      )
(cond ((/= (tblsearch "style" stdsearch) nil)
       (setvar "textstyle" stdsearch)     
    )
      )
  (princ)
  )

;;start of
;;drwtxt.lsp
;;this function needs to be rwritten so that I can pull registry entry. depending on the registry entry the styles will be set accordinly
;;I am trying to shorten my conditional statements from a value I call from reading from the registry
(defun drwtxt(style)
(setq jurs (vl-registry-read SUPReg "std"))
  (if (= jurs "gen-std")
    (cond   
     ((= style "standard")
  (std 'txt gen-std))
    ((= style "street")
  (std 'street gen-std))
    ((= style "address")
  (std 'address gen-std))
        )
    )
    (if (= jurs "sd-std")
    (cond   
     ((= style "standard")
  (std 'txt sd-std))
    ((= style "street")
  (std 'street sd-std))
    ((= style "address")
  (std 'address sd-std))
        )
    )
      (if (= jurs "sd-full")
    (cond   
     ((= style "standard")
  (std 'txt sd-full))
    ((= style "street")
  (std 'street sd-full))
    ((= style "address")
  (std 'address sd-full))
        )
    )
  (command "clayer" "label")
  (COMMAND "MTEXT" PAUSE "r" pause "c" "n" "w" "0")
  (princ)
    )
In drwtxt.lsp I am trying to shorten that code up more. but I am having trouble with using a value in registry.

I am trying to use

Code: [Select]

  (cond
    ((= style standard)
  (std 'txt jurs))
    ((= style street)
  (std 'street jurs))
    ((= style address)
  (std 'address jurs))
        )

[kdub_nz]

I believe you will be more joyful if the keys atr strings rather than symbols.
This seems to work for me with limited testing.

I've made no attempt to optimise the code

Code - Auto/Visual Lisp: [Select]

1. (setq SUPReg (strcat "HKEY_CURRENT_USER\\"
2.                      (vlax-product-key)
3.                      "\\Profiles\\"
4.                      (getvar "cprofile")
5.                      "\\SUP-Settings"
6.              )
7. )                                                           ;registry to be created
8.                                                             ;make registry
9. (defun regMk (name value /)
10.   (vl-registry-write SUPReg name value)
11.   (princ)
12. )
13.                                                             ;check if a registry exist
14. (defun regchk (name /) (print (vl-registry-read SUPReg name)) (princ))
15.                                                             ;list registry available
16. (defun reglist () (print (vl-registry-descendents SUPReg "")) (princ))
17.  
18. ;;start of
19. ;;standards.lsp
20. (vl-load-com)
21. (setq acadObj (vlax-get-acad-object))
22. (setq acDoc (vlax-get-property acadObj 'ActiveDocument))
23. (setq acDocSumInfo (vlax-get-property acDoc 'SummaryInfo))
24. (setq sd-std (list (cons "DIM"          "sd-anno-dim")
25.                    (cons "TXT"          "simplex_sd_anno-0.08")
26.                    (cons "ADDRESS"      "simplex_sd_anno-0.10")
27.                    (cons "STREET"       "simplex_sd_anno-0.125")
28.              )
29. )
30. (setq sd-full (list (cons "DIM"         "sd-anno-dim-full")
31.                     (cons "TXT"         "simplex_sd_anno-0.10")
32.                     (cons '"ADDRESS"    "simplex_sd_anno-0.15")
33.                     (cons "STREET"      "simplex_sd_anno-0.20")
34.               )
35. )
36.                                                             ;general standard list
37. (setq gen-std (list (cons "DIM"         "sup-anno-dim")
38.                     (cons "TC-DIM"      "sup-anno-tc-dim")
39.                     (cons "PROFILE-DIM" "sup-anno-dim-profile")
40.                     (cons "TXT"         "SIMPLEX_ANNO-0.08")
41.                     (cons "ADDRESS"     "SIMPLEX_ANNO-0.10")
42.                     (cons "STREET"      "SIMPLEX_ANNO-0.125")
43.               )
44. )
45.  
46. (defun std (key data / stdsearch)                                   ;san diego standard list
47.   (setq stdsearch (cdr (assoc key data)))
48.   (cond ((/= (tblsearch "dimstyle" stdsearch) nil)
49.          (setq dstyl (vla-item (vla-get-dimstyles acDoc) stdsearch))
50.          (vla-put-activedimstyle acDoc dstyl)
51.         )
52.   )
53.   (cond ((/= (tblsearch "style" stdsearch) nil)
54.          (setvar "textstyle" stdsearch)
55.         )
56.   )
57.   (princ)
58. )
59.  
60. ;;start of
61. ;;drwtxt.lsp
62. ;;this function needs to be rwritten so that I can pull registry entry. depending on the registry entry the styles will be set accordinly
63. ;;I am trying to shorten my conditional statements from a value I call from reading from the registry
64. ;;
65. (defun drwtxt (style / jurs)
66.   (setq jurs (vl-registry-read SUPReg "std"))
67.   (if (= jurs "gen-std")
68.     (cond ((= style "standard") (std "TXT" gen-std))
69.           ((= style "street")   (std "STREET" gen-std))
70.           ((= style "address")  (std "ADDRESS" gen-std))
71.     )
72.   )
73.   (if (= jurs "sd-std")
74.     (cond ((= style "standard") (std "TXT" sd-std))
75.           ((= style "street")   (std "STREET" sd-std))
76.           ((= style "address")  (std "ADDRESS" sd-std))
77.     )
78.   )
79.   (if (= jurs "sd-full")
80.     (cond ((= style "standard") (std "TXT" sd-full))
81.           ((= style "street")   (std "STREET" sd-full))
82.           ((= style "address")  (std "ADDRESS" sd-full))
83.     )
84.   )
85.   (command "clayer" "label")
86.   (COMMAND-s "MTEXT" PAUSE "r" pause "c" "n" "w" "0")
87. )
88.  
89. ;;//-------------------------------
90.  
91.  
92.  
93.  
94. ;; (regMk "std" "gen-std")
95. ;; (regchk "std")  ;-> "gen-std"
96.  
97.  
98. ;; (drwtxt "standard")
99.  
100. (princ)
101.  
102.  

[dubb]

Thanks, I kinda had a feeling it had something to do with how I cons the lists. And thanks, now I know they are called symbols. This seems like it will work. I haven't tested it. I thought using symbols in a dotted pair was a preferred method.