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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › XDRX_API应用 › XDRX-API 操作 SQLite 数据库函数介绍
返回列表 发新帖
查看: 1472|回复: 3

[每日一码] XDRX-API 操作 SQLite 数据库函数介绍

[复制链接]
newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2021-1-28 22:35:20 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 newer 于 2021-1-28 23:06 编辑

XDRX API 对 SQLITE 数据库支持的函数有：


  2. xdrx-sqlite-open
  3. xdrx-sqlite-close
  4. xdrx-sqlite-closeall
  5. xdrx-sqlite-query
  6. xdrx-sqlite-assocquery
  7. xdrx-sqlite-dml
  8. xdrx-sqlite-scalar
  9. xdrx-sqlite-scalar
  10. xdrx-sqlite-cmpstmt
  11. xdrx-sqlite-stmtbind
  12. xdrx-sqlite-stmtfnl
  13. xdrx-sqlite-ver
  14. xdrx-sqlite-sqlitever
  15. xdrx-sqlite-printf
  16. xdrx-sqlite-getformat
  17. xdrx-sqlite-printfx
  18. xdrx-sqlite-getformatx
  19. xdrx-sqlite-loadext
  20. xdrx-sqlite-lasterr
  21. xdrx-sqlite-dumperr
  22. xdrx-sqlite-keywords

复制代码


  1. (setq db "d:\\xdsoft\\mysqlite.db")


1、xdrx-sqlite-open

打开数据库
(xdrx-sqlite-open db)

2、xdrx-sqlite-close

关闭数据库
(xdrx-sqlite-close db)

3、xdrx-sqlite-closeall

关闭所有打开的数据库
(xdrx-sqlite-closeall)


示例代码：
  1. (defun createdatabse ()
  2.   (chkerr (xdrx-sqlite-open mydb))
  3.   (chkerr (xdrx-sqlite-close mydb))
  4. )

  6. (defun c:enablekeys ( / a db)
  7.   (setq db mydb)
  8.   (chkerr (xdrx-sqlite-open db))
  9.   (xdrx-sqlite-query db "pragma foreign_keys = on;")
  10.   (setq a (xdrx-sqlite-query db "pragma foreign_keys;"))
  11.   (chkerr (xdrx-sqlite-close db))
  12.   a
  13. )



4、xdrx-sqlite-query

数据表查询函数
(xdrx-sqlite-query db query)
例如：
  1. (xdrx-sqlite-query db "pragma foreign_keys = on;")
  2. (xdrx-sqlite-query db "select * from mytable;")


5、xdrx-sqlite-assocquery

将参数替换查询字符串的 %d, %f......后，进行查询

例如：
  1. (xdrx-sqlite-assocquery db "select * from mytable where age=%d;" 101)


6、xdrx-sqlite-dml
数据库编辑函数，支持 insert,update,delete......
  1. (xdrx-sqlite-dml db "insert into mytable values (2, 'mickey', 'mouse' , 101);")


上面是主要函数，上面的函数基本上能做很多工作了，数据库主要是打开，关闭，创建，查询，插入，更新，删除这些操作

  1. ;;; create a new table
  2. (defun c:createtable ( / db)
  3.   (setq db mydb)
  4.   (chkerr (xdrx-sqlite-open db))
  5.   (chkerr (xdrx-sqlite-dml db "create table mytable (no int, firstname char(64), lastname char(64), age int);"))
  6.   (chkerr (xdrx-sqlite-close db))
  7. )

  9. ;;; insert data
  10. (defun c:addstuff (/ db)
  11.   (setq db mydb)
  12.   (chkerr (xdrx-sqlite-open db))
  13.   (chkerr (xdrx-sqlite-dml db "insert into mytable values (1, 'donald', 'luck ' , 99);"))
  14.   (chkerr (xdrx-sqlite-dml db "insert into mytable values (2, 'mickey', 'mouse' , 101);"))
  15.   (chkerr (xdrx-sqlite-dml db "insert into mytable values (3, 'minni' , 'mouse' , 29);"))
  16.   (chkerr (xdrx-sqlite-close db))
  17. )



命令行执行完createtable, addstuff后，用数据库编辑软件打开mysqlite.db文件

微信截图_20210128222927.png

  1. ;;; get data, note all queries are returned in the format
  2. ;;; ((col1 name col2 name col3 name)(data1 data2 data3)....)
  3. ;;; exeptions are return as
  4. ;;; (nil . error message)
  5. (defun c:getme ( / db)
  6.   (setq db mydb)
  7.   (chkerr (xdrx-sqlite-open db))
  8.   (setq a (xdrx-sqlite-query db "select * from mytable;"))
  9.   (chkerr (xdrx-sqlite-close db))
  10.   a
  11. )


命令行执行getme后得到：

(("no" "firstname" "lastname" "age") (1 "donald" "luck " 99) (2 "mickey" "mouse" 101) (3 "minni" "mouse" 29))

查询年龄大于30的符合条件的记录：

  1. (defun c:getage>30 ( / db)
  2.   (setq db mydb)
  3.   (chkerr (xdrx-sqlite-open db))
  4.   (setq a (xdrx-sqlite-query db "select * from mytable where age > 30;"))
  5.   (chkerr (xdrx-sqlite-close db))
  6.   a
  7. )



命令: GETAGE>30
(("no" "firstname" "lastname" "age") (1 "donald" "luck " 99) (2 "mickey" "mouse" 101))



下面是辅助函数的用法：

  1. ;(xdrx-sqlite-printf "-%x-" 16777215)
  2. ;(xdrx-sqlite-getformat (entget(car(entsel))))
  3. ;(xdrx-sqlite-printf "(%ld)(%s)(%ld)(%s)(%s)(%d)(%s)(%s)(%s)(%.15g,%.15g,%.15g)(%.15g,%.15g,%.15g)(%.15g,%.15g,%.15g)" (entget(car(entsel))))
  4. ;(xdrx-sqlite-getformatx (entget(car(entsel))))
  5. ;(xdrx-sqlite-printfx (strcat "(%d,%ld)(%d,%s)(%d,%ld)(%d,%s)(%d,%s)(%d,%d)(%d,%s)(%d,%s)(%d,%s)(%d,%.15g,%.15"
  6. ;                      "g,%.15g)(%d,%.15g,%.15g,%.15g)(%d,%.15g,%.15g,%.15g)") (entget(car(entsel))))
  7. ;(xdrx-sqlite-dml "d:\\xdsoft\\mysqlite.db" "insert into test4 values (%d, %.15g, '%s');" 9  3.14159 "welcome to the xdcad.net")
  8. ;(xdrx-sqlite-printf "insert into test4 values (%d, %.15g, '%s');" 1  3.14159 "welcome to the xdcad.net")
  9. ;(xdrx-sqlite-getformat (entget(car(entsel))))
  10. ;(xdrx-sqlite-printfx "insert into test4 values (%d, %.15g, '%s');" 1  3.14159 "welcome to the xdcad.net")
  11. ;(xdrx-sqlite-getformatx (entget(car(entsel))))
  12. ;(xdrx-sqlite-printf "%s %s" t nil)
  13. (xdrx-sqlite-printf "insert into test4 values (%d, %.15g, '%s');" 8  3.14159 "welcome to the xdcad.net")
  14. ;(xdrx-sqlite-open  "d:\\xdsoft\\mysqlite.db")
  15. ;(chkerr(xdrx-sqlite-dml "d:\\xdsoft\\mysqlite.db" "create table 5(no int, num1 int, num2 int, num3 float);"))
  16. ;(xdrx-sqlite-close "d:\\xdsoft\\mysqlite.db")



下面是示例应用：

  1. ;xdrx-sqlite-open
  2. ;xdrx-sqlite-close
  3. ;xdrx-sqlite-closeall
  4. ;xdrx-sqlite-query
  5. ;xdrx-sqlite-assocquery
  6. ;xdrx-sqlite-dml
  7. ;xdrx-sqlite-scalar
  8. ;xdrx-sqlite-scalar
  9. ;xdrx-sqlite-cmpstmt
  10. ;xdrx-sqlite-stmtbind
  11. ;xdrx-sqlite-stmtfnl
  12. ;xdrx-sqlite-ver
  13. ;xdrx-sqlite-sqlitever
  14. ;xdrx-sqlite-printf
  15. ;xdrx-sqlite-getformat
  16. ;xdrx-sqlite-printfx
  17. ;xdrx-sqlite-getformatx
  18. ;xdrx-sqlite-loadext
  19. ;xdrx-sqlite-lasterr
  20. ;xdrx-sqlite-dumperr
  21. ;xdrx-sqlite-keywords


  24. (defun chkerr (cmd)
  25.   (if (not cmd)
  26.     (progn
  27.       (princ (xdrx-sqlite-lasterr))
  28.       nil
  29.     )
  30.    t
  31.   )
  32. )


  35. (setq mydb "d:\\xdsoft\\mysqlite.db")

  37. (defun createdatabse ()
  38.   (chkerr (xdrx-sqlite-open mydb))
  39.   (chkerr (xdrx-sqlite-close mydb))
  40. )

  42. (defun c:enablekeys ( / a db)
  43.   (setq db mydb)
  44.   (chkerr (xdrx-sqlite-open db))
  45.   (xdrx-sqlite-query db "pragma foreign_keys = on;")
  46.   (setq a (xdrx-sqlite-query db "pragma foreign_keys;"))
  47.   (chkerr (xdrx-sqlite-close db))
  48.   a
  49. )

  51. ;;; create a new table
  52. (defun c:createtable ( / db)
  53.   (setq db mydb)
  54.   (chkerr (xdrx-sqlite-open db))
  55.   (chkerr (xdrx-sqlite-dml db "create table mytable (no int, firstname char(64), lastname char(64), age int);"))
  56.   (chkerr (xdrx-sqlite-close db))
  57. )

  59. ;;; insert data
  60. (defun c:addstuff (/ db)
  61.   (setq db mydb)
  62.   (chkerr (xdrx-sqlite-open db))
  63.   (chkerr (xdrx-sqlite-dml db "insert into mytable values (1, 'donald', 'luck ' , 99);"))
  64.   (chkerr (xdrx-sqlite-dml db "insert into mytable values (2, 'mickey', 'mouse' , 101);"))
  65.   (chkerr (xdrx-sqlite-dml db "insert into mytable values (3, 'minni' , 'mouse' , 29);"))
  66.   (chkerr (xdrx-sqlite-close db))
  67. )

  69. ;;; create a table json
  70. (defun c:createtablej ( / db)
  71.   (setq db mydb)
  72.   (chkerr (xdrx-sqlite-open db))
  73.   (chkerr (xdrx-sqlite-dml db "create table user (name, phone);"))
  74.   (chkerr (xdrx-sqlite-close db))
  75. )

  77. ;;; insert data json
  78. (defun c:addstuffj (/ db)
  79.   (setq db mydb)
  80.   (chkerr (xdrx-sqlite-open db))
  81.   (chkerr (xdrx-sqlite-dml db "insert into user (name, phone) values('jenny', json('{\"cell\":\"+491765\", \"home\":\"704-8675309\"}'))"))
  82.   (chkerr (xdrx-sqlite-dml db "insert into user (name, phone) values('oz', json('{\"cell\":\"+491765\", \"home\":\"704-498973\"}'))"))
  83.   (chkerr (xdrx-sqlite-dml db "insert into user (name, phone) values('mick', json('{\"cell\":\"+591765\", \"home\": \"705-598973\"}'))"))
  84.   (chkerr (xdrx-sqlite-dml db "insert into user (name, phone) values('dude', json('{\"cell\":\"+691765\", \"home\":\"704-698973\"}'))"))
  85.   (chkerr (xdrx-sqlite-dml db "insert into user (name, phone) values('sally', json('{\"cell\":\"+591765\", \"home\": \"705-578973\"}'))"))
  86.   (chkerr (xdrx-sqlite-dml db "insert into user (name, phone) values('vicky', json('{\"cell\":\"+691765\", \"home\":\"704-698973\"}'))"))
  87.   (chkerr (xdrx-sqlite-close db))
  88. )

  90. ;;; get data json
  91. (defun c:getmej ( / db)
  92.   (setq db mydb)
  93.   (chkerr (xdrx-sqlite-open db))
  94.   (setq a (xdrx-sqlite-query db "select user.name from user, json_each(user.phone) where json_each.value like '704-%';"))
  95.   (chkerr (xdrx-sqlite-close db))
  96.   a
  97. )

  99. ;;(("name") ("jenny") ("oz") ("dude") ("vicky"))

  101. ;;; get data, note all queries are returned in the format
  102. ;;; ((col1 name col2 name col3 name)(data1 data2 data3)....)
  103. ;;; exeptions are return as
  104. ;;; (nil . error message)
  105. (defun c:getme ( / db)
  106.   (setq db mydb)
  107.   (chkerr (xdrx-sqlite-open db))
  108.   (setq a (xdrx-sqlite-query db "select * from mytable;"))
  109.   (chkerr (xdrx-sqlite-close db))
  110.   a
  111. )

  113. (defun c:getme2 ( / a db)
  114.   (setq db mydb)
  115.   (chkerr (xdrx-sqlite-open db))
  116.   (setq a(xdrx-sqlite-assocquery db "select * from mytable where age=%d;" 101))
  117.   (chkerr (xdrx-sqlite-close db))
  118.   a
  119. )

  121. (defun c:testme ( / a db)
  122.   (setq db mydb)
  123.   (chkerr (xdrx-sqlite-open db))
  124.   (setq a (xdrx-sqlite-query db "select avg(age) from mytable;"))
  125.   (chkerr (xdrx-sqlite-close db))
  126.   a
  127. )


  130. (defun c:getmea ( / a db)
  131.   (setq db mydb)
  132.   (chkerr (xdrx-sqlite-open db))
  133.   (setq a (xdrx-sqlite-assocquery db "select * from mytable;"))
  134.   (chkerr (xdrx-sqlite-close db))
  135.   a
  136. )

  138. ;;; update a record,
  139. (defun c:changeme ( / db)
  140.   (setq db mydb)
  141.   (chkerr(xdrx-sqlite-open db))
  142.   (chkerr(xdrx-sqlite-dml db "update mytable set lastname='duck' where no=1;"))
  143.   (chkerr(xdrx-sqlite-close db))
  144. )
  145. ;;; run getme to see the changes

  147. ;;; a compiled statement example
  148. (defun c:compilestmt ( / db i)
  149.   (setq i 0)  
  150.   (setq db mydb)

  152.   ; create a new db
  153.   (chkerr(xdrx-sqlite-open db))  

  155.   ; make a new table
  156.   (chkerr(xdrx-sqlite-dml db "create table test2(no int, num1 int, num2 float, name char(64));"))

  158.   ; start a transaction
  159.   (chkerr(xdrx-sqlite-dml db "begin transaction;"))

  161.   ; this is our compiled statement, we will bind data to ?
  162.   (chkerr(xdrx-sqlite-cmpstmt db "insert into test2 values (?, ?, ?, ?);"))

  164.   ; add our values
  165.   (repeat 100
  166.     (chkerr(xdrx-sqlite-stmtbind (setq i (1+ i)) 87 12.012 "helloworld"))
  167.   )  

  169.   ; commit the transaction
  170.   (chkerr(xdrx-sqlite-dml db "commit transaction;"))

  172.   ; we must call this to clear the compiled statement
  173.   ; and finalize the transaction
  174.   (chkerr(xdrx-sqlite-stmtfnl))

  176.   ; close the db
  177.   (chkerr(xdrx-sqlite-close db))
  178. )

  180. ;;; check our data



  184. ;progecad 2.000,

  186. ;;; lets run a performance test, create a table and insert 10,000 records
  187. (defun c:bench1 ( / db end i start)
  188.   (setq i 0)
  189.   (setvar "cmdecho" 0)
  190.   (setq start (getvar "tdusrtimer"))

  192.   (setq db mydb)
  193.   (chkerr(xdrx-sqlite-open db))
  194.   (chkerr(xdrx-sqlite-dml db "create table test1(no int, name char(64));"))
  195.   (chkerr(xdrx-sqlite-dml db "begin transaction;"))
  196.   (repeat 1000
  197.      (chkerr(xdrx-sqlite-dml db
  198.         (strcat "insert into test1 values ("
  199.            (itoa (setq i (1+ i))) ", 'welcome to XDCAD.Net');")))
  200.   )
  201.   (chkerr (xdrx-sqlite-dml  db "commit transaction;"))
  202.   (chkerr (xdrx-sqlite-close  db))

  204.   (setq end (* 86400.0 (- (getvar "tdusrtimer") start)))
  205.   (princ "\n")
  206.   (princ end)
  207.   (princ)
  208. )
  209. ;;; autocad = 1.515 , bricscad = 0.967969 seconds on my old paint

  211. ;1.00000
  212. (defun c:bench2 ( / db end i pi start)
  213.   (setq i 0)
  214.   (setvar "cmdecho" 0)
  215.   (setq start (getvar "tdusrtimer"))

  217.   (setq db mydb)
  218.   (chkerr(xdrx-sqlite-open db))
  219.   (chkerr(xdrx-sqlite-dml db "create table test3(no int, num1 int, num2 int, num3 float);"))
  220.   (chkerr(xdrx-sqlite-cmpstmt db "insert into test3 values (?, ?, ?, ?);"))
  221.   (chkerr(xdrx-sqlite-dml db "begin transaction;"))
  222.   (repeat 10000
  223.      (chkerr(xdrx-sqlite-stmtbind (setq i (1+ i)) 87 12 3.13))
  224.   )
  225.   (chkerr (xdrx-sqlite-dml db "commit transaction;"))
  226.   (xdrx-sqlite-stmtfnl)
  227.   (chkerr (xdrx-sqlite-close db))

  229.   (setq end (* 86400.0 (- (getvar "tdusrtimer") start)))
  230.   (princ "\n")
  231.   (princ end)
  232.   (princ)
  233. )


  236. (defun c:bench3 ( / db end i pi start)
  237.   (setq i 0)
  238.   (setvar "cmdecho" 0)
  239.   (setq start (getvar "tdusrtimer"))

  241.   (setq db mydb)
  242.   (chkerr(xdrx-sqlite-open db))

  244.   (repeat 100
  245.     (setq q(xdrx-sqlite-query mydb "select * from test3;"))
  246.   )
  247.   (chkerr (xdrx-sqlite-close db))

  249.   (setq end (* 86400.0 (- (getvar "tdusrtimer") start)))
  250.   (princ "\n")
  251.   (princ end)
  252.   (princ)
  253. )


  256. ;;; autocad = 1.703 seconds on my old paint
  257. (defun c:bench4 ( / db end i start)
  258.   (setq i 0)
  259.   (setvar "cmdecho" 0)
  260.   (setq start (getvar "tdusrtimer"))

  262.   (setq db mydb)
  263.   (chkerr(xdrx-sqlite-open db))
  264.   (chkerr(xdrx-sqlite-dml db "create table test4(no int, num float ,name char(64));"))
  265.   (chkerr(xdrx-sqlite-dml db "begin transaction;"))
  266.   (repeat 10000
  267.      (chkerr(xdrx-sqlite-dml mydb "insert into test4 values (%d, %.15g, '%s');" (setq i (1+ i))  3.14159 "welcome to the xdcad.net"))
  268.   )
  269.   (chkerr (xdrx-sqlite-dml db "commit transaction;"))
  270.   (chkerr (xdrx-sqlite-close db))

  272.   (setq end (* 86400.0 (- (getvar "tdusrtimer") start)))
  273.   (princ "\n")
  274.   (princ end)
  275.   (princ)
  276. )


  279. ;(xdrx-sqlite-printf "-%x-" 16777215)
  280. ;(xdrx-sqlite-getformat (entget(car(entsel))))
  281. ;(xdrx-sqlite-printf "(%ld)(%s)(%ld)(%s)(%s)(%d)(%s)(%s)(%s)(%.15g,%.15g,%.15g)(%.15g,%.15g,%.15g)(%.15g,%.15g,%.15g)" (entget(car(entsel))))
  282. ;(xdrx-sqlite-getformatx (entget(car(entsel))))
  283. ;(xdrx-sqlite-printfx (strcat "(%d,%ld)(%d,%s)(%d,%ld)(%d,%s)(%d,%s)(%d,%d)(%d,%s)(%d,%s)(%d,%s)(%d,%.15g,%.15"
  284. ;                      "g,%.15g)(%d,%.15g,%.15g,%.15g)(%d,%.15g,%.15g,%.15g)") (entget(car(entsel))))
  285. ;(xdrx-sqlite-dml "d:\\xdsoft\\mysqlite.db" "insert into test4 values (%d, %.15g, '%s');" 9  3.14159 "welcome to the xdcad.net")
  286. ;(xdrx-sqlite-printf "insert into test4 values (%d, %.15g, '%s');" 1  3.14159 "welcome to the xdcad.net")
  287. ;(xdrx-sqlite-getformat (entget(car(entsel))))
  288. ;(xdrx-sqlite-printfx "insert into test4 values (%d, %.15g, '%s');" 1  3.14159 "welcome to the xdcad.net")
  289. ;(xdrx-sqlite-getformatx (entget(car(entsel))))
  290. ;(xdrx-sqlite-printf "%s %s" t nil)
  291. (xdrx-sqlite-printf "insert into test4 values (%d, %.15g, '%s');" 8  3.14159 "welcome to the xdcad.net")
  292. ;(xdrx-sqlite-open  "d:\\xdsoft\\mysqlite.db")
  293. ;(chkerr(xdrx-sqlite-dml "d:\\xdsoft\\mysqlite.db" "create table 5(no int, num1 int, num2 int, num3 float);"))
  294. ;(xdrx-sqlite-close "d:\\xdsoft\\mysqlite.db")


数据库管理软件 Navicat Premium 15.02注册版
微信截图_20210128225241.png
请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:数据库管理软件Navicat_Premium15x64（提取码：1234） 
下载次数:5  文件大小:0 Bytes  售价:5D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]




SQLite数据库管理软件 DB Browser

                               
登录/注册后可看大图




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

使用道具 举报

yingwuluo
发表于 2021-9-10 09:01:54 | 显示全部楼层
数据库管理软件Navicat_Premium15x64的解压密码是啥
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

drshang
发表于 2023-10-26 23:42:12 | 显示全部楼层
高大上，终于sql了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yang581

已领礼包: 2个

财富等级: 恭喜发财
发表于 2024-1-26 17:29:52 | 显示全部楼层
感谢楼主的分享， 太厉害了， 给力！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-4-24 18:35 , Processed in 0.426357 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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