设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › 源码共享 › 菜单系统的加载速度问题
返回列表 发新帖
查看: 330|回复: 1

菜单系统的加载速度问题

[复制链接]
尘缘一生
发表于 2024-3-9 21:26 | 显示全部楼层 |阅读模式
本帖最后由 尘缘一生 于 2024-3-12 10:54 编辑

下面以《三领设计 V3.0》菜单系统测试如下：

一：主要以COMMAND 方式写法
这种写法，速度较慢，但慢的不明显，差别不大，较低版本CAD支持广泛
  2. ;;删除菜单----(一级)------
  3. (defun delmenu ()
  4.   (sl:del-fil (strcat sl-path0 "\" "SLMENU.cuix"))
  5.   (sl:del-fil (strcat sl-path0 "\" "SLMENU.bak.cuix"))
  6.   (sl:del-fil (strcat sl-path0 "\" "SLMENU.mns"))
  7.   (sl:del-fil (strcat sl-path0 "\" "SLMENU.mnr"))
  8.   (sl:del-fil (strcat sl-path0 "\" "SLMENU_light.mnr"))
  9. )
  10. ;;菜单显示程序----(一级)------
  11. (defun slmenuk (/ i menuk k1 k2 k3 k4 k5 k6 k7 k8 k9 k10 k11 s1)
  12.   (setq
  13.     k1 (slmsg "下拉MENU" "┰MENU" "downMENU")
  14.     k2 (slmsg "图标菜单" "瓜夹垫虫" "IconMenu")
  15.     k3 (slmsg "展开" "甶秨" "open")
  16.     k4 (slmsg "开" "秨" "open")
  17.     k5 (slmsg "关" "闽" "close")
  18.     k6 (slmsg "SL-绘制" "SL-酶籹" "SL-draw")
  19.     k7 (slmsg "SL-钢筋" "SL-葵惮" "SL-steelbar")
  20.     k8 (slmsg "SL-查询-缩放" "SL-琩高-罽" "SL-query-zoom")
  21.     k9 (slmsg "SL-编辑" "SL-絪胯" "SL-edit")
  22.     k10 (slmsg "SL-常用" "SL-盽ノ" "SL-Common")
  23.     k11 (slmsg "SL-文件" "SL-ゅン" "SL-file")
  24.   )
  25.   (setq menuk (readkey (strcat sl-path0 "\" "main.ini") k2))
  26.   (command "-toolbar" k11 "S")
  27.   (if (or (= menuk nil) (= menuk k4))
  28.     (progn
  29.       (rwritekey (strcat sl-path0 "\" "main.ini") k2 k4)
  30.       (command "-toolbar" k6 "S") ; 显示工具栏
  31.       (command "-toolbar" k7 "S")
  32.       (command "-toolbar" k8 "S")
  33.       (command "-toolbar" k9 "S")
  34.       (command "-toolbar" k10 "S")
  35.     )
  36.     (progn
  37.       (rwritekey (strcat sl-path0 "\" "main.ini") k2 k5)
  38.       (command "-toolbar" k6 "H")
  39.       (command "-toolbar" k7 "H")
  40.       (command "-toolbar" k8 "H")
  41.       (command "-toolbar" k9 "H")
  42.       (command "-toolbar" k10 "H")
  43.     )
  44.   )
  45.   (setq s1 (readkey (strcat sl-path0 "\" "main.ini") k1))
  46.   (if (or (= s1 nil) (= s1 k3))
  47.     (progn
  48.       (setq s1 k3)
  49.       (rwritekey (strcat sl-path0 "\" "main.ini") k1 k3)
  50.     )
  51.   )
  52.   (if (>= (setq i (vla-get-count (vla-get-menubar *Acad*))) 16) (setq i 16))
  53.   (if (= s1 k3) ;展开
  54.     (progn
  55.       (menucmd (strcat "p" (itoa (1+ i)) "=+SLMENU.POP1"))
  56.       (menucmd (strcat "p" (itoa (+ i 2)) "=+SLMENU.POP2"))
  57.       (menucmd (strcat "p" (itoa (+ i 3)) "=+SLMENU.POP3"))
  58.       (menucmd (strcat "p" (itoa (+ i 4)) "=+SLMENU.POP4"))
  59.       (menucmd (strcat "p" (itoa (+ i 5)) "=+SLMENU.POP5"))
  60.       (menucmd (strcat "p" (itoa (+ i 6)) "=+SLMENU.POP6"))
  61.       (menucmd (strcat "p" (itoa (+ i 7)) "=+SLMENU.POP7"))
  62.       (menucmd (strcat "p" (itoa (+ i 8)) "=+SLMENU.POP8"))
  63.     )
  64.     (menucmd (strcat "p" (itoa (1+ i)) "=+SLMENU.POP1"))
  65.   )  
  66. )
  67. ;;下拉菜单开关--k: t 展开 nil 合并----(一级)----
  68. (defun showxlmenu (k / k1 k2 k3)
  69.   (setq
  70.     k1 (slmsg "下拉MENU" "┰MENU" "downMENU")
  71.     k2 (slmsg "展开" "甶秨" "open")
  72.     k3 (slmsg "合并" "" "close")
  73.   )
  74.   (if (= k t)
  75.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k2)
  76.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k3)
  77.   )
  78.   (menu00)
  79. )
  80. ;;图标菜单开关-----(一级)------
  81. ;;k  t 开 nil 关
  82. (defun opmenu (k / k1 k2 k3)
  83.   (setq
  84.     k1 (slmsg "图标菜单" "瓜夹垫虫" "IconMenu")
  85.     k2 (slmsg "开" "秨" "open")
  86.     k3 (slmsg "关" "闽" "close")
  87.   )
  88.   (if (= k t)
  89.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k2)
  90.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k3)
  91.   )
  92.   (menu00)
  93. )
  94. ;;专业设置--k: t 建筑 nil 机械----(一级)----
  95. (defun showzymenu (k / k1 k2 k3)
  96.   (setq
  97.     k1 (slmsg "专业" "盡穨" "major")
  98.     k2 (slmsg "建筑" "縱" "Architecture")
  99.     k3 (slmsg "机械" "诀瘪" "Mechanical")
  100.   )
  101.   (if (= k t)
  102.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k2)
  103.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k3)
  104.   )
  105.   (menu00)
  106. )
  107. ;;加载菜单------
  108. (defun menu00 (/ s s1 k k1 k2 k3 ofa)
  109.   (setq ofa (getvar "FILEDIA"))
  110.   (setvar "FILEDIA" 0)
  111.   (if (menugroup "SLMENU")
  112.     (command "MENUUNLOAD" "SLMENU")
  113.   )
  114.   (setq
  115.     k1 (slmsg "下拉MENU" "┰MENU" "downMENU")
  116.     k2 (slmsg "专业" "盡穨" "major")
  117.     k3 (slmsg "图标菜单" "瓜夹垫虫" "IconMenu")
  118.   )
  119.   (if (= (readkey (strcat sl-path0 "\" "main.ini") k1) nil)
  120.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 (slmsg "展开" "甶秨" "open"))
  121.   )
  122.   (if (= (readkey (strcat sl-path0 "\" "main.ini") k2) nil)
  123.     (rwritekey (strcat sl-path0 "\" "main.ini") k2 (slmsg "建筑" "縱" "Architecture"))
  124.   )
  125.   (if (= (readkey (strcat sl-path0 "\" "main.ini") k3) nil)
  126.     (rwritekey (strcat sl-path0 "\" "main.ini") k3 (slmsg "开" "秨" "open"))
  127.   )
  128.   (setq k (slmsg "版本" "セ" "version"))
  129.   (cond
  130.     ((getcname "tpscale")
  131.       (setq s (slmsg "天正" "ぱタ" "TianzhengDesign"))
  132.     )
  133.     ((getcname "sascl")
  134.       (setq s (slmsg "浩辰" "疎ò" "TaochenDesign"))
  135.     )
  136.     ((= $Lgver 1) ;简体
  137.       (setq s "简体中文")
  138.     )
  139.     ((= $Lgver 2) ;繁体版
  140.       (setq s "羉砰いゅ")
  141.     )
  142.     ((= $Lgver 3) ;英文
  143.       (setq s "Englishversion")
  144.     )
  145.   )
  146.   (setq s1 (readkey (strcat sl-path0 "\" "main.ini") k))
  147.   (if (or (/= s1 s) (= nil s1))
  148.     (rwritekey (strcat sl-path0 "\" "main.ini") k s)
  149.   )
  150.   (delmenu) ;需要删除
  151.   (cond
  152.     ((= $Lgver 1); (/= (getcname "sascl") nil)) ;;CAD是简体中文版包括浩辰中望
  153.       (load (strcat sl-path0 "\" "Support" "\" "slmenu-bz.VLX"))
  154.     )
  155.     ((= $Lgver 2) ;繁体版
  156.       (load (strcat sl-path0 "\" "Support" "\" "slmenu-ft.VLX"))
  157.     )
  158.     ((= $Lgver 3) ;英文版
  159.       (load (strcat sl-path0 "\" "Support" "\" "slmenu-en.VLX"))
  160.     )
  161.   )
  162.   (command "MENULOAD" (strcat sl-path0 "\" "SLMENU.mns"))
  163.   (slmenuk) ;菜单显示, 此处确保显示正确
  164.   (setvar "FILEDIA" ofa)
  165. )
二：第二种，函数写法
这种写法，较快，但有限，三领系统，快0.1秒，低版本CAD可能支持有问题
  2. ;;======【菜单系统开始】========

  4. ;;菜单列表---(一级)----
  5. ;;返回 ("ACAD" "APPMANAGER" "SLMENU")
  6. (defun sl:MenuGroups-ListAll (/ out)
  7.   (vl-catch-all-apply
  8.     (function
  9.       (lambda ()
  10.         (vlax-for each (vla-get-menugroups *Acad*)
  11.           (setq out (cons (vla-get-name each) out))
  12.         )
  13.       )
  14.     )
  15.   )
  16.   (if out (reverse out) (setq out '("ACAD" "APPMANAGER")))
  17.   out
  18. )
  19. ;;菜单是否存在
  20. ;;(sl:MenuGroup-Exists-p "SLMENU")
  21. ;;返回 2 (菜单序列 0 1 2) 不存在返回nil
  22. (defun sl:MenuGroup-Exists-p (mgroup / lst)
  23.   (setq lst (sl:MenuGroups-ListAll))
  24.   (if (member (strcase mgroup) (mapcar 'strcase lst))
  25.     (vl-position mgroup lst)
  26.   )
  27. )
  28. ;;卸载菜单----(一级)---
  29. ;;(Menu-Unload "SLMENU")
  30. (defun Menu-Unload (mgroup / omg)
  31.   (if (and
  32.         (sl:MenuGroup-Exists-p mgroup)
  33.         (setq omg (vla-item (vla-get-menugroups *Acad*) mgroup))
  34.       )
  35.     (progn
  36.       (vla-unload omg)
  37.       (vlax-release-object omg)
  38.       T
  39.     )
  40.   )
  41. )
  42. ;;加载菜单----(一级)----
  43. ;;(Menu-load "SLMENU")
  44. (defun Menu-load (mgroup)
  45.   (if (not (sl:MenuGroup-Exists-p mgroup))
  46.     (vlax-release-object (vla-load (vla-get-menugroups *Acad*) mgroup))
  47.   )
  48. )
  49. ;;工具条Vla集合---(一级)----
  50. ;;(sl:Toolbars "SLMENU")
  51. (defun sl:Toolbars (mgroup)
  52.   (if (sl:MenuGroup-Exists-p mgroup)
  53.     (vla-get-toolbars (vla-item (vla-get-menugroups *Acad*) (vl-position (strcase mgroup) (mapcar 'strcase (sl:MenuGroups-ListAll)))))
  54.   )
  55. )
  56. ;;工具条列表----(一级)------
  57. ;;(sl:ToolbarsList "SLMENU")->("SL-常用" "SL-文件" "SL-查询-缩放" "SL-编辑" "SL-绘制" "SL-钢筋")
  58. (defun sl:ToolbarsList (mgroup / tb out)
  59.   (if (setq tb (sl:Toolbars mgroup))
  60.     (vlax-for each tb
  61.       (setq out (cons (vla-get-name each) out))
  62.     )
  63.   )
  64.   (if tb (vlax-release-object tb))
  65.   (reverse out)
  66. )
  67. ;;工具条是否存在---(一级)-----
  68. ;;(sl:Toolbar-Exists-p "SLMENU" "SL-钢筋")
  69. ;返回 0 (工具条序列 0 1 2) 不存在返回 nil
  70. (defun sl:Toolbar-Exists-p (mgroup tbname)
  71.   (if (and
  72.         (sl:MenuGroup-Exists-p mgroup)
  73.         (member (strcase tbname) (mapcar 'strcase (sl:ToolbarsList mgroup)))
  74.       )
  75.     (vl-position tbname (sl:ToolbarsList mgroup))
  76.     nil
  77.   )
  78. )
  79. ;;指定工具条----(一级)-------
  80. ;;(sl:Toolbar "SLMENU" "SL-钢筋")
  81. (defun sl:Toolbar (mgroup tbname / loc)
  82.   (if (setq loc (sl:Toolbar-Exists-p mgroup tbname))
  83.     (vla-item (sl:Toolbars mgroup) loc)
  84.     nil
  85.   )
  86. )
  87. ;;显示指定工具条----(一级------
  88. ;;(sl:Toolbar-Show "SLMENU" "SL-钢筋") 将显示SL-钢筋工具条
  89. (defun sl:Toolbar-Show (mgroup tbname / tb)
  90.   (if (and (setq tb (sl:Toolbar mgroup tbname)) (= (vla-get-visible tb) :vlax-false))
  91.     (progn
  92.       (vla-put-visible tb :vlax-true)
  93.       (vlax-release-object tb)
  94.       T
  95.     )
  96.     nil
  97.   )
  98. )
  99. ;;隐藏指定工具条---(一级)-----
  100. ;;(sl:Toolbar-Hide "SLMENU" "SL-钢筋") 将显示SL-钢筋工具条
  101. (defun sl:Toolbar-Hide (mgroup tbname / tb)
  102.   (if (and (setq tb (sl:Toolbar mgroup tbname)) (= (vla-get-visible tb) :vlax-true))
  103.     (progn
  104.       (vla-put-visible tb :vlax-false)
  105.       (vlax-release-object tb)
  106.       T
  107.     )
  108.     nil
  109.   )
  110. )
  111. ;;删除菜单----(一级)------
  112. (defun delmenu ()
  113.   (sl:del-fil (strcat sl-path0 "\" "SLMENU.cuix"))
  114.   (sl:del-fil (strcat sl-path0 "\" "SLMENU.bak.cuix"))
  115.   (sl:del-fil (strcat sl-path0 "\" "SLMENU.mns"))
  116.   (sl:del-fil (strcat sl-path0 "\" "SLMENU.mnr"))
  117.   (sl:del-fil (strcat sl-path0 "\" "SLMENU_light.mnr"))
  118. )
  119. ;;菜单显示程序----(一级)------
  120. (defun slmenuk (/ i menuk k1 k2 k3 k4 k5 k6 k7 k8 k9 k10 k11 s1)
  121.   (setq
  122.     k1 (slmsg "下拉MENU" "┰MENU" "downMENU")
  123.     k2 (slmsg "图标菜单" "瓜夹垫虫" "IconMenu")
  124.     k3 (slmsg "展开" "甶秨" "open")
  125.     k4 (slmsg "开" "秨" "open")
  126.     k5 (slmsg "关" "闽" "close")
  127.     k6 (slmsg "SL-绘制" "SL-酶籹" "SL-draw")
  128.     k7 (slmsg "SL-钢筋" "SL-葵惮" "SL-steelbar")
  129.     k8 (slmsg "SL-查询-缩放" "SL-琩高-罽" "SL-query-zoom")
  130.     k9 (slmsg "SL-编辑" "SL-絪胯" "SL-edit")
  131.     k10 (slmsg "SL-常用" "SL-盽ノ" "SL-Common")
  132.     k11 (slmsg "SL-文件" "SL-ゅン" "SL-file")
  133.   )
  134.   (setq menuk (readkey (strcat sl-path0 "\" "main.ini") k2))
  135.   (sl:Toolbar-Show "SLMENU" k11)
  136.   (if (or (= menuk nil) (= menuk k4))
  137.     (progn
  138.       (rwritekey (strcat sl-path0 "\" "main.ini") k2 k4)
  139.       (sl:Toolbar-Show "SLMENU" k6)
  140.       (sl:Toolbar-Show "SLMENU" k7)
  141.       (sl:Toolbar-Show "SLMENU" k8)
  142.       (sl:Toolbar-Show "SLMENU" k9)
  143.       (sl:Toolbar-Show "SLMENU" k10)
  144.     )
  145.     (progn
  146.       (rwritekey (strcat sl-path0 "\" "main.ini") k2 k5)
  147.       (sl:Toolbar-Hide "SLMENU" k6)
  148.       (sl:Toolbar-Hide "SLMENU" k7)
  149.       (sl:Toolbar-Hide "SLMENU" k8)
  150.       (sl:Toolbar-Hide "SLMENU" k9)
  151.       (sl:Toolbar-Hide "SLMENU" k10)
  152.     )
  153.   )
  154.   (setq s1 (readkey (strcat sl-path0 "\" "main.ini") k1))
  155.   (if (or (= s1 nil) (= s1 k3))
  156.     (progn
  157.       (setq s1 k3)
  158.       (rwritekey (strcat sl-path0 "\" "main.ini") k1 k3)
  159.     )
  160.   )
  161.   (if (>= (setq i (vla-get-count (vla-get-menubar *Acad*))) 16) (setq i 16))
  162.   (if (= s1 k3) ;展开
  163.     (progn
  164.       (menucmd (strcat "p" (itoa (1+ i)) "=+SLMENU.POP1"))
  165.       (menucmd (strcat "p" (itoa (+ i 2)) "=+SLMENU.POP2"))
  166.       (menucmd (strcat "p" (itoa (+ i 3)) "=+SLMENU.POP3"))
  167.       (menucmd (strcat "p" (itoa (+ i 4)) "=+SLMENU.POP4"))
  168.       (menucmd (strcat "p" (itoa (+ i 5)) "=+SLMENU.POP5"))
  169.       (menucmd (strcat "p" (itoa (+ i 6)) "=+SLMENU.POP6"))
  170.       (menucmd (strcat "p" (itoa (+ i 7)) "=+SLMENU.POP7"))
  171.       (menucmd (strcat "p" (itoa (+ i 8)) "=+SLMENU.POP8"))
  172.     )
  173.     (menucmd (strcat "p" (itoa (1+ i)) "=+SLMENU.POP1"))
  174.   )  
  175. )
  176. ;;下拉菜单开关--k: t 展开 nil 合并----(一级)----
  177. (defun showxlmenu (k / k1 k2 k3)
  178.   (setq
  179.     k1 (slmsg "下拉MENU" "┰MENU" "downMENU")
  180.     k2 (slmsg "展开" "甶秨" "open")
  181.     k3 (slmsg "合并" "" "close")
  182.   )
  183.   (if (= k t)
  184.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k2)
  185.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k3)
  186.   )
  187.   (delmenu)
  188.   (menu00)
  189. )
  190. ;;图标菜单开关-----(一级)------
  191. ;;k  t 开 nil 关
  192. (defun opmenu (k / k1 k2 k3)
  193.   (setq
  194.     k1 (slmsg "图标菜单" "瓜夹垫虫" "IconMenu")
  195.     k2 (slmsg "开" "秨" "open")
  196.     k3 (slmsg "关" "闽" "close")
  197.   )
  198.   (if (= k t)
  199.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k2)
  200.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k3)
  201.   )
  202.   (delmenu)
  203.   (menu00)
  204. )
  205. ;;专业设置--k: t 建筑 nil 机械----(一级)----
  206. (defun showzymenu (k / k1 k2 k3)
  207.   (setq
  208.     k1 (slmsg "专业" "盡穨" "major")
  209.     k2 (slmsg "建筑" "縱" "Architecture")
  210.     k3 (slmsg "机械" "诀瘪" "Mechanical")
  211.   )
  212.   (if (= k t)
  213.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k2)
  214.     (rwritekey (strcat sl-path0 "\" "main.ini") k1 k3)
  215.   )
  216.   (delmenu)
  217.   (menu00)
  218. )
  219. ;;加载菜单------
  220. (defun menu00 (/ s s1 k k1 k2 k3)
  221.   (if (not (menugroup "SLMENU"))
  222.     (progn
  223.       (setq
  224.         k1 (slmsg "下拉MENU" "┰MENU" "downMENU")
  225.         k2 (slmsg "专业" "盡穨" "major")
  226.         k3 (slmsg "图标菜单" "瓜夹垫虫" "IconMenu")
  227.       )
  228.       (if (= (readkey (strcat sl-path0 "\" "main.ini") k1) nil)
  229.         (rwritekey (strcat sl-path0 "\" "main.ini") k1 (slmsg "展开" "甶秨" "open"))
  230.       )
  231.       (if (= (readkey (strcat sl-path0 "\" "main.ini") k2) nil)
  232.         (rwritekey (strcat sl-path0 "\" "main.ini") k2 (slmsg "建筑" "縱" "Architecture"))
  233.       )
  234.       (if (= (readkey (strcat sl-path0 "\" "main.ini") k3) nil)
  235.         (rwritekey (strcat sl-path0 "\" "main.ini") k3 (slmsg "开" "秨" "open"))
  236.       )
  237.       (setq k (slmsg "版本" "セ" "version"))
  238.       (cond
  239.         ((getcname "tpscale")
  240.           (setq s (slmsg "天正" "ぱタ" "TianzhengDesign"))
  241.         )
  242.         ((getcname "sascl")
  243.           (setq s (slmsg "浩辰" "疎ò" "TaochenDesign"))
  244.         )
  245.         ((= $Lgver 1) ;简体
  246.           (setq s "简体中文")
  247.         )
  248.         ((= $Lgver 2) ;繁体版
  249.           (setq s "羉砰いゅ")
  250.         )
  251.         ((= $Lgver 3) ;英文
  252.           (setq s "Englishversion")
  253.         )
  254.       )
  255.       (setq s1 (readkey (strcat sl-path0 "\" "main.ini") k))
  256.       (if (or (/= s1 s) (= nil s1))
  257.         (rwritekey (strcat sl-path0 "\" "main.ini") k s)
  258.       )
  259.       (delmenu) ;需要删除
  260.       (cond
  261.         ((= $Lgver 1); (/= (getcname "sascl") nil)) ;;CAD是简体中文版包括浩辰中望
  262.           (load (strcat sl-path0 "\" "Support" "\" "slmenu-bz.VLX"))
  263.         )
  264.         ((= $Lgver 2) ;繁体版
  265.           (load (strcat sl-path0 "\" "Support" "\" "slmenu-ft.VLX"))
  266.         )
  267.         ((= $Lgver 3) ;英文版
  268.           (load (strcat sl-path0 "\" "Support" "\" "slmenu-en.VLX"))
  269.         )
  270.       )
  271.       (Menu-load (strcat sl-path0 "\" "SLMENU.mns"))
  272.       (slmenuk) ;菜单显示, 此处确保显示正确
  273.       ;(command "MENULOAD" (strcat sl-path0 "\" "SLMENU.mns"))
  274.     )
  275.     (progn (Menu-Unload "SLMENU") (menu00))
  276.   )
  277. );(setq sl-path0 "d:\\三领设计")
  278. (setq date1 (getvar "MILLISECS"))
  279. (menu00)
  280. (prompt (strcat (slmsg "耗时" "" "Time consuming") (rtos (/ (- (getvar "MILLISECS") date1) 1000.000) 2 3) (slmsg "秒" "" "seconds")))



回复

使用道具 举报

zhangkui9070
发表于 2024-3-10 15:20 | 显示全部楼层
感谢分享，受益颇多
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-5-2 21:47 , Processed in 0.256421 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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