Topic: Select ONLY Layout's Page Sets

[Clujna]

Hi all,
I'm trying to convert this function:

(defun AllPS (/)
  (vla-get-plotconfigurations
    (vla-get-activedocument (vlax-get-acad-object))
  )
)

...to one that returns only the layouts page sets.
I summarize my (fruitless) attempts, based in variations of jtbworld's Pagesetup tools:

(defun AllPS (/ aps)
  (setq aps (ssadd))
  (vlax-for pc (vla-get-plotconfigurations
    (vla-get-activedocument (vlax-get-acad-object)))
    (if (= (vla-get-modeltype pc) :vlax-false)
        (ssadd (vlax-vla-object->ename pc) aps)
    )
  )
)

(defun AllPS (/ aps)
  (setq aps (ssadd))
  (vlax-for pc (vla-get-plotconfigurations
    (vla-get-activedocument (vlax-get-acad-object)))
    (if (= (vla-get-modeltype pc) :vlax-false)
      (ssadd pc aps)
    )
  )
)

I will appreciate any help.

[ronjonp]

Give this a try:

Code - Auto/Visual Lisp: [Select]

1. (defun allps (/ aps)
2.   ;; You need to create a list of plotconfigurations not a selection set
3.   ;;(setq aps (ssadd))
4.   (vlax-for pc (vla-get-plotconfigurations (vla-get-activedocument (vlax-get-acad-object)))
5.     (if (= (vla-get-modeltype pc) :vlax-false)
6.       (setq aps (cons pc aps))
7.     )
8.   )
9.   ;; Return the value
10.   aps
11. )
12. (if (allps)
13.   (mapcar 'vla-get-name (allps))
14. )

[Clujna]

Thank you Mr. Ronjonp, forgive the delay in responding, a lot of work here, besides the hourly difference.
Unfortunately, it does not work. I think it's because of the way he returns the list.

Original function:
Command: (allps)
# <VLA-OBJECT IAcadPlotConfigurations 00000000565eebe8>

Modified function:
Command: (allps)
(# <VLA-OBJECT IAcadPlotConfiguration 000000005e898248>)

The function is within a command published here by Mr. Irné Barnard, whom I have tried to request permission to modify without success. I expect not to be breaking any norm of this forum
http://forums.augi.com/showthread.php?117284-LayoutTools-Explained&highlight=layouttools

In the original command the function is called "Get-Tab-Col".

[ronjonp]

What are you trying to do with this?

[tombu]

See also: http://forums.augi.com/showthread.php?172048-Select-ONLY-Layout-s-Page-Sets&p=1336601#post1336601

[Clujna]

I want only the paper space page settings to appear in the dialog box, if it's possible. Believe me, I've tried it on my own.
Universal excuses if I am not using absolutely correct the forum.

PD: ...and for my English

[ronjonp]

Maybe THIS is what you need.

[Clujna]

Yes Ron, that's exactly it. Many thanks.
I hope to understand someday how it does, apart from using it.

I leave you a written function in my Paleozoic AutoLISP, a clear demonstration that I must continue to improve.
Greetings.

[ronjonp]

That's pretty slick .. thanks for sharing