如何得到所有的布局名称

Hart · 发表于 2003-9-29 17:25:00

用Vlisp怎样才能得到所有的布局列表呢？

meflying · 发表于 2003-9-29 17:31:00

(defun c:test()
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq layouts (vla-get-layouts doc))
  (setq count (vla-get-count layouts))
  (repeat count
(princ "\n")
(princ (vla-get-name (vla-item layouts (1- count))))
(setq count (1- count))
  )
)

龙龙仔 · 发表于 2003-9-30 07:52:00

(layoutlist)
但不含模型空間

Hart · 发表于 2003-9-30 10:57:00

哦，有layoutlist命令。

e2002 · 发表于 2003-9-30 11:11:00

遗憾的是这个函数返回的LayoutNames-list不是按照Layouts的顺序(TabOrder)的.
所以我只好还是用自己写的函数,返回按顺序的LayoutsNames-list,且提供一个 bInCludeModel 的参数来选择是否返回"Model"

账号		自动登录	找回密码
密码			注册