Some Simple Autolisp Questions.

[CAB]

FYI and a minor point.

(vl-load-com) is not needed for vl- functions but is required to be execuited once before any vla- vlax- or vlr- functions are used.

[Lee Mac]

FYI and a minor point.

(vl-load-com) is not needed for vl- functions but is required to be execuited once before any vla- vlax- or vlr- functions are used.

 

I did not realise that - thanks Alan

[Lee Mac]

You welcome!

There is also possible to list all the entries in a specified definitions table – see below how to list all text styles defined in current drawing (may use MEMBER statement later to search if a particular style is in list):

 

(setq TStyleEntry (cdr (assoc 2 (tblnext "STYLE" 1)))
     TStylesList '())
(while TStyleEntry
(setq TStylesList (append TStylesList (list TStyleEntry))
      TStyleEntry (cdr (assoc 2 (tblnext "STYLE"))))
)

Regards

 

Another way:

 

(defun get_tbl_styles (/ tdef lst)
 (reverse
   (while (setq tdef (tblnext "STYLE" (not tdef)))
     (setq lst (cons (cdr (assoc 2 tdef)) lst)))))

[MSasu]

@Lee Mac:

Indeed, concise solution!

[Lee Mac]

@Lee Mac:

Indeed, concise solution!

 

Even more Concise:

 

(ai_table "BLOCK" 3)

[SteveK]

How does that work Lee? ai_table isn't a function is it?

[Lee Mac]

How does that work Lee? ai_table isn't a function is it?

 

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

 

Try it at the command line

[SteveK]

Thats handy. And the 3 is the sum of 1 & 2:

1 = Do not list Layer 0 and Linetype CONTINUOUS.

2 = Do not list anonymous blocks or anonymous groups.

 

How do you discover these things?

[Lee Mac]

Mostly from others code, and just curiousity I suppose

 

The ACAD.dcl is a nice one to peruse also, some handy widgets in there.

[SteveK]

New Question: Retrieving a List of Selected Layouts...

 

I don't really want to start a new thread for a question so small, except if no one notices this question...

Does anyone know, when you select multiple layout tabs (with Ctrl), is there a way of outputting a list of the layout names of only those selected layouts?

 

The aim is to then do specific searches on only those selected tabs.

 

Appreciate any help.

 

 

 

Aside: As per the previous post I did a search for ACAD.dcl and nothing turned up.

[Lee Mac]

To answer the aside first:

 

The ACAD.dcl is in a hidden folder

 

Something like this path:

 

C:\Users\<username>\AppData\Roaming\Autodesk\AutoCAD XXXX\RXX.0\enu\Support\

[Lee Mac]

As for your other question - tbh, I am stumped

[SteveK]

Regarding the main question:

 

Lee I don't think you've ever not been able to help me, now I'm worried no answer exists!

 

Though I would have thought there would be an answer, as Publish provides the layouts based on those selected, so it must retrieve it somehow.

 

 

 

 

About the aside: Ah, there ACAD.dcl is, it was hidden. I haven't made any dialog boxes yet, but I'm sure that'll come in handy when I do.

[CAB]

(setq layout (dos_multilist "Select Layouts" "Select layouts" (layoutlist)))

.

[SteveK]

Thanks CAB!

 

Just so others know; if you also get an error: dos_multilist is a DOSLib function, so load DOSLib before using.

 

Bit different to what I expected but it outputs a list of layouts, so it does the job.

[Lee Mac]

Thanks Alan, I was about to link Steve to the thread at theSwamp... see if he can understand Daniels Arx solution...

 

http://www.theswamp.org/index.php?topic=29710.0

[SteveK]

Yeah I haven't done any C++ so Daniels solution is over my head (not that CAB's isn't, but it's shorter ).

I'm happy with CAB's, I'll just include a (load DOSLib) in my code.

 

Lee: yes, I am learning C++, but I only started learning about 2 days ago

lol, I'm sure if only you had a week you would understand his code. how are your efforts to knock over as many languages as you can in a year going?

[Lee Mac]

Yeah I haven't done any C++ so Daniels solution is over my head (not that CAB's isn't, but it's shorter ).

I'm happy with CAB's, I'll just include a (load DOSLib) in my code.

 

I think CAB also included another solution in the Swamp thread, that didn't include the DosLib - you may be interested in.

 

lol, I'm sure if only you had a week you would understand his code. how are your efforts to knock over as many languages as you can in a year going?

 

Well, C++ is going to be a lot tougher to crack than LISP, but I shall have to see how I get on

[SteveK]

I cannot see this other method you speak of, or at least maybe I need to have an account there to see it? Only the dos_multilist one.

[Lee Mac]

I cannot see this other method you speak of, or at least maybe I need to have an account there to see it? Only the dos_multilist one.

 

Reply #4, I think you will need an account to see the attachments