设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 显示隐藏实体程序效率测试！！！
返回列表 发新帖
查看: 1897|回复: 5

[研讨] 显示隐藏实体程序效率测试！！！

[复制链接]
陌生人
发表于 2004-5-9 00:08:06 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
由 lsjjm 长老的 《使可见图层上的图元不可见》http://www.xdcad.net/forum/showt ... d=959787#post959787   一贴而引发的测试，仅对lsp，vlisp，vb写法进行测试，arx因本人不会，如果有朋友有能力，希望补上arx程序来进行测试.
  1. ; 显示隐藏实体程序效率测试 dxf60 visible
  2. ;程序前的注释为测试运行所需时间.

  4. ;;以下为测试隐藏10000个圆实体测试://///////////////////////////////
  5. ;1.813秒;1.781秒  ;改while未repeat.
  6. (defun c:test1 (/ ss n ent)
  7.   (setq ss (ssget) n 0)
  8.   (vl-cmdf ".time" "r" "on" "d" "")
  9.   (repeat (setq n (sslength ss))
  10.     (setq ent (ssname ss (setq n(1- n))))
  11.     (vla-put-Visible (vlax-ename->vla-object ent) :vlax-false)
  12.   )
  13.   (vl-cmdf ".time" "off" "d" "")
  14. )
  15. ;01.782秒; 1.844秒  ;不对是否有visible属性进行判断.
  16. (defun c:t1 (/ ss n ent)
  17.   (setq ss (ssget) n 0)
  18.   (vl-cmdf ".time" "r" "on" "d" "")
  19.   (while (< n (sslength ss))
  20.     (setq ent (ssname ss n) n (1+ n))
  21.     (vla-put-Visible (vlax-ename->vla-object ent) :vlax-false)
  22.   )
  23.   (vl-cmdf ".time" "off" "d" "")
  24. )
  25. ;1.187秒;1.109秒   ;使用activeselectionset
  26. (defun c:t2 (/ ss n ent)
  27.   (setq ss (ssget) n 0)
  28.   (vl-cmdf ".time" "r" "on" "d" "")
  29.   (vlax-for obj (vla-get-activeselectionset (vla-get-activedocument(vlax-get-acad-object)))
  30.     (vla-put-Visible obj :vlax-false)
  31.   )
  32.   (vl-cmdf ".time" "off" "d" "")
  33. )
  34. ;
  35. ;----------------------------------------------------------------
  36. ;0.313秒 ;0.313秒  ;vb方法
  37. (defun c:t3()
  38.     (setq ss (ssget) )
  39.     (vl-cmdf ".time" "r" "on" "d" "")
  40.     (command "-vbarun" "tt")
  41.     (vl-cmdf ".time" "off" "d" "")
  42. )
  43. ;----------------------------------------------------------------
  44. ;|vba程序:
  45. Public Sub tt ()
  46. Dim ss As AcadSelectionSet
  47. Dim i As AcadEntity
  48. Set ss = ThisDrawing.ActiveSelectionSet
  49. For Each i In ss
  50. i.Visible = False
  51. Next i
  52. End Sub
  53. |;


  56. ;1.906秒;1.843秒;1.890秒 ；;改dxf 60组码.
  57. (defun c:test1b (/ ss n ent)
  58.   (setq ss (ssget) n 0)
  59.   (vl-cmdf ".time" "r" "on" "d" "")
  60.   (repeat (setq n (sslength ss))
  61.     (setq ent (ssname ss (setq n(1- n))))
  62.     (entmod (cons '(60 . 1) (entget ent)))
  63.   )
  64.   (vl-cmdf ".time" "off" "d" "")
  65. )
  66. ;19.750秒
  67. (defun c:test ()
  68.   (setq ss (ssget) n 0)
  69.   (vl-cmdf ".time" "r" "on" "d" "")
  70.   (while (< n (sslength ss))
  71.     (setq ent (ssname ss n)
  72.           obj (vlax-ename->vla-object ent))
  73.     (if (vlax-property-available-p obj 'Visible T)
  74.       (if (= (vla-get-visible obj) :vlax-true)
  75.         (vla-put-Visible obj :vlax-false)
  76.       )
  77.     )
  78.     (setq n (1+ n))
  79.   )
  80.   (vl-cmdf ".time" "off" "d" "")
  81. )

  83. ;;以下为恢复所有隐藏实体测试://///////////////////////////////
  84. ;4.094秒；2.547(ss使用过滤)
  85. (defun c:test2 (/ ss n ent)
  86.   (setq ss (ssget "x") n 0)
  87.   (vl-cmdf ".time" "r" "on" "d" "")
  88.   (repeat (setq n (sslength ss))
  89.     (setq ent (ssname ss (setq n(1- n))))
  90.     (vla-put-Visible (vlax-ename->vla-object ent) :vlax-true)
  91.   )
  92.   (vl-cmdf ".time" "off" "d" "")
  93. )

  95. ;4.140秒
  96. (defun c:test2b (/ ss n ent)
  97.   (setq ss (ssget "x") n 0)
  98.   (vl-cmdf ".time" "r" "on" "d" "")
  99.   (repeat (setq n (sslength ss))
  100.     (setq ent (ssname ss (setq n(1- n))))
  101.     (if (= (vla-get-visible (setq obj (vlax-ename->vla-object ent))) :vlax-false)
  102.         (vla-put-Visible obj :vlax-true)
  103.     )
  104.   )
  105.   (vl-cmdf ".time" "off" "d" "")
  106. )


  109. ;1.344秒;1.390秒
  110. (defun c:t4()
  111.     ;(setq ss (ssget "x") )
  112.     (vl-cmdf ".time" "r" "on" "d" "")
  113.     (command "-vbarun" "tt2")
  114.     (vl-cmdf ".time" "off" "d" "")
  115. )
  116. ;----------------------------------------------------------------
  117. ;|vba程序:
  118. Public Sub tt2 ()
  119. Dim ss As AcadSelectionSet
  120. Dim i As AcadEntity
  121. Set ss = ThisDrawing.ActiveSelectionSet
  122. ss.Select acSelectionSetAll
  123. For Each i In ss
  124. i.Visible = True
  125. Next i
  126. End Sub

  128. ;;41.765;41.578
  129. (defun c:test ()
  130. (setq ss (ssget "x") n 0)
  131. (vl-cmdf ".time" "r" "on" "d" "")
  132. (while (< n (sslength ss))
  133. (setq ent (ssname ss n)
  134. obj (vlax-ename->vla-object ent))
  135. (if (vlax-property-available-p obj 'Visible T)
  136. (if (= (vla-get-visible obj) :vlax-false)
  137. (vla-put-Visible obj :vlax-true )
  138. )
  139. )
  140. (setq n (1+ n))
  141. )(vl-cmdf ".time" "off" "d" "")
  142. )
  143. |;

  145. ;0.813秒;0.843秒 ;ss使用过滤.
  146. (defun c:t4b ()
  147.     (setq ss (ssget "x" '((60 . 1))))
  148.     (vl-cmdf ".time" "r" "on" "d" "")
  149.     (command "-vbarun" "tt3")
  150.     (vl-cmdf ".time" "off" "d" "")
  151. )
  152. ;----------------------------------------------------------------
  153. ;|vba程序:
  154. Public Sub tt3 ()
  155. Dim ss As AcadSelectionSet
  156. Dim i As AcadEntity
  157. Set ss = ThisDrawing.ActiveSelectionSet
  158. For Each i In ss
  159. i.Visible = True
  160. Next i
  161. End Sub
  162. |;

  164. 补充eachy的程序测试:
  165. ;; by eachy
  166. (defun Ea:OnOffObj (ss mode / ent obj sl n)
  167.   (if (= (type ss) 'PICKSET)
  168.     (progn
  169.       (vlax-map-collection
  170.         (vla-get-activeselectionset
  171.           (vla-get-activedocument (vlax-get-acad-object))
  172.         )
  173.         '(lambda (x) (vla-put-visible x mode))
  174.       )
  175.     )
  176.   )
  177. )
  178. ;;隐藏实体 1.188秒 ;1.187秒
  179. (defun c:Ea:HideObj (/ s t0 t1)
  180.   (princ "\n选择隐藏实体.....")
  181.   (setq s (ssget))
  182.   (vl-cmdf ".time" "r" "on" "d" "");;;;;
  183.   (ea:onoffobj s :vlax-false)
  184.   (vl-cmdf ".time" "off" "d" "")
  185.   (princ)
  186. )
  187. ;;显示全部实体 1.844秒 ;1.813秒  
  188. ;;选集使用过滤速度有明显提高!!! (setq s (ssget "x" '((60 . 1))))
  189. (defun c:Ea:ShowALL (/ s t0 t1)
  190.   (setq s (ssget "x" '((60 . 1))))
  191.   (vl-cmdf ".time" "r" "on" "d" "")
  192.   (ea:onoffobj s :vlax-true)
  193.   (vl-cmdf ".time" "off" "d" "")
  194.   (princ)
  195. )
  196. ;;;!!!补充测试:使用xdapi>>>>
  197. ;0.109秒;0.094秒.
  198. (defun c:x1 (/ s)
  199.   (setq s (ssget))
  200.   (vl-cmdf ".time" "r" "on" "d" "")
  201.   (xdrx_entity_setvisible s nil)
  202.   (vl-cmdf ".time" "off" "d" "")
  203. )
  204. ;0.406秒，0.422秒
  205. (defun c:x2 (/ s)
  206.   (setq s (ssget "x" '((60 . 1))))
  207.   (vl-cmdf ".time" "r" "on" "d" "")
  208.   (xdrx_entity_setvisible s t)
  209.   (vl-cmdf ".time" "off" "d" "")
  210. )


测试结论(注：结论仅作为参考，不保证所有情况下适用):

1 。vb比vlsp，lsp效率有明显提高。
2。vl中使用activeselectionset效率比未使用略有提高(约1/3)。
   如未使用，Visible方法和改60组码速度差不多.（改60略慢，仅对隐藏测试，恢复隐藏未测试）
3.使用vlax-property-available-p 速度被明显拉下来.
4.使用XDRX_API，效率有质的提高，甚至隐藏用时为vba的1/3,恢复为vba的1/2.
setq, time, cmdf

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2004-5-9 00:40:33 | 显示全部楼层
速度可以忍受，当然和机器的配置有关。

我的工具集中隐藏/显示实体的程序

使用中的两个发现

1 在这个应用中vlax-map-collection 比vlax-for 效率略有提高，很少
2 vlax-ename->vla-object 是比较耗时间的，在利用 vlax-curve 部分函数时，直接用while 和 实体名 比 转换或者 vlax-for 效率要高很多

  3. (defun Ea:OnOffObj (ss mode / ent obj sl n)
  4.   (if (= (type ss) 'PICKSET)
  5.     (progn
  6.       (vlax-map-collection
  7.         (vla-get-activeselectionset
  8.           (vla-get-activedocument (vlax-get-acad-object))
  9.         )
  10.         '(lambda (x) (vla-put-visible x mode))
  11.       )
  12.     )
  13.   )
  14. )
  15. ;;隐藏实体
  16. (defun c:Ea:HideObj (/ s t0 t1)
  17.   (princ "\n选择隐藏实体.....")
  18.   (setq s (ssget))
  19.   (ea:onoffobj s :vlax-false)
  20.   (vl-cmdf ".time" "off" "d" "")
  21.   (princ)
  22. )
  23. ;;显示全部实体
  24. (defun c:Ea:ShowALL (/ s t0 t1)
  25.   (setq s (ssget "x" '((60 . 1))))
  26.   (vl-cmdf ".time" "r" "on" "d" "")
  27.   (ea:onoffobj s :vlax-true)
  28.   (vl-cmdf ".time" "off" "d" "")
  29.   (princ)
  30. )


  3. 命令: ea:hideobj

  5. 选择隐藏实体.....
  6. 选择对象: 指定对角点: 找到 27973 个

  8. 选择对象:

  10. 当前时间:                 2004年5月9日 于 0:36:43:906 下午
  11. 此图形的各项时间统计:
  12.   创建时间:               2000年3月22日 于 15:03:48:210 下午
  13.   上次更新时间:           2004年5月8日 于 23:52:45:093 下午
  14.   累计编辑时间:           8 天 19:16:34.686
  15.   消耗时间计时器 (开):    0 天 00:00:00.031
  16.   下次自动保存时间:       0 天 00:00:00.000

  18. 当前时间:                 2004年5月9日 于 0:36:46:609 下午
  19. 此图形的各项时间统计:
  20.   创建时间:               2000年3月22日 于 15:03:48:210 下午
  21.   上次更新时间:           2004年5月8日 于 23:52:45:093 下午
  22.   累计编辑时间:           8 天 19:16:37.389
  23.   消耗时间计时器 (关):   [color=red] 0 天 00:00:02.734[/color]
  24.   下次自动保存时间:       0 天 00:00:00.000
  25. 27973


  28. 命令: ea:showall

  30. 当前时间:                 2004年5月9日 于 0:38:06:968 下午
  31. 此图形的各项时间统计:
  32.   创建时间:               2000年3月22日 于 15:03:48:210 下午
  33.   上次更新时间:           2004年5月8日 于 23:52:45:093 下午
  34.   累计编辑时间:           8 天 19:17:57.748
  35.   消耗时间计时器 (开):    0 天 00:00:00.015
  36.   下次自动保存时间:       0 天 00:09:59.984

  38. 当前时间:                 2004年5月9日 于 0:38:09:500 下午
  39. 此图形的各项时间统计:
  40.   创建时间:               2000年3月22日 于 15:03:48:210 下午
  41.   上次更新时间:           2004年5月8日 于 23:52:45:093 下午
  42.   累计编辑时间:           8 天 19:18:00.280
  43.   消耗时间计时器 (关):   [color=red] 0 天 00:00:02.547[/color]
  44.   下次自动保存时间:       0 天 00:09:57.453
  45. 27973
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2004-5-9 01:19:04 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
再来一个 xdapi 的

  3. (defun c:t1 (/ s)
  4.   (setq s (ssget))
  5.   (vl-cmdf ".time" "r" "on" "d" "")
  6.   (xdrx_entity_setvisible s nil)
  7.   (vl-cmdf ".time" "off" "d" "")
  8. )
  9. (defun c:t2 (/ s)
  10.   (setq s (ssget "x" '((60 . 1))))
  11.   (vl-cmdf ".time" "r" "on" "d" "")
  12.   (xdrx_entity_setvisible s t)
  13.   (vl-cmdf ".time" "off" "d" "")
  14. )

运行效果

  2. 命令: t1
  3. 选择对象: 指定对角点: 找到 27973 个

  5. 选择对象:

  7. 当前时间:                 2004年5月9日 于 1:13:57:453 下午
  8. 此图形的各项时间统计:
  9.   创建时间:               2000年3月22日 于 15:03:48:210 下午
  10.   上次更新时间:           2004年5月8日 于 23:52:45:093 下午
  11.   累计编辑时间:           8 天 19:53:48.248
  12.   消耗时间计时器 (开):    0 天 00:00:00.031
  13.   下次自动保存时间:       0 天 00:08:11.172

  15. 当前时间:                 2004年5月9日 于 1:13:58:140 下午
  16. 此图形的各项时间统计:
  17.   创建时间:               2000年3月22日 于 15:03:48:210 下午
  18.   上次更新时间:           2004年5月8日 于 23:52:45:093 下午
  19.   累计编辑时间:           8 天 19:53:48.936
  20.   消耗时间计时器 (关):    [color=red]0 天 00:00:00.703[/color]
  21.   下次自动保存时间:       0 天 00:08:10.484
  22. T

  24. 命令: t2

  26. 当前时间:                 2004年5月9日 于 1:14:17:375 下午
  27. 此图形的各项时间统计:
  28.   创建时间:               2000年3月22日 于 15:03:48:210 下午
  29.   上次更新时间:           2004年5月8日 于 23:52:45:093 下午
  30.   累计编辑时间:           8 天 19:54:08.155
  31.   消耗时间计时器 (开):    0 天 00:00:00.016
  32.   下次自动保存时间:       0 天 00:07:51.266

  34. 当前时间:                 2004年5月9日 于 1:14:17:890 下午
  35. 此图形的各项时间统计:
  36.   创建时间:               2000年3月22日 于 15:03:48:210 下午
  37.   上次更新时间:           2004年5月8日 于 23:52:45:093 下午
  38.   累计编辑时间:           8 天 19:54:08.670
  39.   消耗时间计时器 (关):    [color=red]0 天 00:00:00.531[/color]
  40.   下次自动保存时间:       0 天 00:07:50.750
  41. T
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

conn
发表于 2004-5-10 11:14:14 | 显示全部楼层
好像不用那么复杂 提供一个选择变不可见
(defun c:text()(setq ss (ssget))
(setq i 0)
(while (<= i (sslength ss))
(setq abc (ssname SS i))
(redraw abc 2)
(setq i (+ 1 i))
))

测试一下
恢复可见命令regen
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

snsj
发表于 2004-5-10 12:04:20 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
conn 你的不可见程序和陌生人/EA讨论的是完全不同的，如果任何触动REGEN的外挂或者命令都可能触发显示的，比如对一个由于某种疾病引起痛痒的病人，上面的程序就是讨论如何用最短的疗程根除引起痛痒的病根，REDRAW的方法就是在痒的时候挠挠
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

陌生人
 楼主| 发表于 2004-5-10 14:38:25 | 显示全部楼层
用 text作为命令名是不明智的（应为test吧？），我见你贴了两次，第一次我想也许是笔误，第二次贴还这样#E$% 。。。。。
用redraw方法，只要regen就重显，但有时候我们希望regen时候也不重显，这就需要象我和eachy讨论的这种程序了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-27 13:41 , Processed in 0.191958 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表