求指定层名的VLA对象

lisp_beginner · 发表于 2017-5-8 20:33:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在学VLISP

看到段代码

(vlax-for lay (vla-get-layers
            (vla-get-ActiveDocument
               (vlax-get-acad-object)))
  (if (eq "LayerName" (vla-get-Name lay))
(setq layer lay)))

在循环里面，判断是否是需要的层，是通过变量layer返回。

我想请教，能否不判断，直接根据层名得到VLA对象呢？

lisp_beginner · 发表于 2017-5-8 20:39:15

(setq layers (vla-get-layers
(vla-get-ActiveDocument
(vlax-get-acad-object))))
看到帮助有个函数 vla-item

我用 (vla-item layers "abc") ，
如果abc层不存在，得到的是错误的提示：错误: Automation 错误。未找到主键，怎么样在不存在的时候返回nil，存在返回对象呢？

marting · 发表于 2017-5-8 21:14:51

lisp_beginner 发表于 2017-5-8 20:39

屏蔽错误，用 vl-catch-all-apply 和 vl-catch-all-error-p组合

第一种写法：

(defun Getlayer (LayerName)
(setq LayerCollection (vla-get-Layers (vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
(if (not (vl-catch-all-error-p (setq LayObj (vl-catch-all-apply 'vla-Item (list LayerCollection LayerName)))))
LayObj
nil
)
)

第二种写法：

(defun Getlayer (LayerName)
(setq LayerCollection (vla-get-Layers (vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
(if (not (vl-catch-all-error-p (setq LayObj (vl-catch-all-apply '(lambda()(vla-Item LayerCollection LayerName))))))
LayObj
nil
)
)

命令: (GETLAYER "abc")
nil
命令: (GETLAYER "0")
#<VLA-OBJECT IAcadLayer 18d8cc7c>

csharp · 发表于 2017-5-8 21:56:40

(if (tblsearch "layer" lyrname) (vla-item(vla-getlayers(vla-get-activedocument (vlax-get-acad-object))) lyrname))

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

[求助] 求指定层名的VLA对象

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。