如何获得“布局”空间的“页面设置”列表？

smartstar

下面函数可以获得“模型”空间“页面设置”列表，如何获得“布局”空间的“页面设置”列表？[code="lisp] (defun allPageSetupsOfModelType  (/ aps pc)
  (setq acaddoc (vla-get-activedocument (vlax-get-acad-object)))
  (vlax-for pc (vla-get-plotconfigurations acaddoc)
    (if  (= (vla-get-ModelType pc) :vlax-true)
      (setq aps (cons (vla-get-name pc) aps))
    )
  )
  (vl-sort aps '<)
)[/code]

smartstar

顶顶，沉的自己都找不到了。

自贡黄明儒

下面没有用vlax-for,便于清楚看到各成员
是否符合你的要求未知，但可参考一下
(defun C:w1 ()
  (cond ((not *DOC*) (setq *DOC* (vla-get-ActiveDocument *ACAD*))))
  (setq n (vla-get-Count (vla-get-Blocks *DOC*)))            ;当有文档块集合数量
  (repeat n
    (setq obj (vla-item (vla-get-Blocks *DOC*) (setq n (1- n))))
    (princ (strcat "\n" (vla-get-objectname obj) " " (vla-get-name obj)))
  )
  ;|
AcDbBlockTableRecord TYBTL
AcDbBlockTableRecord bjg
AcDbBlockTableRecord base
AcDbBlockTableRecord ccd1
AcDbBlockTableRecord _DotSmall
AcDbBlockTableRecord *Paper_Space0
AcDbBlockTableRecord *Paper_Space
AcDbBlockTableRecord *Model_Space,模型空间也算块
|;
  (setq obj (vla-item (vla-get-Blocks *DOC*) 4))            ;AcDbBlockTableRecord ccd1第5
  (setq n (vla-get-Count obj))                                    ;此块由4个元素组成,说明上句obj也算集合
  (repeat n
    (setq i (vla-item obj (setq n (1- n))))
    (princ (strcat "\n" (vla-get-objectname i)))
  )
  ;|
AcDbAttributeDefinition
AcDbLine
AcDbLine
AcDbLine
|;
  (setq i (vla-item obj 3))                                    ;AcDbAttributeDefinition
)
;;打开的文件
(defun C:w2 ()
  (cond ((not *ACAD*) (setq *ACAD* (vlax-get-acad-object))))
  (cond ((not *DOCS*) (setq *DOCS* (vla-get-Documents *ACAD*))))
  ;;(setq n (vlax-get *DOCS* 'Count))
  ;;(vlax-get-property *DOCS* 'count)
  ;;(vla-get-Count *DOCS*)
  (setq n -1)
  (repeat (vlax-get-property *DOCS* 'count)
    (spin* "请稍侯...")
    (setq doc (vla-item *DOCS* (setq n (1+ n))))
    (setq LOUTS (vla-get-Layouts doc))
    ;;(setq docname (vlax-get doc 'fullname))未保存时为""
    (setq docname
           (strcat
             (vlax-get-property doc 'Path)
             "\\"
             (vlax-get-property doc 'Name)
           )
    )                                                            ;"C:\\Program Files\\AutoCAD 2005\

\Drawing2.dwg"
  )
)
;;当前文件
(defun C:w3 ()
  (cond ((not *ACAD*) (setq *ACAD* (vlax-get-acad-object))))
  (cond ((not *DOC*) (setq *DOC* (vla-get-ActiveDocument *ACAD*))))
  (setq LOUTS (vla-get-Layouts *DOC*))
  (repeat (setq n (vla-get-Count LOUTS))
    (setq layout (vla-item LOUTS (setq n (1- n))))
    (princ (strcat "\n" (vla-get-objectname layout) " " (vla-get-name layout)))
    ;|
AcDbLayout Model
AcDbLayout Layout2
AcDbLayout Layout1
|;
  )
  (setq layout (vla-item LOUTS 0))
  (princ (strcat "\n" (vla-get-objectname layout) " " (vla-get-name layout)))
  (setq objs (vla-get-block layout))                            ;这是模空间下的5个对象,不是我平常说的块，是指

任何实体
  (repeat (setq i (vlax-get objs 'count))
    (setq obj (vla-item objs (setq i (1- i))))
    (princ (strcat "\n" (vla-get-objectname obj)))            ;不是每个对象(vla-get-name obj)
    ;|AcDbLine
AcDbBlockReference
AcDbBlockReference
AcDbBlockReference
AcDbBlockReference|;
    (if        (= (vla-get-objectname obj) "AcDbBlockReference")
      (if (and
            (= (vla-get-hasattributes obj) :vlax-true)
            (safearray-value
              (setq atts
                     (vlax-variant-value
                       (vla-getattributes obj)
                     )
              )
            )
          )
        (foreach tag (vlax-safearray->list atts)
          (if
            (vla-get-tagstring tag)
             (setq vals (cons (vla-get-TextString tag) vals))
          )
        )
      )
    )
  )
)

819534890

学习学习

smartstar

自贡黄明儒 发表于 2014-9-1 08:50
下面没有用vlax-for,便于清楚看到各成员
是否符合你的要求未知，但可参考一下
**** 本内容被作者隐藏 *** ...

谢谢黄老！这个不是我想要的结果。

edata

(defun allPageSetupsOfModelType  (/ aps pc)
  (setq acaddoc (vla-get-activedocument (vlax-get-acad-object)))
  (vlax-for pc (vla-get-plotconfigurations acaddoc)
    (if  (= (vla-get-ModelType pc) :vlax-true)
      (setq aps (cons (vla-get-name pc) aps))
    )
  )
  (vl-sort aps '<)
)
ALLPAGESETUPSOFMODELTYPE
_$ (ALLPAGESETUPSOFMODELTYPE)
nil
_$ (defun allPageSetupsOfModelType  (/ aps pc)
  (setq acaddoc (vla-get-activedocument (vlax-get-acad-object)))
  (vlax-for pc (vla-get-plotconfigurations acaddoc)
    (if  (= (vla-get-ModelType pc) :vlax-false)
      (setq aps (cons (vla-get-name pc) aps))
    )
  )
  (vl-sort aps '<)
)
ALLPAGESETUPSOFMODELTYPE
_$ (ALLPAGESETUPSOFMODELTYPE)
("Setup1")
_$

edata

以上是获得属于布局 的命名打印配置，千万不要说是layout1 layout2之内的布局名。

smartstar

edata 发表于 2014-9-1 17:13
以上是获得属于布局 的命名打印配置，千万不要说是layout1 layout2之内的布局名。

长老，为什么我不能用此函数得到“属于布局命名打印配置”呢？

smartstar

(defun allPageSetupsOfModelType  (/ aps pc)
  (setq acaddoc (vla-get-activedocument (vlax-get-acad-object)))
  (vlax-for pc (vla-get-plotconfigurations acaddoc)
    (if  (= (vla-get-ModelType pc) :vlax-true)
      (setq aps (cons (vla-get-name pc) aps))
    )
  )
  (vl-sort aps '<)
)

ALLPAGESETUPSOFMODELTYPE、


_$ (ALLPAGESETUPSOFMODELTYPE)
("2")
_$

edata

    (if  (= (vla-get-ModelType pc) :vlax-false)
你这句排除了非模型的命名配置。要改成:vlax-false只显示布局的命名配置