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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 程序变得很慢，几乎无法接受？
12
返回列表 发新帖
楼主: TENGOMARK

[讨论] 程序变得很慢，几乎无法接受？

  [复制链接]
llsheng_73
发表于 2014-7-21 02:59 | 显示全部楼层
本帖最后由 llsheng_73 于 2014-7-21 03:33 编辑

把command改为entmake是一方面，但还不能根本解决问题
一般情况下，不先插入图片不知道它的大小，所以不可能直接通过entmake一次到位，所以这又是矛盾的
不过在windows下我们点中一张图片是可以知道它的长宽的，所以还得通过windows api事先获取它的大小来一步到位
总的说来,图片的插入本来就不会快，跟图片的大小和硬件很有关系，不过只要事先获取了它的大小计算出比例通过ENTMAK一次到位会快很多


通过api获取图片大小在网上找了一个，不过得需要高手把它写为LISP能调用的才行
//====================================================================
// 函数: of_getpicturesize()
//--------------------------------------------------------------------
// 描述: 获得图片文件的图像尺寸大小(支持GIF,JPG,BMP格式)
//--------------------------------------------------------------------
// 参数:
//value    stringas_FileName     图片文件名称
//referencelong  al_PictureWidth 返回图片宽度
//referencelong  al_PictureHeight返回图片高度
//--------------------------------------------------------------------
// 返回值:  integer1 - 成功,0 - 失败
//--------------------------------------------------------------------


Integer li_File, li_DataRead
Blob lb_Data
Long ll_FileLength,ll_PictureWidth,ll_PictureHeight
Long ll_DataLen,ll_DataPos,ll_FilePos
Boolean lb_LoopFlag = True
Char lc_Char1,lc_Char2

//文件不存在
If Not FileExists(as_FileName) Then Return 0

//取文件大小
ll_FileLength = FileLength(as_FileName)

//打开文件
li_File = FileOpen(as_FileName,StreamMode!)
If li_File = -1 Then Return 0

//读取文件
li_DataRead = FileRead(li_File,lb_Data)
If li_DataRead <= 0 Then
FileClose(li_File)
Return 0
End If

// GIF目前主要有两种类型
// 1. 标识为GIF87a, 只是用来存储单幅静止图像
// 2. 标识为GIF89a, 可以同时存储若干幅静止图像并进而形成连续的动画
// 文件的前 6 个字节为标识:GIF87a 或 GIF89a, 第 7,8 字节为图像宽度(width),
// 第 9,10 字节为图像高度(height), 注意两个字节中低位在前

// GIF 文件格式判断
If String(BlobMid(lb_Data,1,4)) = 'GIF8' Then
ll_PictureWidth = Asc(String(BlobMid(lb_Data,7,1))) + Asc(String(BlobMid(lb_Data,8,1))) *

256
ll_PictureHeight = Asc(String(BlobMid(lb_Data,9,1))) + Asc(String(BlobMid(lb_Data,10,1)))

* 256
If ll_PictureWidth > 0 And ll_PictureHeight > 0 Then
al_PictureWidth = ll_PictureWidth
al_PictureHeight = ll_PictureHeight
FileClose(li_File)
Return 1
Else
FileClose(li_File)
Return 0
End If
End If

// JPEG文件格式
// 前 3 个字节为标识: 0xFF,0xD8,0xFF
If String(BlobMid(lb_Data,1,3)) = Char(255) + Char(216) + Char(255) Then
ll_DataLen = Len(lb_Data)
ll_DataPos = 3
ll_FilePos = 3
Do While lb_LoopFlag
ll_DataPos = ll_DataPos + 1
ll_FilePos = ll_FilePos + 1
lc_Char1 = String(BlobMid(lb_Data,ll_DataPos,1))
lc_Char2 = String(BlobMid(lb_Data,ll_DataPos + 1,1))
If lc_Char1 = Char(255) And lc_Char2 <> Char(255) Then
If lc_Char2 >= Char(192) And lc_Char2 <= Char(195) Then
//找到尺寸数据
ll_PictureWidth = Asc(String(BlobMid(lb_Data,ll_DataPos + 7,1))) *

256 + Asc(String(BlobMid(lb_Data,ll_DataPos + 8,1)))
ll_PictureHeight = Asc(String(BlobMid(lb_Data,ll_DataPos + 5,1)))

* 256 + Asc(String(BlobMid(lb_Data,ll_DataPos + 6,1)))
lb_LoopFlag = False
Else
//没有找到尺寸数据,重新读取文件
ll_FilePos = ll_FilePos + Asc(String(BlobMid(lb_Data,ll_DataPos +

3,1))) * 256 + Asc(String(BlobMid(lb_Data,ll_DataPos + 2,1))) + 1
If ll_FilePos > ll_FileLength Then
FileClose(li_File)
Return 0
Else
FileSeek(li_File,ll_FilePos)
FileRead(li_File,lb_Data)
ll_DataLen = Len(lb_Data)
ll_DataPos = 0
End If
End If
End If
If ll_DataPos = ll_DataLen - 9 And lb_LoopFlag = True Then
ll_FilePos = ll_FilePos - 9
FileSeek(li_File,ll_FilePos)
FileRead(li_File,lb_Data)
ll_DataLen = Len(lb_Data)
ll_DataPos = 0
End If
If ll_FilePos >= ll_FileLength Then
lb_LoopFlag = False
End If
Loop
If ll_PictureWidth > 0 And ll_PictureHeight > 0 Then
al_PictureWidth = ll_PictureWidth
al_PictureHeight = ll_PictureHeight
FileClose(li_File)
Return 1
Else
FileClose(li_File)
Return 0
End If
End If

// BMP文件格式
// 前两个字节是标识:标识可能有很多种
// 第 19,20,21,22 字节为宽度(width), 第 23,24,25,26 字节为高度(height)
// 四个字节组成dword, 低位在前
If String(BlobMid(lb_Data,1,2)) = 'BM' Then
ll_PictureWidth = Asc(String(BlobMid(lb_Data,19,1))) + Asc(String(BlobMid(lb_Data,20,1)))

* 256 + Asc(String(BlobMid(lb_Data,21,1))) * 65536 + Asc(String(BlobMid(lb_Data,22,1))) * 16777216
ll_PictureHeight = Asc(String(BlobMid(lb_Data,23,1))) + Asc(String(BlobMid(lb_Data,24,1)))

* 256 + Asc(String(BlobMid(lb_Data,25,1))) * 65536 + Asc(String(BlobMid(lb_Data,26,1))) * 16777216
If ll_PictureWidth > 0 And ll_PictureHeight > 0 Then
al_PictureWidth = ll_PictureWidth
al_PictureHeight = ll_PictureHeight
////将图像的真实大小转换为PBUnit大小，并返回
//al_PictureWidth = PixelsToUnits(ll_PictureWidth,XPixelsToUnits!)
//al_PictureHeight = PixelsToUnits(ll_PictureHeight,YPixelsToUnits!)
FileClose(li_File)
Return 1
Else
FileClose(li_File)
Return 0
End If
End If


Return 0

回复 支持 反对

使用道具 举报

TENGOMARK
 楼主| 发表于 2014-7-21 07:27 | 显示全部楼层
li_sheng大侠的程序是用什么编的，能否提示下，这样可以继续学习。这段程序调了许多日子了，但是就是调不稳定，有时候运行一次出来了，第二次运行又不行了，只要一提示图片的次序，不如缺省值写着<29>后面的就不能再次运行，不知道如何来解决。
另外ysq101大侠的指点我也会去试一试，那些princ的语句主要是当初为调试程序用的，用它来直接看程序运行到哪儿卡壳了，我一直习惯用这个方法调试程序的。
非常感谢大家的帮忙。
学海无涯，我会继续努力了，也希望得到大家的支持！
回复 支持 反对

使用道具 举报

ZZXXQQ
发表于 2014-7-21 08:29 | 显示全部楼层
  2. (defun c:inimageL (/ fname fim strname imd word chklay image
  3.                   image_angle die_angle scale_dim die_center die_center_asist
  4.                   tape_center_asist center_dim  chksty n1 n2 Imagelayer ent1
  5.                   layerIm ssimage n n_cir n_line n_arc en endata entype image_num
  6.                   x_number y_number image_xspace image_yspace begpoint p1 p2
  7.                   txt_high enscal data01 data02 data00 enscal01 k1 axi_point word ratio01)
  8.   (setvar "CMDECHO" 0)
  9. (setq image_num (getreal "\n Input image numbers: ")) ;图片总数量输入
  10.   (setq x_number (fix (sqrt image_num))) ;图片X 方向分布数量
  11. ;  (princ "\n x-num: ")
  12. ;  (princ x_number)
  13.   (setq y_number (+ (fix (/ image_num x_number)) 1))
  14.                                         ; 图片Y 方向的分布数量
  15.   (setq image_xspace (getreal "\n Input X-distance for every image: "))
  16.                                         ;输入图片X方向占据的空间
  17.   (setq image_yspace (getreal "\n Input Y-distance for every image: "))
  18.                                         ;输入图片Y 方向占据的空间
  19. ;  (princ "\n image xspace: ")
  20. ;  (princ image_xspace)
  21.   (setq txt_high (* image_yspace 0.1))        ;输入写入图片的文字高度
  22. ;  (princ "\n TextHeight:  ")
  23. ;  (princ txt_high)
  24.   (setq image_size (* image_xspace 0.7))        ; 写入图片初步放大到的尺寸
  25. ;  (princ "\n Image_size:  ")
  26. ;  (princ image_size)
  27.   (setq begpoint (getpoint "\n Input begin position: \n "))
  28.                                         ;输入图片占据的起始点
  29.   (princ "\n Please Input Your Drawing Number List")
  30.   (setq fname (getfiled "Pls input file name" "" "pot" 8))
  31.   (setq fim (open fname "r"))
  32.   (setq strname (read-line fim))
  33.   (setq word (read strname)) ;读读取字符
  34. ;  (princ "\n 读取字符")
  35. ;  (princ strname)
  36.   (setq imd (strlen strname))
  37.   (setq n2 0 k1 0 nx1 0 ny1 0)
  38.   (while (/= imd 0)
  39.    ;(prin1 strname)
  40.    ;(prin1 "\n123")
  41.    ;(prin1 "\n123")
  42.    ;(setq word (strcat  strname ))
  43.    ;(setq aa " "strname"  ")
  44.    ;(princ aa)
  45.    ;(prin1 "\n 123")
  46. ;    (princ "\n x_number & nx1:  ")
  47. ;    (princ x_number)
  48. ;    (princ " & ")
  49. ;    (princ nx1)
  50.     (setq nx1 (- k1 (* (fix (/ k1 x_number)) x_number))) ;Get x number
  51. ;    (princ "\n nx1&n ")
  52. ;    (princ nx1)
  53. ;    (princ " & ")
  54. ;    (princ k1)
  55.     (setq ny1  (fix (/ n2 x_number))) ;Get y number
  56.     (setq x1 (car begpoint))                ;Get begpoint x vaule
  57.     (setq y1 (cadr begpoint))                ;Get begpoint y value
  58.     (setq x (+ x1 (* nx1 image_xspace)))
  59.     (setq y (- y1 (* ny1 image_yspace)))
  60.     (setq axi_point (list x y))
  61.     (princ "\n 插入点:   ")
  62. ;    (princ axi_point)
  63. ;    (princ "\n 输入字符 :   ")
  64. ;    (princ word)
  65.     (command "-image" "attach" word axi_point 1 0)
  66.     (setq enscal01 (entlast))
  67.     (setq enscal (entget (entlast)))        ;计算该图片需要放大的粗略倍数
  68.     (setq data01 (mapcar '(lambda (x) (* x image_size)) (cdr (assoc 11 enscal))))
  69.     (setq data02 (mapcar '(lambda (x) (* x image_size)) (cdr (assoc 12 enscal))))
  70. ;    (setq data00 (* data01 data02))
  71. ;    (setq ratio01 (/ image_size data00))
  72. (setq enscal (subst (cons 11 data01) (assoc 11 enscal) enscal))
  73. (entmod (subst (cons 12 data02) (assoc 12 enscal) enscal))
  74. ;    (princ "\n 放大倍率:  ")
  75. ;    (princ ratio01)
  76. ;    (command "scale" enscal01 "" axi_point ratio01) ;放大倍率
  77.     (command "text" axi_point txt_high "" word ""); 图名写入图片上
  78. ;    (princ word)
  79.     (setq strname (read-line fim))        ;读一行
  80.     (setq imd (strlen strname));返回字符串的个数
  81.     (setq word (read strname)) ;读取字符
  82.     (setq k1 (1+ k1))
  83.     (setq n2 (1+ n2))
  84.   )
  85.   (close fim)
  86.   (setvar "CMDECHO" 1)
  87.   (prompt "\n All rights belong to Tengo ")
  88.   (princ)
  89. )
回复 支持 反对

使用道具 举报

edata
发表于 2014-7-22 12:23 | 显示全部楼层
llsheng_73 发表于 2014-7-21 02:59
把command改为entmake是一方面，但还不能根本解决问题
一般情况下，不先插入图片不知道它的大小，所以不可 ...

也找了个模块。
  1. '***************************************************
  2. '* 模 块 名：mdLSPicSize
  3. '* 功能描述：读取图片尺寸信息(不加载图片，支持PNG)
  4. '* 作    者：米兰
  5. '* 作者博客：http://www.millerlee.com
  6. '* 日    期：2012-01-21 21:39
  7. '* 版    本：V1.0.0
  8. '***************************************************
  9. '整行注释的为在读取图片尺寸时不需要的文件头信息

  11. 'BMP文件头
  12. Private Type BitmapFileHeader
  13.     bfType          As Integer    '标识 0,1 两个字节为 42 4D 低位在前，即 19778
  14.     bfReserved2     As Integer
  15.     bfOffBits       As Long
  16.     bfReserved1     As Integer
  17.     bfSize          As Long
  18. End Type

  20. Private Type BitmapInfoHeader
  21.     biSize          As Long
  22.     biWidth         As Long    '宽度 18,19,20,21 四个字节，低位在前
  23.     biHeight        As Long    '高度 22,23,24,25 四个字节，低位在前
  24.     '  biPlanes As Integer
  25.     '  biBitCount As Integer
  26.     '  biCompression As Long
  27.     '  biSizeImage As Long
  28.     '  biXPelsPerMeter As Long
  29.     '  biYPelsPerMeter As Long
  30.     '  biClrUsed As Long
  31.     '  biClrImportant As Long
  32. End Type

  34. 'JPEG（这个好麻烦）
  35. Private Type LSJPEGHeader
  36.     jSOI            As Integer    '图像开始标识 0,1 两个字节为 FF D8 低位在前，即 -9985
  37.     jAPP0           As Integer    'APP0块标识 2,3 两个字节为 FF E0
  38.     jAPP0Length(1)  As Byte    'APP0块标识后的长度，两个字节，高位在前
  39.     '  jJFIFName As Long         'JFIF标识 49(J) 48(F) 44(I) 52(F)
  40.     '  jJFIFVer1 As Byte         'JFIF版本
  41.     '  jJFIFVer2 As Byte         'JFIF版本
  42.     '  jJFIFVer3 As Byte         'JFIF版本
  43.     '  jJFIFUnit As Byte
  44.     '  jJFIFX As Integer
  45.     '  jJFIFY As Integer
  46.     '  jJFIFsX As Byte
  47.     '  jJFIFsY As Byte
  48. End Type

  50. Private Type LSJPEGChunk
  51.     jcType          As Integer    '标识（按顺序）：APPn(0,1~15)为 FF E1~FF EF; DQT为 FF DB(-9217)
  52.     'SOFn(0~3)为 FF C0(-16129),FF C1(-15873),FF C2(-15617),FF C3(-15361)
  53.     'DHT为 FF C4(-15105); 图像数据开始为 FF DA
  54.     jcLength(1)     As Byte    '标识后的长度，两个字节，高位在前
  55.     '若标识为SOFn，则读取以下信息；否则按照长度跳过，读下一块
  56.     jBlock          As Byte    '数据采样块大小 08 or 0C or 10
  57.     jHeight(1)      As Byte    '高度两个字节，高位在前
  58.     jWidth(1)       As Byte    '宽度两个字节，高位在前
  59.     '  jColorType As Byte        '颜色类型 03，后跟9字节，然后是DHT
  60. End Type

  62. 'PNG文件头
  63. Private Type LSPNGHeader
  64.     pType           As Long    '标识 0,1,2,3 四个字节为 89 50(P) 4E(N) 47(G) 低位在前，即 1196314761
  65.     pType2          As Long    '标识 4,5,6,7 四个字节为 0D 0A 1A 0A
  66.     pIHDRLength     As Long    'IHDR块标识后的长度，疑似固定 00 0D，高位在前，即 13
  67.     pIHDRName       As Long    'IHDR块标识 49(I) 48(H) 44(D) 52(R)
  68.     pWidth(3)       As Byte    '宽度 16,17,18,19 四个字节，高位在前
  69.     pHeight(3)      As Byte    '高度 20,21,22,23 四个字节，高位在前
  70.     '  pBitDepth As Byte
  71.     '  pColorType As Byte
  72.     '  pCompress As Byte
  73.     '  pFilter As Byte
  74.     '  pInterlace As Byte
  75. End Type

  77. 'GIF文件头（这个好简单）
  78. Private Type LSGIFHeader
  79.     gType1          As Long    '标识 0,1,2,3 四个字节为 47(G) 49(I) 46(F) 38(8) 低位在前，即 944130375
  80.     gType2          As Integer    '版本 4,5 两个字节为 7a单幅静止图像9a若干幅图像形成连续动画
  81.     gWidth          As Integer    '宽度 6,7 两个字节，低位在前
  82.     gHeight         As Integer    '高度 8,9 两个字节，低位在前
  83. End Type

  85. Public Function PictureSize(ByVal picPath As String, ByRef Width As Long, ByRef Height As Long) As String
  86.     Dim iFile       As Integer
  87.     Dim jpg         As LSJPEGHeader
  88.     Width = 0: Height = 0             '预输出：0 * 0
  89.     If picPath = "" Then PictureSize = "null": Exit Function          '文件路径为空
  90.     If Dir(picPath) = "" Then PictureSize = "not exist": Exit Function    '文件不存在
  91.     PictureSize = "error"             '预定义：出错
  92.     iFile = FreeFile()
  93.     Open picPath For Binary Access Read As #iFile
  94.     Get #iFile, , jpg
  95.     If jpg.jSOI = -9985 Then
  96.         Dim jpg2 As LSJPEGChunk, pass As Long
  97.         pass = 5 + jpg.jAPP0Length(0) * 256 + jpg.jAPP0Length(1)      '高位在前的计算方法
  98.         PictureSize = "JPEG error"    'JPEG分析出错
  99.         Do
  100.             Get #iFile, pass, jpg2
  101.             If jpg2.jcType = -16129 Or jpg2.jcType = -15873 Or jpg2.jcType = -15617 Or jpg2.jcType = -15361 Then
  102.                 Width = jpg2.jWidth(0) * 256 + jpg2.jWidth(1)
  103.                 Height = jpg2.jHeight(0) * 256 + jpg2.jHeight(1)
  104.                 PictureSize = "JPEG"  'JPEG分析成功
  105.                 Exit Do
  106.             End If
  107.             pass = pass + jpg2.jcLength(0) * 256 + jpg2.jcLength(1) + 2
  108.         Loop While jpg2.jcType <> -15105    'And pass < LOF(iFile)
  109.     ElseIf jpg.jSOI = 19778 Then
  110.         Dim bmp     As BitmapInfoHeader
  111.         Get #iFile, 15, bmp
  112.         Width = bmp.biWidth
  113.         Height = bmp.biHeight
  114.         PictureSize = "BMP"           'BMP分析成功
  115.     Else
  116.         Dim png     As LSPNGHeader
  117.         Get #iFile, 1, png
  118.         If png.pType = 1196314761 Then
  119.             Width = png.pWidth(0) * 16777216 + png.pWidth(1) * 65536 + png.pWidth(2) * 256 + png.pWidth(3)
  120.             Height = png.pHeight(0) * 16777216 + png.pHeight(1) * 65536 + png.pHeight(2) * 256 + png.pHeight(3)
  121.             PictureSize = "PNG"       'PNG分析成功
  122.         ElseIf png.pType = 944130375 Then
  123.             Dim gif As LSGIFHeader
  124.             Get #iFile, 1, gif
  125.             Width = gif.gWidth
  126.             Height = gif.gHeight
  127.             PictureSize = "GIF"       'GIF分析成功
  128.         Else
  129.             PictureSize = "unknow"    '文件类型未知
  130.         End If
  131.     End If
  132.     Close #iFile
  133. End Function
  134. Sub test()
  135.     Dim w As Long, h As Long
  136.     Dim f           As String
  137.     Dim t           As String
  138.     f = ThisWorkbook.Path & "\a.png"
  139.     t = PictureSize(f, w, h) '运行宏，w，h就是对应图片的width height
  140. End Sub
回复 支持 反对

使用道具 举报

TENGOMARK
 楼主| 发表于 2014-7-22 22:14 | 显示全部楼层

(defun c:incircle01 (/                image_num  x_number   y_number
                     image_xspace           image_yspace
                     txt_high        begpoint   fname      fim
                     strname        imd           n1              k1
                     nx1        ny1           x_number   word
                     axi_point        x           y
                    )
  (setvar "CMDECHO" 0)
  (setq image_num (getreal "\n Input image numbers: ")) ;图片总数量输入
  (setq x_number (fix (sqrt image_num))) ;图片X 方向分布数量
  (setq y_number (+ (fix (/ image_num x_number)) 1))
                                        ; 图片Y 方向的分布数量
  (setq image_xspace (getreal "\n Input X-distance for every image: "))
                                        ;输入图片X方向占据的空间       
  (setq image_yspace (getreal "\n Input Y-distance for every image: "))
                                        ;输入图片Y 方向占据的空间
  (setq txt_high (* image_yspace 0.1))        ;输入写入图片的文字高度
  (setq image_size (* image_xspace 0.7)) ; 写入图片初步放大到的尺寸
  (setq begpoint (getpoint "\n Input begin position: \n "))
                                        ;输入图片占据的起始点
  (setq        fname (getfiled        "Pls input file name"
                        "C:\\Users\\zhengzhi\\Desktop\\ZZR\\"
                        "pot"
                        8
              )
  )
  (setq fim (open fname "r"))
  (setq strname (read-line fim))
  (setq imd (strlen strname))
  (setq word (read strname))                ;该行字符赋予word
  (princ word)
  (setq        n2 0
        k1 0
        nx1 0
        ny1 0
  )

  (while (/= imd 0)
    (setq nx1 (- k1 (* (fix (/ k1 x_number)) x_number)))
                                        ;Get x number   
    (setq ny1 (fix (/ n2 x_number)))        ;Get y number
    (setq x1 (car begpoint))                ;Get begpoint x vaule
    (setq y1 (cadr begpoint))                ;Get begpoint y value
    (setq x (+ x1 (* nx1 image_xspace)))
    (setq y (- y1 (* ny1 image_yspace)))
    (setq axi_point (list x y))
    (command "circle" axi_point 2)
    (command "text" axi_point txt_high "" word "") ; 图名写入图片上   
    (setq strname (read-line fim))        ;读一行
    (setq word (read strname))
    (setq imd (strlen strname))                ;返回字符串的个数
    (setq k1 (1+ k1))
    (setq n2 (1+ n2))
  )
  (close fim)
  (setvar "CMDECHO" 1)
  (prompt "\n All rights belong to Tengo ")
)

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

TENGOMARK
 楼主| 发表于 2014-7-22 22:21 | 显示全部楼层
各位大侠好：
  上面的程序是能够运行的，我把图片输入命令去掉了，但是仅仅画圆与写入文件字内容（见附件里面的内容，并用附件里面内容作为读取来判断），但是执行起来还是异常的慢，真的搞不懂哪里出了问题了。
  大侠给出的程序超出了我的知识范围，目前暂时没有读懂，我记下了，后续会继续学习。
  如果能够解决这个程序慢的问题，万分感激。
回复 支持 反对

使用道具 举报

TENGOMARK
 楼主| 发表于 2014-7-23 21:48 | 显示全部楼层
还有没有大侠能够帮帮我？
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-6 22:47 , Processed in 3.093545 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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