[求助][LISP]如何按从左到右的顺序取得布局名称的列表!!

xialiang · 发表于 2005-10-21 12:40

如何按从左到右的顺序取得布局名称的列表!!

希望高手指点!

e2002 · 发表于 2005-10-21 16:16

按照 Layout对象的 TabOrder 属性排序即可

xialiang · 发表于 2005-10-21 16:42

能详细介绍以下可以吗??

xialiang · 发表于 2005-10-21 16:52

能给举个例子吗?

谢谢!

xialiang · 发表于 2005-10-22 09:01

能帮帮忙吗?

alin · 发表于 2005-10-23 15:00

(defun LayoutSortedList (/ layout_lst)
(setq layouts (vla-get-layouts
    (vla-get-activedocument (vlax-get-acad-object))
  )
)
(vlax-for layout layouts
    (setq layout_lst (cons layout layout_lst))
)
(vlax-release-object layouts)
(mapcar 'vla-get-name
   (vl-sort layout_lst
     '(lambda (l1 l2)
        (< (vla-get-taborder l1) (vla-get-taborder l2))
      )
   )
)
)

xialiang · 发表于 2005-10-23 17:17

谢谢！！！

xialiang · 发表于 2005-10-24 15:27

不好意思!还得麻烦楼上!我运行ALIN的程序后虽然打印出布局名称!但是我的程序怎么调用布局名称啊!

LAYOUT_LST里不是布局名称啊!!

好想程序里没有存储布局名称的变量啊!

我知道原因是我对这些函数没有理解! 希望高手指点!

alin · 发表于 2005-10-24 20:25

(setq lst (LayoutSortedList))

xialiang · 发表于 2005-10-24 21:55

啊!!

突然想到!

是不是给我的是一个完整的子函数啊????

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