明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 867|回复: 0

[提问] 关于标注冲突的问题

[复制链接]
发表于 2015-3-31 11:44 | 显示全部楼层 |阅读模式
在论坛中看见有几位兄弟的标注源码,觉得对自己很有用,就抄了过来修改了一下,可是学艺不精,有冲突啊,请各位大神给改一下,谢谢
代码设想初衷,建立必要的系统变量,字体,标注样式,以统一图纸,使得规范,认图方便,
原设想要求,建立1:100, 1:50, 1:25, 1:20, 1:10, 这几种标注,为区分它们,修改标注的文字颜色以达到目的,
现在的情况是1:100, 和 1:10,有冲突,想标注1:100 有时却标注的是1:10, 并且这几种的标注尺寸线颜色混乱,我原设想的是除了字体的颜色改变外,其它的颜色都是绿色,经常在探索者中画图,它的下面有一个绘图比例需要手动修改,能不能把我的命令修改成和他的绘图比例进行联动,要不然我想标注1:100, 但是他的绘图比例是1:10 时,也是按照1:10 标注的,其它的比例亦然,下面是我修改的代码,请各位大神给改一下,谢谢
  1. ;0-初始化-csh
  2. ;csh.lsp
  3. ;对CAD绘图的环境进行初始化,建立必要的字体和标注样式
  4. ;2014/08/07 by wjnnan 整理
  5. ;感谢原作者wxh5330 和 tranney

  6. (defun c:csh ( / orig_blip orig_cmd orig_osnap orig_layer); 指定函式名称
  7.        (prinC "\n绘图环境初始化开始")
  8.        (setvar "CURSORSIZE" 100)             ;将屏幕十字光标的大小设为100%
  9.        (setvar "ACADLSPASDOC" 1)             ;将 acad.lsp 载入到每一个打开的图形中
  10.        (setvar "ANGDIR" 1)                   ;设置正角度的方向为顺时针
  11.        (setvar "AUNITS" 0)                   ;设置角度单位为十进位度数
  12.        (setvar "CMLSCALE" 20.0000)           ;设线宽为公制              
  13.        (setvar "GRIDMODE" 0)                 ;关闭栅格
  14.        ;(setvar "LTSCALE" 1.0000)             ;设置全局线型比例为1.0000
  15.        (setvar "LUNITS" 2)                   ;设置线性单位为小数
  16.        (setvar "LWDISPLAY" 1)                ;显示线宽
  17.        (setvar "LWDEFAULT" 25)               ;设置默认线宽的值为25
  18.        (setvar "LWUNITS" 1)                  ;设线宽单位以毫米显示
  19.        (setvar "MEASUREINIT" 1)              ;设置初始图形单位为公制
  20.        (setvar "PSLTSCALE" 1)                ;设图纸空间的线型比例为1:1
  21.        (setvar "SNAPMODE" 0)                 ;关闭"捕捉"方式
  22.        (setvar "TOOLTIPS" 1)                 ;显示工具栏提示
  23.        (setvar "TRACEWID" 0.2)               ;设置宽线的默认宽度为0.2MM
  24.        (setvar "TRAYICONS" 1)                ;控制是否在状态栏上显示系统托盘
  25.        (setvar "TRAYNOTIFY" 1)               ;控制是否在状态栏系统托盘上显示服务通知
  26.        (setvar "ISAVEBAK" 1)                 ;控制备份文件 (BAK) 的创建。    1,创建    0,不创建         
  27.        (setvar "SAVETIME" 15)                ;设置自动保存时间
  28.        ;(setvar "VIEWRES" 5000)               ;设置圆弧和圆的平滑度
  29.        (setvar "FILEDIA" 1)                  ;0,为命令行提示;1,为对话框提示
  30. (setvar "APERTURE" 25)                ;以像素为单位设置靶框显示尺寸。靶框是绘图命令中使用的选择工具。初始值:10
  31.        (setvar "PICKBOX" 8)                  ;控制拾取框大小
  32.        (setvar "Vtenable" 0)                 ;窗口缓冲速度
  33.        (setvar "qaflags" 0)                  ;取消选择先后顺序
  34.        (setenv "DefaultFormatForSave" "24") ;设置默认保存格式2004 24的16进制=0x18 格式2000 12的16进制=0x0C 格式R12 1的16进制=01
  35.        (COMMAND  "OSMODE"  "4279" )           ;常用捕捉打开
  36.        (command "VIEWRES" "y" 5000 )          ;设置圆弧和圆的平滑度
  37.     (setq orig_blip (getvar "blipmode")); 获取系统变数的初始值
  38.     (setq orig_cmd (getvar "cmdecho"))
  39.     (setq orig_osnap (getvar "osmode"))
  40.     (setq orig_layer (getvar "clayer"))
  41.     (setvar "blipmode" 0); 设置系统变数
  42.     (setvar "cmdecho" 0)
  43.     (setvar "osmode" 0)





  44. ;判断及创建字体
  45. (defun csh_sty()
  46.   (if (= (tblsearch "style" "TSSD_Rein") nil)
  47.     (progn
  48.       (princ "\n建立TSSD_Rein字体并设为当前")
  49.       (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")
  50.     )
  51.     (progn
  52.        (command "style" "TSSD_Rein" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "")
  53.       
  54.       (princ "\n检测到TSSD_Rein字体,将其设为当前。")
  55.     )
  56.   )
  57. (if (= (tblsearch "STYLE" "hz") nil);"判断hz字型是否存在"      
  58.   (command "style" "hz" "txt.shx,hztxt.shx" 250 0.7 0 "n" "n" "n");"设置字型hz"
  59.   )

  60. (if (= (tblsearch "STYLE" "hx") nil);"判断hx字型是否存在"   
  61.   (command "style" "hx" "huaxin.shx,hxhztxt.shx" 250 0.7 0 "n" "n" "n");"设置字型hx"
  62.   )

  63. (if (= (tblsearch "STYLE" "STANDARD") nil);"判断hx字型是否存在"   
  64.    (command "style" "STANDARD" "tssdeng.shx,hztxt.shx" "0.0" "0.7" "" "" "" "");"设置字型STANDARD"
  65.   )
  66. )






  67. ;建立DIM层,归并标注到DIM层
  68. (defun csh_bzgc(/ s2)
  69.    (setvar "cmdecho" 0)
  70. ;;这部分:确定是否建立新图层
  71.    (if (= (tblsearch "layer" "DIM") nil) ;检查DIM层是否存在
  72. (command "layer" "m" "DIM" "c" "3" "" "lt" "CONTINUOUS" "" ""));if
  73. ;;;这部分主程序
  74.    (setq s2 (ssget "X" '((-4 . "<or")(0 . "leader")(0 . "dimension")(0 . "arc_dimension")(-4 . "or>"))))
  75.    (if (= s2 nil) (princ "")
  76.        (progn
  77.           (command "change" s2 "" "P" "la" "0" ""   ;改变对象图层
  78.                           "_setbylayer" s2 "" "y" "y"      ;线型改为随层
  79.                           "change" s2 "" "P" "la" "DIM" "")  ;改变对象图层
  80.         );progn
  81.     );if   
  82.    (princ)
  83. );defun


  84. ;建立建筑标注标注界限块
  85. (defun dimblk1(/ p1 p2 mp p3 p4 ent1 ent2 ifdimblk )
  86.   (setq p1 (list 0 0)
  87. p2 (polar p1 (* 0.25 pi) 2)
  88. mp (list (* 0.5 (car p2)) (* 0.5 (cadr p2)))
  89. p3(list (- (car mp) 1.5) (cadr mp))
  90. p4(list (+ (car mp) 1.5) (cadr mp))
  91.    )
  92.   (command "line" p3 p4 "")
  93.   (setq ent1 (entlast))
  94.   (command "pline" p1 "w" 0.5 0.5 p2 "")
  95.   (setq ent2 (entlast))
  96.   (setq ifdimblk (tblsearch "block" "ccjzDIM"))
  97.   (if ifdimblk (command "block" "ccjzDIM" "y" mp ent1 ent2 "")
  98.                (command "block" "ccjzDIM" mp ent1 ent2 "")
  99.   )
  100.   (princ)
  101. )


  102. ;标注部分设置
  103. (defun csh_ccbz (/ cm)
  104.   (setq cm (getvar "cmdecho"))
  105.   ;(setvar "cmdecho" 0)
  106.   (csh_sty)
  107.   (dimblk1)
  108.   (if (= (tblsearch "dimstyle" "TSSD_100_100") nil)
  109.     (progn (command "dimstyle" "s" "TSSD_100_100")
  110.     (setvar "DIMDSEP" ".") ;小数分隔符
  111.     (setvar "DIMADEC" 1)  ;角度小数位数
  112.     (setvar "DIMALT" 0)  ;选定的换算单位
  113.     (setvar "DIMALTD" 2)  ;换算单位小数位数
  114.     (setvar "DIMALTF" 25.4000) ;换算单位比例因子
  115.     (setvar "DIMALTRND" 0.0000) ;换算单位舍入值
  116.     (setvar "DIMALTTD" 2) ;换算公差小数位数
  117.     (setvar "DIMALTTZ" 0) ;换算公差消零
  118.     (setvar "DIMALTU" 2)  ;换算单位
  119.     (setvar "DIMALTZ" 0)  ;换算单位消零
  120.     (setvar "DIMASZ" 80) ;箭头大小
  121.     (setvar "DIMATFIT" 3) ;箭头和文字调整
  122.     (setvar "DIMAUNIT" 0) ;角度单位格式
  123.     (setvar "DIMAZIN" 2)  ;角度消零
  124.     (setvar "DIMBLK" "ccjzDIM") ;箭头块名
  125.     (setvar "DIMBLK1" "ccjzDIM") ;第一个箭头块名
  126.     (setvar "DIMBLK2" "ccjzDIM") ;第二个箭头块名
  127.     (setvar "DIMCEN" 0.0900) ;圆心标记大小
  128.     (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
  129.     (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
  130.     (setvar "DIMCLRT" 7)  ;标注文字颜色(白色)
  131.     (setvar "DIMDEC" 0)  ;小数位数
  132.     (setvar "DIMDLE" 0.0000) ;尺寸线
  133.     (setvar "DIMDLI" 0.0000) ;尺寸线间距
  134.     (setvar "DIMEXE" 100) ;尺寸界线在尺寸线上
  135.     (setvar "DIMEXO" 100) ;尺寸界线原点偏移
  136.     (setvar "DIMFRAC" 0)  ;分数格式
  137.     (setvar "DIMGAP" 50) ;尺寸线和文字的间距
  138.     (setvar "DIMJUST" 0)  ;尺寸线上的文字对正
  139.     (setvar "DIMLDRBLK" ".") ;引线块名
  140.     (setvar "DIMLFAC" (getvar "DIMLFAC")) ;线性单位比例因子
  141.     (setvar "DIMLIM" 0)  ;生成标注界限
  142.     (setvar "DIMLUNIT" 2) ;线性单位格式
  143.     (setvar "DIMLWD" -2)  ;尺寸线和引线线宽
  144.     (setvar "DIMLWE" -2)  ;尺寸界线线宽
  145.     (setvar "DIMRND" 0.0000) ;舍入值
  146.     (setvar "DIMSAH" 0)  ;独立的箭头块
  147.     (setvar "DIMSCALE" (getvar "dimscale")) ;全局比例因子
  148.     (setvar "DIMSD1" 0)  ;隐藏第一条尺寸线
  149.     (setvar "DIMSD2" 0)  ;隐藏第二条尺寸线
  150.     (setvar "DIMSE1" 0)  ;隐藏第一条尺寸界线
  151.     (setvar "DIMSE2" 0)  ;隐藏第二条尺寸界线
  152.     (setvar "DIMSOXD" 0)  ;隐藏外侧尺寸线
  153.     (setvar "DIMTAD" 1)         ;文字位于尺寸线上方
  154.     (setvar "DIMTDEC" 1)  ;公差小数位数
  155.     (setvar "DIMTFAC" 1.0000) ;公差文字高度比例因子
  156.     (setvar "DIMTIH" 0)  ;尺寸界线内侧的文字水平放置
  157.     (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
  158.     (setvar "DIMTM" 0.0000) ;下偏差
  159.     (setvar "DIMTMOVE" 2) ;文字移动
  160.     (setvar "DIMTOFL" 1)  ;强制在尺寸界线内侧画尺寸线
  161.     (setvar "DIMTOH" 0)  ;外侧文字水平放置
  162.     (setvar "DIMTOL" 0)  ;公差标注
  163.     (setvar "DIMTOLJ" 1)  ;公差垂直对齐
  164.     (setvar "DIMTP" 0.0000) ;上偏差
  165.     (setvar "DIMTSZ" 0.0000) ;标记大小
  166.     (setvar "DIMTVP" 0.0000) ;文字垂直位置
  167.     (setvar "DIMTXSTY" "TSSD_Rein") ;文字样式
  168.     (setvar "DIMTXT" 300) ;文字高度
  169.     (setvar "DIMTZIN" 0)  ;公差消零
  170.     (setvar "DIMUPT" 0)  ;用户定位的文字
  171.     (setvar "DIMZIN" 8)  ;消零
  172.     (princ "\n已新建标注样式TSSD_100_100,该样式符合本院标准,默认全局比例为1,修改比例请输入DIMSCALE。")
  173.     )
  174.     (progn
  175. ;;;      (command "dimstyle" "s" "TSSD_100_100")
  176.       (setvar "DIMDSEP" ".")  ;小数分隔符
  177.       (setvar "DIMADEC" 1)  ;角度小数位数
  178.       (setvar "DIMALT" 0)  ;选定的换算单位
  179.       (setvar "DIMALTD" 2)  ;换算单位小数位数
  180.       (setvar "DIMALTF" 25.4000) ;换算单位比例因子
  181.       (setvar "DIMALTRND" 0.0000) ;换算单位舍入值
  182.       (setvar "DIMALTTD" 2)  ;换算公差小数位数
  183.       (setvar "DIMALTTZ" 0)  ;换算公差消零
  184.       (setvar "DIMALTU" 2)  ;换算单位
  185.       (setvar "DIMALTZ" 0)  ;换算单位消零
  186.       (setvar "DIMASZ" 80)  ;箭头大小
  187.       (setvar "DIMATFIT" 3)  ;箭头和文字调整
  188.       (setvar "DIMAUNIT" 0)  ;角度单位格式
  189.       (setvar "DIMAZIN" 2)  ;角度消零
  190.       (setvar "DIMBLK" "ccjzDIM")  ;箭头块名
  191.       (setvar "DIMBLK1" "ccjzDIM")  ;第一个箭头块名
  192.       (setvar "DIMBLK2" "ccjzDIM")  ;第二个箭头块名
  193.       (setvar "DIMCEN" 0.0900)  ;圆心标记大小
  194.       (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
  195.       (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
  196.       (setvar "DIMCLRT" 7)  ;标注文字颜色(白色)
  197.       (setvar "DIMDEC" 0)  ;小数位数
  198.       (setvar "DIMDLE" 0.0000)  ;尺寸线
  199.       (setvar "DIMDLI" 0.0000)  ;尺寸线间距
  200.       (setvar "DIMEXE" 100)  ;尺寸界线在尺寸线上
  201.       (setvar "DIMEXO" 100)  ;尺寸界线原点偏移
  202.       (setvar "DIMFRAC" 0)  ;分数格式
  203.       (setvar "DIMGAP" 50)  ;尺寸线和文字的间距
  204.       (setvar "DIMJUST" 0)  ;尺寸线上的文字对正
  205.       (setvar "DIMLDRBLK" ".")  ;引线块名
  206.       (setvar "DIMLFAC" (getvar "DIMLFAC"))  ;线性单位比例因子
  207.       (setvar "DIMLIM" 0)  ;生成标注界限
  208.       (setvar "DIMLUNIT" 2)  ;线性单位格式
  209.       (setvar "DIMLWD" -2)  ;尺寸线和引线线宽
  210.       (setvar "DIMLWE" -2)  ;尺寸界线线宽
  211.       (setvar "DIMRND" 0.0000)  ;舍入值
  212.       (setvar "DIMSAH" 0)  ;独立的箭头块
  213.       (setvar "DIMSCALE" (getvar "dimscale")) ;全局比例因子
  214.       (setvar "DIMSD1" 0)  ;隐藏第一条尺寸线
  215.       (setvar "DIMSD2" 0)  ;隐藏第二条尺寸线
  216.       (setvar "DIMSE1" 0)  ;隐藏第一条尺寸界线
  217.       (setvar "DIMSE2" 0)  ;隐藏第二条尺寸界线
  218.       (setvar "DIMSOXD" 0)  ;隐藏外侧尺寸线
  219.       (setvar "DIMTAD" 1)  ;文字位于尺寸线上方
  220.       (setvar "DIMTDEC" 1)  ;公差小数位数
  221.       (setvar "DIMTFAC" 1.0000)  ;公差文字高度比例因子
  222.       (setvar "DIMTIH" 0)  ;尺寸界线内侧的文字水平放置
  223.       (setvar "DIMTIX" 1)  ;将文字放置于尺寸界线内侧
  224.       (setvar "DIMTM" 0.0000)  ;下偏差
  225.       (setvar "DIMTMOVE" 2)  ;文字移动
  226.       (setvar "DIMTOFL" 1)  ;强制在尺寸界线内侧画尺寸线
  227.       (setvar "DIMTOH" 0)  ;外侧文字水平放置
  228.       (setvar "DIMTOL" 0)  ;公差标注
  229.       (setvar "DIMTOLJ" 1)  ;公差垂直对齐
  230.       (setvar "DIMTP" 0.0000)  ;上偏差
  231.       (setvar "DIMTSZ" 0.0000)  ;标记大小
  232.       (setvar "DIMTVP" 0.0000)  ;文字垂直位置
  233.       (setvar "DIMTXSTY" "TSSD_Rein") ;文字样式
  234.       (setvar "DIMTXT" 300)  ;文字高度
  235.       (setvar "DIMTZIN" 0)  ;公差消零
  236.       (setvar "DIMUPT" 0)  ;用户定位的文字
  237.       (setvar "DIMZIN" 8)  ;消零
  238.       (princ "\n检测到标注样式:“TSSD_100_100”,为防止样式被改动,程序自动将其还原(全局比例不变)。")
  239.     )
  240.   )
  241.   (command "_.DIMSTYLE" "_SAVE" "TSSD_100_100" "y" "")
  242.   ;(setvar "cmdecho" cm)
  243.   (princ)
  244.   (csh_dimdayang)
  245. )

  246. ;建立各种比例大样图所需的标注样式
  247. (defun csh_dimdayang(/ ACADDOCUMENT ACADOBJECT CURRDIMSTYLE MSPACE)
  248.   (PRINC "\n模型空间中,建立各种比例大样图所需的标注样式 :")
  249. ;;; 首先,返回当前的标注的样式
  250. ;;; 接着,设定新的样式。
  251. ;;; 最后,将样式恢复为原来的设定值。
  252.   (VL-LOAD-COM)
  253.   (setq AcadObject(vlax-get-acad-object)
  254.         AcadDocument(vla-get-ActiveDocument AcadObject)
  255.         mSpace(vla-get-ModelSpace AcadDocument)
  256.   )
  257. ;;; 返回激活文件当前的标注样式
  258. (setq currDimStyle(vla-get-ActiveDimStyle AcadDocument))
  259. ;(princ "当前的标注型式是 ")(princ (vla-get-name currDimStyle))
  260. ;;; 建立标注样式 TSSD_10_100
  261.   (setvar "dimlfac" 0.1);因为图元放大了10倍
  262.   (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
  263.       (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
  264.   (setvar "DIMCLRT" 2)  ;标注文字颜色(黄色)
  265. (setvar "dimclre" 1)
  266.   (if (not (tblsearch "dimstyle" "TSSD_10_100"))
  267.       (command "-dimstyle" "s" "TSSD_10_100")
  268.       (command "-dimstyle" "s" "TSSD_10_100" "y")
  269.   )
  270.   ;;; 建立标注样式 TSSD_20_100
  271.   (setvar "dimlfac" 0.20)
  272.   (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
  273.       (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
  274.   (setvar "DIMCLRT" 3)  ;标注文字颜色(绿色)
  275.     (setvar "dimclre" 2)
  276.   (if (not (tblsearch "dimstyle" "TSSD_20_100"))
  277.       (command "-dimstyle" "s" "TSSD_20_100")
  278.       (command "-dimstyle" "s" "TSSD_20_100" "y")
  279.   )
  280.   ;;; 建立标注样式 TSSD_25_100
  281.   (setvar "dimlfac" 0.25)
  282.   (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
  283.       (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
  284.   (setvar "DIMCLRT" 4)  ;标注文字颜色(青色)
  285.     (setvar "dimclre" 4)
  286.   (if (not (tblsearch "dimstyle" "TSSD_25_100"))
  287.       (command "-dimstyle" "s" "TSSD_25_100")
  288.       (command "-dimstyle" "s" "TSSD_25_100" "y")
  289.   )
  290.     ;;; 建立标注样式 TSSD_50_100
  291.   (setvar "dimlfac" 0.5)
  292.   (setvar "DIMCLRD" 3)  ;尺寸线和引线颜色(绿色)
  293.       (setvar "DIMCLRE" 3)  ;尺寸界线颜色(绿色)
  294.   (setvar "DIMCLRT" 6)  ;标注文字颜色(洋红)
  295.     (setvar "dimclre" 6)
  296.   (if (not (tblsearch "dimstyle" "TSSD_50_100"))
  297.       (command "-dimstyle" "s" "TSSD_50_100")
  298.       (command "-dimstyle" "s" "TSSD_50_100" "y")
  299.   )
  300.   (vla-put-ActiveDimStyle AcadDocument currDimStyle);; 将标注样式设回原来的标注样式
  301.   ;(princ "标注型式重设为 ")(princ (vla-get-name currDimStyle))
  302.   (princ)
  303. )

  304.     (setvar "blipmode" orig_blip); 还原系统变数的设定值
  305.     (setvar "cmdecho" orig_cmd)
  306.     (setvar "osmode" orig_osnap)
  307.     (setvar "clayer" orig_layer)

  308. ;    (command "osmode" "191"); 打开端点,中点,中心,象限点,交点及垂点捕捉
  309. ;    (command "units" "2" "2" "" "" "" "")
  310. ;    (command "chamfera" "0"); 将chamfer命令的第一点D值设为0
  311. ;    (command "chamferb" "0"); 将chamfer命令的第二点D值设为0
  312. ;    (command "filletrad" "0"); 将fillet命令的半径R值设为0

  313. (csh_sty)
  314. (csh_bzgc)
  315. (csh_ccbz)
  316. (princ "\n***  绘图环境初始化完成  **** 命令: csh ***")
  317.     (princ)
  318. ); csh.lsp命令结束   
  319.     (princ)


  320. (defun c:d10 ()(command "-DIMSTYLE" "R" "TSSD_10_100")(princ "\n当前标注样式:TSSD_10_100")(princ))
  321. (defun c:d20 ()(command "-DIMSTYLE" "R" "TSSD_20_100")(princ "\n当前标注样式:TSSD_20_100")(princ))
  322. (defun c:d25 ()(command "-DIMSTYLE" "R" "TSSD_25_100")(princ "\n当前标注样式:TSSD_25_100")(princ))
  323. (defun c:d50 ()(command "-DIMSTYLE" "R" "TSSD_50_100")(princ "\n当前标注样式:TSSD_50_100")(princ))
  324. (defun c:d0 ()(command "-DIMSTYLE" "R" "TSSD_100_100")(princ "\n当前标注样式:TSSD_100_100")(princ))
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 08:24 , Processed in 0.275266 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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