从布局名字获得对象名的VL和LISP代码及效率比较

newer · 发表于 2017-12-20 16:01:16

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

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

×

;;VL
(defun _layoutvla (name / o)
(if (= 'vla-object
(type
(setq
o (vl-catch-all-apply
'vla-item
(list (vla-get-layouts
(vla-get-activedocument (vlax-get-acad-object))
)
name
)
)
)
)
)
o
)
)
(_layoutvla "Model")
;;Vanilla
(defun _layoutvic (name / o)
(if (and (setq
o (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_LAYOUT")))
)
(setq o (cdr (assoc -1 (dictsearch o name))))
)
(vlax-ename->vla-object o)
)
)
(_layoutvic "Model")
(xd::quickbench '((_layoutvic "Model") (_layoutvla "Model")))

_$

CPU:(1x)Intel(R) Core(TM) i7-4790 @ 3.60GHz 4Cores  / Memory:16G / OS:WIN10企业版
Benchmarking ....... done for 4096 iterations. Sorted from fastest.
Statement                   Increment  Time(ms)  Normalize  Relative
-------------------------------------------------------------------------------
(_LAYOUTVIC Model)             4096    1360    1360    1.37 <fastest>
(_LAYOUTVLA Model)             4096    1859    1859    1.00 <slowest>
-------------------------------------------------------------------------------

_$

/db_自贡黄明儒_ · 发表于 2017-12-20 16:12:11

本帖最后由 /db_自贡黄明儒_ 于 2017-12-20 16:21 编辑

按理应该VL更快呀，VL是后来的东西。不然“后来居上”这个词没法解释了

前面一个这样写才能在一个水平上吧？
(defun _layoutvla (name)
  (vla-item
(vla-get-layouts
   (vla-get-activedocument (vlax-get-acad-object))
)
name
  )
)

aeo · 发表于 2017-12-20 16:23:50

/db_自贡黄明儒_ 发表于 2017-12-20 16:12

当然 vla 慢

marting · 发表于 2017-12-20 16:33:49

本帖最后由 marting 于 2017-12-20 16:35 编辑

/db_自贡黄明儒_ 发表于 2017-12-20 16:12

当然要加上些判断是否正常的代码，屏蔽出错信息那些。否则函数就不友好了。

你随便给个名字

命令: (_LAYOUTVLA "abc")
错误: Automation 错误。未找到主键

这样就不好了。

/db_自贡黄明儒_ · 发表于 2017-12-20 16:36:32

marting 发表于 2017-12-20 16:33

如果要加，后面的函数也应该加呀。

marting · 发表于 2017-12-20 16:37:41

/db_自贡黄明儒_ 发表于 2017-12-20 16:12

不是后来的就快呀，VL是对象模型，包裹了一层东西和ACAD核心交互。基本的函数，AUTOLISP是最快的。你试试entmake和VLA的创建对象就更明显了。

st788796 · 发表于 2017-12-20 20:21:58

VLa效率由操作 Table 更好理解其机制和效率，每个 vla 包括了 open close, entmake 直接操作了 database 自然效率高，不过不是“海量”处理，差异可以忽略，码代码也要讲究效率吗

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

[每日一码] 从布局名字获得对象名的VL和LISP代码及效率比较

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