Some Simple Autolisp Questions.

[CAB]

Here ya go.

Layout Tab Select.LSP

LayoutSelect.DCL

[SteveK]

Ta!

That's a good alternative.

[CAB]

Glad you like it. I have never seen the TabSelected property exposed to LISP.

[Lee Mac]

Glad you like it. I have never seen the TabSelected property exposed to LISP.

 

Put it on the wishlist I think

 

vla-get-TabSelected

[SteveK]

CAB, about your layout select program. I want to run it from another lisp to get the tab list. After I run it is there a way to retrieve the tablst variable? Or is setting tablst as a global variable the only way?

Thanks.

[CAB]

Steve,

Use this version & it will return the list or nil if none selected.

(defun GetTabList (/ dclfile dcl# layouts ptr tablist)
 (setq dclfile "LayoutSelect.dcl")
 (cond
   ((< (setq dcl# (load_dialog dclfile)) 0) ; Error 
    (prompt (strcat "\nCannot load " dclfile "."))
   )
   ((not (new_dialog "layoutselect" dcl#)) ; Error 
    (prompt (strcat "\nProblem with " dclfile "."))
   )
   (t ; No DCL problems: fire it up 
    (setq layouts (vl-sort (layoutlist) '<))
    (start_list "layouts")
    (foreach one layouts
      (add_list one)
    )
    (end_list)
   (action_tile "layouts" "(setq ptr $value)")
   (action_tile "ok" "(done_dialog 5)")
   (action_tile "cancel" "(done_dialog 1)")
    (setq action (start_dialog))
    (unload_dialog dcl#)
    (if (and ptr (= action 5)) ;  get the list of selections to list of numbers
      (setq ptr     (read (strcat "(" ptr ")"))
            tablist (mapcar '(lambda (x) (nth x layouts)) ptr))
    )
   ) ; end cond T
 ) ; end cond
 tablist
)

[SteveK]

Thanks mate.

[CAB]

You're quite welcome.

Just after midnight here so I'll say good night, guess you're just getting up.

[SteveK]

Getting up? Lol no it's the afternoon, I'm gearing up for home time. I think it would be Lee just getting up.

[Lee Mac]

haha, its great how "global" we all are

[CAB]

Had to check time zones to see. http://24timezones.com/

Looks like Steve is 12+ hours ahead of me. Now he's off to sleep.

[chulse]

Yes, it is a function defined in the ai_utils.lsp in the ACAD Support folder

 

Try it at the command line

 

Lee,

I couldn't find that file anywhere - any Idea?

[Lee Mac]

Type this at the command line:

(findfile "ai_utils")

[chulse]

it returned nil

[Lee Mac]

it returned nil

 

Oh right - perhaps Civil 3D doesn't have it

[chulse]

Was it part of the standard install for your version?

[Lee Mac]

Yeah, standard install with ET

[CAB]

Try this:

(findfile "ai_utils.lsp")

[Lee Mac]

Try this:

(findfile "ai_utils.lsp")

 

Oops... yeah, I kinda forgot the extension

[chulse]

That did it! Thanks!

 

It was under

"C:\\program files\\autocad civil 3d 2010\\support\\ai_utils.lsp"