明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 948|回复: 3

[源码] 球标编号 BUG 望 修复

[复制链接]
发表于 2019-4-13 10:56 | 显示全部楼层 |阅读模式
10明经币
本帖最后由 纵横八方 于 2022-10-18 14:09 编辑
  1. ;函数:lch:getfile 功能:读取文件并按行将文件转换为表
  2. ;返回值:返回一个表,文件中一行被转换为表中的一个项,如果文件不存在,则返回nil
  3. ;语法:(lch:getfile files) 参数:files:文本文件名,如未指定路径则自动在搜索路径中查找文件
  4. ;示例:(lch:getfile "tyl.ini")  
  5. ;函数代码:
  6. (defun lch:getfile(files / tmplst x fn)
  7.   (setq files(findfile files))
  8.   (if files
  9.     (progn
  10.       (setq fn (open  files "r"))
  11.       (while (setq x (read-line fn))
  12.         (setq tmplst(append tmplst(list x)))
  13.       )
  14.       (close fn)
  15.       tmplst
  16.     )
  17.      nil
  18.   )
  19. )

  20. ;S值为 "LAYER"、"LTYPE"、"VIEW"、"STYLE"、"BLOCK"、"UCS"、"APPID"、"DIMSTYLE" 和 "VPORT"。
  21.   (defun lch:get-table (S / sty style sty_list)
  22.     (setq sty_list nil
  23.     sty (tblnext S t)
  24.     )
  25.     (setq style (cdr (assoc 2 sty)))
  26.     (while style
  27.       (if (/= "" style)
  28.   (setq sty_list (append
  29.        sty_list
  30.        (list style)
  31.            )
  32.   )
  33.       )
  34.       (setq sty (tblnext S))
  35.       (setq style (cdr (assoc 2 sty)))
  36.     )               ; end while]
  37.     (setq sty_list (ACAD_Strlsort sty_list))
  38.     sty_list
  39.   )

  40. ;;语法 (lch:img img_key slide cobak)
  41. ;;img_key 图像控件关键字
  42. ;;slide 幻灯片名字
  43. ;;cobak 图像控件底色
  44. ;;功能:对话框图像初始化
  45. (defun lch:img (imgkey slide cobak /  x1  y1)
  46.   (setq x1(dimx_tile imgkey))
  47.   (setq y1(dimy_tile imgkey))
  48.   (start_image imgkey)
  49.   (fill_image 0 0 x1 y1 cobak)
  50.   (slide_image 0 0 x1 y1 slide)
  51.   (end_image)
  52. )





  53. ;;画球标编号
  54. (defun c:ee()
  55. (prompt "LCH工具箱-球标编号V0.1\n")
  56. (ball:number);对话框
  57. (if (> ball_id 0)
  58.   (ball_qb)
  59. )
  60. (princ)
  61. )

  62. (defun ball_qb ();画球标编号程序
  63.    (defun *error* (msg)
  64.     (setvar "clayer" mylay)
  65.     (setvar "dimasz" myasz)
  66.     (setvar "dimclrd" myclrd)
  67.     (setvar "DIMLDRBLK" myblk)
  68.     (command "._undo" "_E")
  69.     (setvar "cmdecho" 1)
  70.    (if (/= pt nil)
  71.     (progn
  72.      (if (or (= ball_id 2) (= ball_id 3))
  73.       (entdel e1)
  74.      )
  75.      (entdel e2)
  76.      (entdel e3)
  77.     )
  78.    );if
  79.     ;(princ (msg))
  80.    )
  81. (setvar "cmdecho" 0)
  82. (command "._undo" "_BE")
  83. (setq mylay (getvar "clayer"))
  84. (setq myblk (getvar "dimldrblk"))
  85. (if (= myblk "")
  86. (setq myblk ".")
  87. )
  88. (setq myasz (getvar "dimasz"))
  89. (setq myclrd (getvar "dimclrd"))

  90. (if (not (tblsearch "layer" "ball" ))
  91. (command "layer" "new" "ball" "s" "ball" "C" 7 "" "L" "CONTINUOUS" "" "LW" 0.13 "" "")
  92. )

  93. (setvar "clayer" "ball")

  94. (while
  95. (if (= ball_id 1)
  96.     (setq pt (list 0 0))
  97.   (progn
  98.    (setq pt (getpoint (strcat "\n->当前编号:" (itoa getnum) "  文字高度:" txthei"\n->指定序号引线起点或<退出>:")))

  99.   (setq lst (entget
  100.               (entmakex
  101.                (list
  102.                  '(0 . "LEADER")
  103.                  '(100 . "AcDbEntity")
  104.                  '(100 . "AcDbLeader")
  105.                  (cons 10 pt)
  106.                  (cons 10 (polar pt (/ pi 4) 10))
  107.                );list
  108.               );entmakex
  109.             );entget
  110.   );setq
  111.    (setq oldlead (vlax-ename->vla-object (entlast)))
  112.    (if (= ball_id 2);箭头类型
  113.      (vla-put-ArrowheadType oldlead acArrowdot);圆点箭头
  114.      (vla-put-ArrowheadType oldlead acArrowdefault);实心箭头
  115.    )
  116.    (vla-put-ArrowheadSize oldlead (atof getsiz));箭头大小
  117.    (vla-put-DimensionLineColor oldlead (atof cgr4));引线颜色
  118.    (setq e1 (entlast))
  119.   );pr
  120. );if

  121.   (setq lst1 (entget
  122.                (entmakex
  123.                 (list
  124.                   '(0 . "circle")
  125.                   (cons 62 (atoi cgr5));圆颜色
  126.                   (cons 10 pt);圆心坐标
  127.                   (cons 40 (atof txthei));圆半径
  128.                 );list
  129.                );entmakex
  130.              );entget
  131.   );setq
  132.   (setq e2 (entlast))

  133.   (setq lst2 (entget
  134.                (entmakex
  135.                 (list
  136.                   '(0 . "text")
  137.                   (cons 1 (itoa getnum));编号
  138.                   (cons 7 txtsty);文字样式
  139.                   (cons 62 (atoi cgr6));文字颜色
  140.                   (cons 10 pt);文字中心坐标
  141.                   (cons 40 (atof txthei));文字高度
  142.                   '(71 . 0)
  143.                   '(72 . 1)
  144.                   '(73 . 2)
  145.                   (cons 41 (atof txtwid));宽度因子
  146.                   (cons 11 pt);文字中心坐标
  147.                 );list
  148.                );entmakex
  149.              );entget
  150.   );setq
  151.   (setq oldtext (vlax-ename->vla-object (entlast)))
  152.   (setq e3 (entlast))

  153.   (princ "\n->指定序号标注位置或<退出>:")
  154.   (setq tag T)
  155.   (while tag
  156.    (setq code (grread T 15 0));;;读取输入

  157.      (cond
  158.       ((or (= (car code) 5) (= (car code) 3))
  159.        (if (= (car code) 3) (setq tag nil));if

  160.         (if serialnumberpt1
  161.           (progn
  162.             (if (< (- (car serialnumberpt1) (* 1.2 (atof txthei))) (car (cadr code)) (+ (car serialnumberpt1) (* 1.2 (atof txthei)))) ;X坐标范围
  163.              (progn
  164.               (if (or (< (cadr (cadr code)) (- (cadr serialnumberpt1) (* 2.5 (atof txthei))))
  165.                       (> (cadr (cadr code)) (+ (cadr serialnumberpt1) (* 2.5 (atof txthei))))
  166.                   );or
  167.                (setq serialnumberpt (list (car serialnumberpt1) (cadr (cadr code))))
  168.               );if
  169.               (if (< (- (cadr serialnumberpt1) (* 2.5 (atof txthei))) (cadr (cadr code)) (cadr serialnumberpt1))
  170.                (setq serialnumberpt (list (car serialnumberpt1) (- (cadr serialnumberpt1) (* 2.5 (atof txthei)))))
  171.               );if
  172.               (if (> (+ (cadr serialnumberpt1) (* 2.5 (atof txthei))) (cadr (cadr code)) (cadr serialnumberpt1))
  173.                (setq serialnumberpt (list (car serialnumberpt1) (+ (cadr serialnumberpt1) (* 2.5 (atof txthei)))))
  174.               );if
  175.              );pr
  176.             );if
  177.             (if (< (- (cadr serialnumberpt1) (* 1.2 (atof txthei))) (cadr (cadr code)) (+ (cadr serialnumberpt1) (* 1.2 (atof txthei)))) ;Y坐标范围
  178.              (progn
  179.               (if (or (< (car (cadr code)) (- (car serialnumberpt1) (* 2.5 (atof txthei))))
  180.                       (> (car (cadr code)) (+ (car serialnumberpt1) (* 2.5 (atof txthei))))
  181.                   );or
  182.                (setq serialnumberpt (list (car (cadr code)) (cadr serialnumberpt1)))
  183.               );if
  184.               (if (< (- (car serialnumberpt1) (* 2.5 (atof txthei))) (car (cadr code)) (car serialnumberpt1))
  185.                (setq serialnumberpt (list (- (car serialnumberpt1) (* 2.5 (atof txthei))) (cadr serialnumberpt1)))
  186.               );if
  187.               (if (> (+ (car serialnumberpt1) (* 2.5 (atof txthei))) (car (cadr code)) (car serialnumberpt1))
  188.                (setq serialnumberpt (list (+ (car serialnumberpt1) (* 2.5 (atof txthei))) (cadr serialnumberpt1)))
  189.               );if
  190.              );pr
  191.             );if
  192.             (if (and (or (<= (car (cadr code)) (- (car serialnumberpt1) (* 1.2 (atof txthei)))) (>= (car (cadr code)) (+ (car serialnumberpt1) (* 1.2 (atof txthei)))))
  193.                      (or (<= (cadr (cadr code)) (- (cadr serialnumberpt1) (* 1.2 (atof txthei)))) (>= (cadr (cadr code)) (+ (cadr serialnumberpt1) (* 1.2 (atof txthei)))))
  194.                 );and
  195.               (setq serialnumberpt (cadr code))
  196.             );if
  197.           );pr
  198.          (setq serialnumberpt (cadr code))
  199.         );if

  200.      (if (or (= ball_id 2) (= ball_id 3))
  201.       (progn
  202.         (entmod (subst
  203.                 (cons 10 (polar pt (angle pt serialnumberpt) (- (distance pt serialnumberpt) (atof txthei)) ))
  204.                 (cons 10 (polar pt (/ pi 4) 10))
  205.                 lst
  206.                 ) ;subst
  207.         ) ;entmod
  208.         (entupd (cdr (assoc -1 lst)))
  209.       );pr
  210.      );if

  211.         (entmod (subst
  212.                 (cons 10 serialnumberpt)
  213.                 (assoc 10 lst1)
  214.                 lst1
  215.                 ) ;subst
  216.         ) ;entmod
  217.         (entupd (cdr (assoc -1 lst1)))

  218.       (vla-put-textalignmentpoint oldtext (vlax-3d-point serialnumberpt))

  219.       );or

  220.      );cond

  221.   );while
  222.   (setq pt nil)
  223.   (setq getnum (+ 1 getnum))
  224.   (setq serialnumberpt1 serialnumberpt)
  225. );while

  226. (setvar "clayer" mylay)
  227. (setvar "dimasz" myasz)
  228. (setvar "dimclrd" myclrd)
  229. (setvar "DIMLDRBLK" myblk)
  230. (command "._undo" "_E")
  231. (setvar "cmdecho" 1)
  232. ;(princ)
  233. ) ;defun

  234. (defun ball:number ();对话框
  235. (setq fname (vl-filename-mktemp nil nil ".dcl"))
  236. (setq fn (open fname "w"))
  237. (write-line "ballnumber:dialog {" fn)
  238. (write-line "    label = "LCH工具箱-球标编号V0.1" ;" fn)
  239. (write-line "    :column {" fn)
  240. (write-line "        :row {" fn)
  241. (write-line "            :image_button {" fn)
  242. (write-line "                aspect_ratio = 1 ;" fn)
  243. (write-line "                color = -2 ;" fn)
  244. (write-line "                fixed_width = true ;" fn)
  245. (write-line "                key = "gread1" ;" fn)
  246. (write-line "                width = 23 ;" fn)
  247. (write-line "            }" fn)
  248. (write-line "            :image_button {" fn)
  249. (write-line "                aspect_ratio = 1 ;" fn)
  250. (write-line "                color = -2 ;" fn)
  251. (write-line "                fixed_width = true ;" fn)
  252. (write-line "                key = "gread2" ;" fn)
  253. (write-line "                width = 23 ;" fn)
  254. (write-line "            }" fn)
  255. (write-line "            :image_button {" fn)
  256. (write-line "                aspect_ratio = 1 ;" fn)
  257. (write-line "                color = -2 ;" fn)
  258. (write-line "                fixed_width = true ;" fn)
  259. (write-line "                key = "gread3" ;" fn)
  260. (write-line "                width = 23 ;" fn)
  261. (write-line "            }" fn)
  262. (write-line "        }" fn)
  263. (write-line "        :column {" fn)
  264. (write-line "            fixed_height = true ;" fn)
  265. (write-line "            height = 7 ;" fn)
  266. (write-line "            label = "球标编号设置" ;" fn)
  267. (write-line "            :row {" fn)
  268. (write-line "                :text {" fn)
  269. (write-line "                    fixed_width = true ;" fn)
  270. (write-line "                    label = "引线颜色" ;" fn)
  271. (write-line "                    width = 5 ;" fn)
  272. (write-line "                }" fn)
  273. (write-line "                :image_button {" fn)
  274. (write-line "                    fixed_height = true ;" fn)
  275. (write-line "                    fixed_width = true ;" fn)
  276. (write-line "                    height = 2 ;" fn)
  277. (write-line "                    key = "gread4" ;" fn)
  278. (write-line "                    width = 10 ;" fn)
  279. (write-line "                }" fn)
  280. (write-line "                :text {" fn)
  281. (write-line "                    fixed_width = true ;" fn)
  282. (write-line "                    label = "球号颜色" ;" fn)
  283. (write-line "                    width = 5 ;" fn)
  284. (write-line "                }" fn)
  285. (write-line "                :image_button {" fn)
  286. (write-line "                    fixed_height = true ;" fn)
  287. (write-line "                    fixed_width = true ;" fn)
  288. (write-line "                    height = 2 ;" fn)
  289. (write-line "                    key = "gread5" ;" fn)
  290. (write-line "                    width = 10 ;" fn)
  291. (write-line "                }" fn)
  292. (write-line "                :text {" fn)
  293. (write-line "                    fixed_width = true ;" fn)
  294. (write-line "                    label = "文字颜色" ;" fn)
  295. (write-line "                    width = 5 ;" fn)
  296. (write-line "                }" fn)
  297. (write-line "                :image_button {" fn)
  298. (write-line "                    fixed_height = true ;" fn)
  299. (write-line "                    fixed_width = true ;" fn)
  300. (write-line "                    height = 2 ;" fn)
  301. (write-line "                    key = "gread6" ;" fn)
  302. (write-line "                    width = 10 ;" fn)
  303. (write-line "                }" fn)
  304. (write-line "            }" fn)
  305. (write-line "            :row {" fn)
  306. (write-line "                :popup_list {" fn)
  307. (write-line "                    fixed_width = true ;" fn)
  308. (write-line "                    key = "getstyle" ;" fn)
  309. (write-line "                    label = "文字样式" ;" fn)
  310. (write-line "                    width = 24 ;" fn)
  311. (write-line "                }" fn)
  312. (write-line "                :edit_box {" fn)
  313. (write-line "                    fixed_width = true ;" fn)
  314. (write-line "                    key = "getheight" ;" fn)
  315. (write-line "                    label = "文字高度" ;" fn)
  316. (write-line "                    width = 20 ;" fn)
  317. (write-line "                }" fn)
  318. (write-line "                :edit_box {" fn)
  319. (write-line "                    fixed_width = true ;" fn)
  320. (write-line "                    key = "getwidth" ;" fn)
  321. (write-line "                    label = "宽度因子" ;" fn)
  322. (write-line "                    width = 20 ;" fn)
  323. (write-line "                }" fn)
  324. (write-line "            }" fn)
  325. (write-line "            :row {" fn)
  326. (write-line "                :edit_box {" fn)
  327. (write-line "                    fixed_width = true ;" fn)
  328. (write-line "                    key = "getsize" ;" fn)
  329. (write-line "                    label = "箭头大小" ;" fn)
  330. (write-line "                    width = 24 ;" fn)
  331. (write-line "                }" fn)
  332. (write-line "                :edit_box {" fn)
  333. (write-line "                    fixed_width = true ;" fn)
  334. (write-line "                    key = "getnumber" ;" fn)
  335. (write-line "                    label = "起始编号" ;" fn)
  336. (write-line "                    width = 20 ;" fn)
  337. (write-line "                }" fn)
  338. (write-line "                :text {" fn)
  339. (write-line "                    width = 21 ;" fn)
  340. (write-line "                }" fn)
  341. (write-line "            }" fn)
  342. (write-line "        }" fn)
  343. (write-line "        :text {" fn)
  344. (write-line "            height = 10 ;" fn)
  345. (write-line "            value = "\\n使用说明:\\n  1、球标编号设置部分设置好后,以后打开任何一份图纸都可以用这个设置来标注\\n  2、标注球号时鼠标在上一个球号附近会自动水平或垂直对齐\\n  3、感谢你的使用\\n\\n                                                   作者:LCH\\n                                                   制作日期:2016-01-01" ;" fn)
  346. (write-line "        }" fn)
  347. (write-line "    }" fn)
  348. (write-line "    :button {" fn)
  349. (write-line "        is_cancel = true ;" fn)
  350. (write-line "        height = 3 ;" fn)
  351. (write-line "        width = 10 ;" fn)
  352. (write-line "        key = "cancel" ;" fn)
  353. (write-line "        label = "退出" ;" fn)
  354. (write-line "    }" fn)
  355. (write-line "}" fn)
  356. (close fn)

  357. (setq dclid (load_dialog fname))
  358. (new_dialog "ballnumber" dclid)

  359. (ball_data);初始化数据
  360. (ball_action);按键处理

  361. (setq ball_id (start_dialog))
  362. (unload_dialog dclid)
  363. (vl-file-delete fname)

  364. (princ)
  365. )

  366. (defun ball_data();初始化数据
  367. (setq ball_lst (lch:getfile "D:\\Program Files\\ballnumber.dat"))
  368. (setq stylelst (lch:get-table "style"))
  369. (if (= ball_lst nil)
  370. (progn
  371. (setq numblst (list "4" "4" "6" (car stylelst) "10" "0.67" "10"))
  372. (setq ball_lst numblst)
  373. (setq ff (open "D:\\Program Files\\ballnumber.dat" "w"))
  374. (setq i 0)
  375.   (while (< i (length numblst))
  376.    (write-line (nth i numblst) ff)
  377.    (setq i (+ 1 i))
  378.   );wh
  379.   (close ff)
  380. );pr
  381. );if

  382. (setq cgr4 (atoi (nth 0 ball_lst)));引线颜色
  383. (setq cgr5 (atoi (nth 1 ball_lst)));球号颜色
  384. (setq cgr6 (atoi (nth 2 ball_lst)));文字颜色
  385. (setq txtsty (nth 3 ball_lst));文字样式
  386. (setq txthei (nth 4 ball_lst));文字高度
  387. (setq txtwid (nth 5 ball_lst));宽度因子
  388. (setq bousiz (nth 6 ball_lst));箭头大小

  389. (lch:img "gread1" "D:\\lchwz\\球标编号\\ball-1" -2);无箭头球标编号幻灯片
  390. (lch:img "gread2" "D:\\lchwz\\球标编号\\ball-2" -2);圆点箭头球标编号幻灯片
  391. (lch:img "gread3" "D:\\lchwz\\球标编号\\ball-3" -2);实心箭头球标编号幻灯片

  392. (c_img "gread4" cgr4);引线颜色
  393. (c_img "gread5" cgr5);球号颜色
  394. (c_img "gread6" cgr6);文字颜色

  395. ;处理文字样式列表
  396.   (setq lch_in 0)
  397.   (start_list "getstyle" 3 0)
  398.     (repeat (length stylelst)
  399.      (add_list (nth lch_in stylelst))
  400.      (setq lch_in (1+ lch_in))
  401.     );re
  402.     (end_list)
  403. ;提取文字样式
  404.   (if (= (vl-position txtsty stylelst) nil)
  405.    (setq getstyle "0")
  406.    (setq getstyle (itoa (vl-position txtsty stylelst)))
  407.   )

  408. (set_tile "getstyle" getstyle);文字样式
  409. (set_tile "getheight" txthei);文字高度
  410. (set_tile "getwidth" txtwid);宽度因子
  411. (set_tile "getsize" bousiz);箭头大小

  412. (setq sswz nil)
  413. (setq wzname nil)
  414. (setq sswz (ssget "X" '((0 . "text") (8 . "ball") )))
  415. (if sswz
  416. (progn
  417.    (setq i 0)
  418.    (repeat (sslength sswz)
  419.      (setq en (entget (ssname sswz i)))
  420.      (setq wzname (cons (atoi (cdr (assoc 1 en))) wzname))
  421.      (setq i (1+ i))
  422.    );re
  423.    (setq getnum (+ (car (vl-sort wzname '>)) 1))
  424.    (setq i1 0)
  425.    (repeat (sslength sswz)
  426.      (setq en1 (entget (ssname sswz i1)))
  427.      (setq wzname1 (cdr (assoc 1 en1) ))
  428.      (if (= wzname1 (itoa (- getnum 1)))
  429.       (setq serialnumberpt1 (cdr (assoc 11 en1)))
  430.      );if
  431.      (setq i (1+ i1))
  432.    );re
  433. );pr
  434. (progn
  435.   (setq serialnumberpt1 nil)
  436.   (setq getnum 1)
  437. );pr
  438. );if


  439. (set_tile "getnumber" (itoa getnum));起始编号

  440. );de

  441. (defun ball_action ();按键处理
  442.     (action_tile "gread1" "(ball_getaction) (ball_save) (done_dialog 1)");无箭头球标编号
  443.     (action_tile "gread2" "(ball_getaction) (ball_save) (done_dialog 2)");圆点箭头球标编号
  444.     (action_tile "gread3" "(ball_getaction) (ball_save) (done_dialog 3)");实心箭头球标编号
  445.     (action_tile "gread4" "(setq cgr4 (c_c cgr4)) (c_img $key cgr4)");引线颜色
  446.     (action_tile "gread5" "(setq cgr5 (c_c cgr5)) (c_img $key cgr5)");球号颜色
  447.     (action_tile "gread6" "(setq cgr6 (c_c cgr6)) (c_img $key cgr6)");文字颜色
  448.     (action_tile "cancel" "(ball_getaction) (ball_save) (done_dialog -1)");退出按钮
  449. )

  450. (defun ball_getaction ();提取数据
  451. (setq cgr4 (itoa cgr4));引线颜色
  452. (setq cgr5 (itoa cgr5));球号颜色
  453. (setq cgr6 (itoa cgr6));文字颜色
  454. (setq txtsty (nth (atoi (get_tile "getstyle")) stylelst));文字样式
  455. (setq txthei (get_tile "getheight"));文字高度
  456. (setq txtwid (get_tile "getwidth"));宽度因子
  457. (setq getsiz (get_tile "getsize"));箭头大小
  458. (setq getnum (atoi (get_tile "getnumber")));起始编号
  459. );de提取数据

  460. (defun ball_save();保存数据
  461. (setq savenum (list cgr4 cgr5 cgr6 txtsty txthei txtwid getsiz))
  462. (setq ff (open "D:\\Program Files\\ballnumber.dat" "w"))
  463. (setq i 0)
  464.   (while (< i (length savenum))
  465.    (write-line (nth i savenum) ff)
  466.    (setq i (+ 1 i))
  467.   );wh
  468.   (close ff)
  469. )

  470. (defun c_c(color / ccc)
  471.     (setq ccc(acad_colordlg color nil))
  472.     (if (not ccc) (setq ccc color))
  473.     ccc
  474.   )

  475.   (defun c_img (key color)                ;定义初始化颜色图像按钮数
  476.     (if color
  477.       (progn
  478.         (start_image key)
  479.         (fill_image 0 0 (dimx_tile key) (dimy_tile key) color)
  480.         (end_image)
  481.       )
  482.     )
  483.   )

"觉得好,就打赏"
还没有人打赏,支持一下
 楼主| 发表于 2019-4-13 11:05 | 显示全部楼层

RE: 球标编号幻灯片

球标编号幻灯片......

本帖子中包含更多资源

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

x
回复

使用道具 举报

 楼主| 发表于 2019-4-18 23:31 | 显示全部楼层
顶起来哇!
回复

使用道具 举报

发表于 2021-7-28 19:51 | 显示全部楼层

顶起来哇!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 19:48 , Processed in 0.212793 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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