Hart 发表于 2003-2-19 17:51:00

怎样用Vlisp判断一个布局名是否存在？

怎样用Vlisp判断一个布局名是否存在？
tblobjname 好像不能查找布局名?

chg 发表于 2003-2-19 19:13:00

一个笨办法，哪位大侠有好方法还请赐教。

(setq elist (member '(3 . "ACAD_LAYOUT") (entget (namedobjdict))))
(setq ln (member '(3 . "LAYOUTNAME") elist))
(if ln
(princ "\"LAYOUTNAME\" is exist.")
(princ "\"LAYOUTNAME\" is not exist.")
)

mccad 发表于 2003-2-19 20:21:00

还有用ActiveX的方法

'判断布局是否存在的函数
(defun HasLayoutName (LayoutName / i layouts layout HasLName)
(setq i       -1
      layouts (vla-get-layouts
                  (vla-get-activedocument (vlax-get-acad-object))
                )
)
(vlax-for layout layouts
    (if (= (vla-get-name layout) LayoutName)
      (setq HasLName T)
    )
)
HasLName
)

'示例：
(defun c:LName ()
(setq LN (getstring "\n请输入要查找的布局名称："))
(if (haslayoutname ln)
    (princ "\n找到该名称的布局")
    (princ "\n未找到该名称的布局")
)
(princ)
)

该函数已经加入到实用函数中，同时加入的有VBA的方法

龙龙仔 发表于 2003-2-20 08:26:00

判斷"符號表"是否存在(函數)

本帖最后由 作者 于 2003-2-20 8:26:40 编辑

;;判斷"符號表"否存在
;;USAGE: (HAS "LAYOUTS" "123")
;;USAGE: (HAS "LAYERS" "DIM")
(defun HAS (TYPE_1 NAME)
(if (not
        (vl-catch-all-error-p
          (vl-catch-all-apply
          'vla-item
          (list ((eval (read (strcat "vla-get-" TYPE_1)))
                  (vla-get-activedocument (vlax-get-acad-object))
                  )
                  NAME
          )
          )
        )
      )
    t
)
)

Hart 发表于 2003-2-20 08:43:00

谢谢各位大侠

millermin 发表于 2013-1-3 10:54:13

mccad 发表于 2003-2-19 20:21 static/image/common/back.gif
'判断布局是否存在的函数
(defun HasLayoutName (LayoutName / i layouts layout HasLName)
(setq i    ...

我参考了您的方法，用在我的dbx程序里，结果每个layout和model都显示出来了。我并不需要model。本来vla-get-loyouts应该是所有layout的集合，不应该包含model，是不是那出错了？我需要仅仅包括layout名的集合。
页: [1]
查看完整版本: 怎样用Vlisp判断一个布局名是否存在？