Topic: display a list in a dialog box

[psuchewinner]

Say I have a list:
("AAAAA";"BBBBB";"CCCCC")
and I want to display it in a dialog box, on separate lines.....how do I do it?

[CAB]

Take a look here :
http://web2.airmail.net/terrycad/Tutorials/MyDialogs.htm
and here
http://www.jefferypsanders.com/autolisp_DCL.html

Let us know if you have any questions.

[psuchewinner]

That will get me to where I need to go.  Thanks for the "nudge".

[CAB]

Please ask if you need any more assistance.

[psuchewinner]

Im stumped again.  I can get the dialog up and display stuff ok but what I am actually trying to do is list the "support path directories" in a dialog box.  I can get them in a list ok by accessing them through the "prefs" object, but in the resulting list they are separated by semicolons.  How do i filter the semicolons out and show each directory separately?

(vl-load-com)
  (setq AcadObject (vlax-get-acad-object))
  (setq PrefsObject (vlax-get-property AcadObject 'Preferences))
  (setq TabNameObject (vlax-get-property PrefsObject 'Files))
(setq ThePath (vlax-get-property TabNameObject 'SupportPath))

[Lee Mac]

Something like:

Code: [Select]

(defun StringParser (str del)  ; Lee Mac
  (if (setq pos (vl-string-search del str))
    (cons (substr str 1 pos)
          (StringParser (substr str (+ pos 1 (strlen del))) del))
    (list str)))


Code: [Select]

(StringParser "Lee;Mac;is;cool" ";")
==>  ("Lee" "Mac" "is" "cool")
Oh BTW,

You can get at the Support Paths using:

Code: [Select]

(getenv "ACAD")


[psuchewinner]

Thats what im after...thanks!

[Lee Mac]

You're very welcome

[efernal]

Here is an example:

....
(SETQ lista (LIST "AAA" "BBB" "CCC" "1" "2" "3" "n"))
(START_LIST "list" 3)
(MAPCAR 'ADD_LIST lista)
(END_LIST)
....

e.fernal