smartstar 发表于 2014-8-28 16:22:40

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

下面函数可以获得“模型”空间“页面设置”列表，如何获得“布局”空间的“页面设置”列表？(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 '<)
)

smartstar 发表于 2014-9-1 08:20:07

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

自贡黄明儒 发表于 2014-9-1 08:50:31

本帖最后由 自贡黄明儒 于 2014-9-1 08:52 编辑

下面没有用vlax-for,便于清楚看到各成员
是否符合你的要求未知，但可参考一下
**** Hidden Message *****

819534890 发表于 2014-9-1 08:52:14

学习学习

smartstar 发表于 2014-9-1 16:38:01

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

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

edata 发表于 2014-9-1 17:06:52

(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 发表于 2014-9-1 17:13:25

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

smartstar 发表于 2014-9-2 08:05:04

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

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

smartstar 发表于 2014-9-2 08:10:28




(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 发表于 2014-9-2 22:14:35

    (if(= (vla-get-ModelType pc) :vlax-false)
你这句排除了非模型的命名配置。要改成:vlax-false只显示布局的命名配置
页: [1] 2 3
查看完整版本: 如何获得“布局”空间的“页面设置”列表？