找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 517|回复: 10

[求助] 请各位大神帮忙看看问题出在哪里了,执行显示command nil

[复制链接]
发表于 2019-2-2 13:55:28 | 显示全部楼层 |阅读模式

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

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

×
(defun c:ttt()
        (command "opendcl")
        (dcl_project_load "D:\\111.odcl" T)
        (dcl_form_show 111_Form1)
    (defun c:111_Form1_TextButton1_OnClicked (/)
    (c:mmj)
    )
)
(defun c:mmj();子程序1,混凝土管-混凝土基础
    (setq *error*_bak *error*);备份错误处理函数
        (defun *error* (msg);更新错误处理函数为自定义的错误函数
         (princ "\n程序错误中断执行!")
                 (princ (strcat "\n" msg));输出错误信息
                 (setvar "osmode" *osmode_bak);还原捕捉
                 (setvar "cmdecho" 1);打开命令提示
                 (setq *error* *error*_bak);还原错误处理函数
                 (princ)
    )
        (setvar "cmdecho" 0);关闭命令提示
;输入
        (setq d0 (getint "\n请输入管径(mm)<300,400,500,600,800,1000,1200,1500,1800,2000,2200,2400,2600,2800,3000>:"))
        (if (and (/= d0 300) (/= d0 400) (/= d0 500) (/= d0 600) (/= d0 800) (/= d0 1000) (/= d0 1200) (/= d0 1500) (/= d0 1800) (/= d0 2000) (/= d0 2200) (/= d0 2400) (/= d0 2600) (/= d0 2400) (/= d0 3000)) (progn (alert "参数输入有误!") (quit)));判断管径输入值有效性
        (setq a0 (getint "\n请输入基础角度<120°或180°>:"))
    (if (= a0 120) (c:data-tgtj120) (if (= a0 180) (c:data-tgtj180) (progn(alert "参数输入有误!")(quit))));判断基础角度输入值有效性
        (setq c0 (getreal "\n请输入基础垫层厚度(m):"))
        (setq i0 (getreal "\n请输入放坡系数(1:n):"))
        (setq hz (getreal "\n请输入管道填挖高度(m):"))
        (setq gl (getreal "\n请输入管道长度(m):"))


        (setq pt0 (list 0 0 ))
        (princ tgb)
;计算
    (setq tgr (/ tgd 1000 2))
        (setq tghz (+ hz tgt tgc1 c0));自然地面线至基础底
        (setq tghg (+ 0.500 tgt tgr tgr tgt tgc1 c0));管顶50至基础底
        (setq pt1 (polar pt0 (* (/ (- 270.000 (/ a0 2)) 180.000) pi) (+ tgr tgt)))
    (setq pt14 (polar pt0 (* (/ (+ 270.000 (/ a0 2)) 180.000) pi) (+ tgr tgt)))
        (setq pt2 (list (- (car pt0) (/ tgb 2.000)) (cadr pt1)))
        (setq pt13 (list (+ (car pt0) (/ tgb 2.000)) (cadr pt14)))
        (setq pt3 (polar pt2 (* 1.5 pi) (+ tgc1 tgc2)))
        (setq pt12 (polar pt13 (* 1.500 pi) (+ tgc1 tgc2)))
        (setq pt4 (polar pt3 (* 1.5 pi) c0))
        (setq pt11 (polar pt12 (* 1.500 pi) c0))
        (setq pt5 (list (- (car pt4) 0.500) (cadr pt4)))
        (setq pt10 (list (+ (car pt11) 0.500) (cadr pt11)))
        (setq pt6 (list (- (car pt5) (* i0 tghg)) (+ (cadr pt5) tghg)))
        (setq pt9 (list (+ (car pt10) (* i0 tghg)) (+ (cadr pt10) tghg)))
        (setq pt7 (list (- (car pt5) (* i0 tghz)) (+ (cadr pt5) tghz)))
    (setq pt8 (list (+ (car pt10) (* i0 tghz)) (+ (cadr pt10) tghz)))
        (setq bopt1 (list (car pt5) (/ (+ (cadr pt5) (cadr pt6)) 2)))
        (setq bopt2 (list (car pt5) (/ (+ (cadr pt6) (cadr pt7)) 2)))
;设置备份
        (setq *osmode_bak (getvar "osmode"));备份捕捉
        (setvar "osmode" 0);关闭捕捉
        (command "_.undo" "be");一键undo开始
;执行绘图
    (command "circle" pt0 tgr "")
        (command "circle" pt0 (+ tgr tgt) "")
        (command "line" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt12 pt13 pt14 "")
        (command "line" pt3 pt12 "")
        (command "line" pt4 pt11 "")
        (command "line" pt6 pt9 "")
        (command "text" "j" "ml" pt9 0.05 0 "管顶以上50cm线")
        (command "text" "j" "ml" pt8 0.05 0 "开挖线")

    (vl-load-com);计算面积
    (command "boundary" bopt1 "" "")
    (setq a1 (entlast))
    (setq b1 (vlax-ename->vla-object a1))
    (setq s1 (vla-get-area b1))
    (setq tf1 (* s1 gl))
        (setq ttt1 (rtos tf1 2 2))
    (command "text" "j" "ml" bopt1 0.05 0 (strcat "土方=" ttt1))
    (command "erase" a1 "")

    (command "boundary" bopt2 "" "")
    (setq a2 (entlast))
    (setq b2 (vlax-ename->vla-object a2))
    (setq s2 (vla-get-area b2))
    (setq tf2 (* s2 gl))
        (setq ttt2 (rtos tf2 2 2))
    (command "text" "j" "ml" bopt2 0.05 0 (strcat "土方=" ttt2))
    (command "erase" a2 "")
        (princ)

;设置还原
    (command "_.undo" "end");一键undo结束
        (setvar "osmode" *osmode_bak);还原捕捉
        (setvar "cmdecho" 1);打开命令提示
        (setq *error* *error*_bak);还原错误处理函数
        (princ)
)
;混凝土基础数据库
(defun c:data-tgtj120();120°混凝土基础数据库
        (setq data-tgtj120 '((tgd tgt tgb tgc1 tgc2 )
                        ((300 0.040 0.540 0.080 0.095)
                                        (400 0.047 0.694 0.100 0.123)
                                        (500 0.055 0.830 0.110 0.152)
                                        (600 0.060 0.920 0.100 0.180)
                                        (800 0.080 1.200 0.120 0.240)
                                        (1000 0.100 1.500 0.150 0.300)
                                        (1200 0.120 1.800 0.180 0.360)
                                        (1500 0.150 2.250 0.225 0.450)
                                        (1800 0.180 2.700 0.270 0.540)
                                        (2000 0.200 3 000 0.300 0.600)
                                        (2200 0.220 3.300 0.330 0.660)
                                        (2400 0.230 3.550 0.345 0.715)
                                        (2600 0.235 3.776 0.353 0.768)
                                        (2800 0.255 4.076 0.383 0.828)
                                        (3000 0.275 4.376 0.413 0.888)
                                )
                                )
    )
    (setq jcbl1 (car data-tgtj120)
              jcsj1 (cadr data-tgtj120)
    )
    (mapcar 'set jcbl1 (assoc d0 jcsj1))
)
(defun c:data-tgtj180();180°混凝土基础数据库
        (setq data-tgtj180 '((tgd tgt tgb tgc1 tgc2 )
                        ((300 0.040 0.540 0.080 0.190)
                                        (400 0.047 0.694 0.100 0.247)
                                        (500 0.055 0.830 0.110 0.305)
                                        (600 0.060 0.960 0.120 0.360)
                                        (800 0.080 1.280 0.160 0.480)
                                        (1000 0.100 1.600 0.200 0.600)
                                        (1200 0.120 1.920 0.240 0.720)
                                        (1500 0.150 2.400 0.300 0.900)
                                        (1800 0.180 2.880 0.360 1.080)
                                        (2000 0.200 3.200 0.400 1.200)
                                        (2200 0.220 3.520 0.440 1.320)
                                        (2400 0.230 3.780 0.460 1.430)
                                        (2600 0.235 4.010 0.470 1.535)
                                        (2800 0.255 4.330 0.510 1.655)
                                        (3000 0.275 4.650 0.550 1.775)
                                )
                                )
    )
    (setq jcbl2 (car data-tgtj180)
              jcsj2 (cadr data-tgtj180)
    )
    (mapcar 'set jcbl2 (assoc d0 jcsj2))
)

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

已领礼包: 19个

财富等级: 恭喜发财

发表于 2019-2-2 14:34:48 | 显示全部楼层
没有 D:\\111.odcl  文件,把DCL文件也上传到论坛。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-2-2 14:46:00 | 显示全部楼层
Lisphk 发表于 2019-2-2 14:34
没有 D:\\111.odcl  文件,把DCL文件也上传到论坛。

我是一个初学者,一直找不到错误出现在哪里

111.odcl

530 Bytes, 下载次数: 1, 下载积分: D豆 -1 , 活跃度 1

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

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2019-2-2 14:56:53 | 显示全部楼层
YY风信子YY 发表于 2019-2-2 14:46
我是一个初学者,一直找不到错误出现在哪里

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

使用道具 举报

 楼主| 发表于 2019-2-2 15:02:35 | 显示全部楼层
Lisphk 发表于 2019-2-2 14:56
你执行时候看到对话框出来了吗?

非常感谢你的帮助,对话框出来了,通过点击按钮,也能运行各参数的输入,但是到绘图的时候就执行不了了,下面是运行点击按钮之后的过程和错误提示
请输入管径(mm)<300,400,500,600,800,1000,1200,1500,1800,2000,2200,2400,2600,2800,3000>
:600

请输入基础角度<120°或180°>:120
请输入基础垫层厚度(m):0.1
请输入放坡系数(1:n):1
请输入管道填挖高度(m):1
请输入管道长度(m):1 1.26
程序错误中断执行!
invalid AutoCAD command: nil(@nonsmall-jiazai

点评

把 ttt改成下面 mmj命令里面的 getint 改成 getreal  详情 回复 发表于 2019-2-2 16:54
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2019-2-2 16:22:04 | 显示全部楼层
YY风信子YY 发表于 2019-2-2 15:02
非常感谢你的帮助,对话框出来了,通过点击按钮,也能运行各参数的输入,但是到绘图的时候就执行不了了, ...

(setq tgr (/ tgd 1000 2))

你修改下代码,凡是 / 后面的, 有常数的,你都加上小数点

(setq tgr (/ tgd 1000 2)) 改成
(setq tgr (/ tgd 1000 2.0))

你tgd如果等于300
(setq tgr (/ tgd 1000 2))  这个的结果是0

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

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2019-2-2 16:54:31 | 显示全部楼层
YY风信子YY 发表于 2019-2-2 15:02
非常感谢你的帮助,对话框出来了,通过点击按钮,也能运行各参数的输入,但是到绘图的时候就执行不了了, ...

把 ttt改成下面
  1. (defun c:ttt ()
  2.   (command "opendcl")
  3.   (dcl_project_load "D:\\111.odcl" T)
  4.   (dcl_form_show 111_Form1)
  5.   (defun c:111_Form1_TextButton1_OnClicked (/) (dcl-sendstring "(c:mmj)\n"))
  6. )


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

使用道具 举报

已领礼包: 55个

财富等级: 招财进宝

发表于 2019-2-4 11:09:26 | 显示全部楼层
(defun c:mmj();子程序1,混凝土管-混凝土基础
    (setq *error*_bak *error*);备份错误处理函数
        (defun *error* (msg);更新错误处理函数为自定义的错误函数
         (princ "\n程序错误中断执行!")
                 (princ (strcat "\n" msg));输出错误信息
                 (setvar "osmode" *osmode_bak);还原捕捉
                 (setvar "cmdecho" 1);打开命令提示
                 (setq *error* *error*_bak);还原错误处理函数
                 (princ)
    )
        (setvar "cmdecho" 0);关闭命令提示
;输入
        (setq d0 (getint "\n请输入管径(mm)

<300,400,500,600,800,1000,1200,1500,1800,2000,2200,2400,2600,2800,3000>:"))
        (if (and (/= d0 300) (/= d0 400) (/= d0 500) (/= d0 600) (/= d0 800) (/= d0 1000) (/= d0

1200) (/= d0 1500) (/= d0 1800) (/= d0 2000) (/= d0 2200) (/= d0 2400) (/= d0 2600) (/= d0 2400)

(/= d0 3000)) (progn (alert "参数输入有误!") (quit)));判断管径输入值有效性
        (setq a0 (getint "\n请输入基础角度<120°或180°>:"))
    (if (= a0 120) (c:data-tgtj120) (if (= a0 180) (c:data-tgtj180) (progn(alert "参数输入有

误!")(quit))));判断基础角度输入值有效性
        (setq c0 (getreal "\n请输入基础垫层厚度(m):"))
        (setq i0 (getreal "\n请输入放坡系数(1:n):"))
        (setq hz (getreal "\n请输入管道填挖高度(m):"))
        (setq gl (getreal "\n请输入管道长度(m):"))


        (setq pt0 (list 0 0 ))
        (princ tgb)
;计算
    (setq tgr (/ tgd 1000.0 2.0))
        (setq tghz (+ hz tgt tgc1 c0));自然地面线至基础底
        (setq tghg (+ 0.500 tgt tgr tgr tgt tgc1 c0));管顶50至基础底
        (setq pt1 (polar pt0 (* (/ (- 270.000 (/ a0 2.0)) 180.000) pi) (+ tgr tgt)))
    (setq pt14 (polar pt0 (* (/ (+ 270.000 (/ a0 2.0)) 180.000) pi) (+ tgr tgt)))
        (setq pt2 (list (- (car pt0) (/ tgb 2.000)) (cadr pt1)))
        (setq pt13 (list (+ (car pt0) (/ tgb 2.000)) (cadr pt14)))
        (setq pt3 (polar pt2 (* 1.5 pi) (+ tgc1 tgc2)))
        (setq pt12 (polar pt13 (* 1.500 pi) (+ tgc1 tgc2)))
        (setq pt4 (polar pt3 (* 1.5 pi) c0))
        (setq pt11 (polar pt12 (* 1.500 pi) c0))
        (setq pt5 (list (- (car pt4) 0.500) (cadr pt4)))
        (setq pt10 (list (+ (car pt11) 0.500) (cadr pt11)))
        (setq pt6 (list (- (car pt5) (* i0 tghg)) (+ (cadr pt5) tghg)))
        (setq pt9 (list (+ (car pt10) (* i0 tghg)) (+ (cadr pt10) tghg)))
        (setq pt7 (list (- (car pt5) (* i0 tghz)) (+ (cadr pt5) tghz)))
    (setq pt8 (list (+ (car pt10) (* i0 tghz)) (+ (cadr pt10) tghz)))
        (setq bopt1 (list (car pt5) (/ (+ (cadr pt5) (cadr pt6)) 2.0)))
        (setq bopt2 (list (car pt5) (/ (+ (cadr pt6) (cadr pt7)) 2.0)))
;设置备份
        (setq *osmode_bak (getvar "osmode"));备份捕捉
        (setvar "osmode" 0);关闭捕捉
        (command "_.undo" "be");一键undo开始
;执行绘图
    (command "circle" pt0 tgr "")
        (command "circle" pt0 (+ tgr tgt) "")
        (command "line" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt12 pt13 pt14 "")
        (command "line" pt3 pt12 "")
        (command "line" pt4 pt11 "")
        (command "line" pt6 pt9 "")
        (command "text" "j" "ml" pt9 0.05 0 "管顶以上50cm线")
        (command "text" "j" "ml" pt8 0.05 0 "开挖线")

    (vl-load-com);计算面积
    (command "boundary" bopt1 "" "")
    (setq a1 (entlast))
    (setq b1 (vlax-ename->vla-object a1))
    (setq s1 (vla-get-area b1))
    (setq tf1 (* s1 gl))
        (setq ttt1 (rtos tf1 2 2))
    (command "text" "j" "ml" bopt1 0.05 0 (strcat "土方=" ttt1))
    (command "erase" a1 "")

    (command "boundary" bopt2 "" "")
    (setq a2 (entlast))
    (setq b2 (vlax-ename->vla-object a2))
    (setq s2 (vla-get-area b2))
    (setq tf2 (* s2 gl))
        (setq ttt2 (rtos tf2 2 2))
    (command "text" "j" "ml" bopt2 0.05 0 (strcat "土方=" ttt2))
    (command "erase" a2 "")
        (princ)

;设置还原
    (command "_.undo" "end");一键undo结束
        (setvar "osmode" *osmode_bak);还原捕捉
        (setvar "cmdecho" 1);打开命令提示
        (setq *error* *error*_bak);还原错误处理函数
        (princ)
)
;混凝土基础数据库
(defun c:data-tgtj120();120°混凝土基础数据库
        (setq data-tgtj120 '((tgd tgt tgb tgc1 tgc2 )
                        ((300 0.040 0.540 0.080 0.095)
                                        (400 0.047 0.694 0.100 0.123)
                                        (500 0.055 0.830 0.110 0.152)
                                        (600 0.060 0.920 0.100 0.180)
                                        (800 0.080 1.200 0.120 0.240)
                                        (1000 0.100 1.500 0.150 0.300)
                                        (1200 0.120 1.800 0.180 0.360)
                                        (1500 0.150 2.250 0.225 0.450)
                                        (1800 0.180 2.700 0.270 0.540)
                                        (2000 0.200 3 000 0.300 0.600)
                                        (2200 0.220 3.300 0.330 0.660)
                                        (2400 0.230 3.550 0.345 0.715)
                                        (2600 0.235 3.776 0.353 0.768)
                                        (2800 0.255 4.076 0.383 0.828)
                                        (3000 0.275 4.376 0.413 0.888)
                                )
                                )
    )
    (setq jcbl1 (car data-tgtj120)
              jcsj1 (cadr data-tgtj120)
    )
    (mapcar 'set jcbl1 (assoc d0 jcsj1))
)
(defun c:data-tgtj180();180°混凝土基础数据库
        (setq data-tgtj180 '((tgd tgt tgb tgc1 tgc2 )
                        ((300 0.040 0.540 0.080 0.190)
                                        (400 0.047 0.694 0.100 0.247)
                                        (500 0.055 0.830 0.110 0.305)
                                        (600 0.060 0.960 0.120 0.360)
                                        (800 0.080 1.280 0.160 0.480)
                                        (1000 0.100 1.600 0.200 0.600)
                                        (1200 0.120 1.920 0.240 0.720)
                                        (1500 0.150 2.400 0.300 0.900)
                                        (1800 0.180 2.880 0.360 1.080)
                                        (2000 0.200 3.200 0.400 1.200)
                                        (2200 0.220 3.520 0.440 1.320)
                                        (2400 0.230 3.780 0.460 1.430)
                                        (2600 0.235 4.010 0.470 1.535)
                                        (2800 0.255 4.330 0.510 1.655)
                                        (3000 0.275 4.650 0.550 1.775)
                                )
                                )
    )
    (setq jcbl2 (car data-tgtj180)
              jcsj2 (cadr data-tgtj180)
    )
    (mapcar 'set jcbl2 (assoc d0 jcsj2))
)

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

使用道具 举报

已领礼包: 55个

财富等级: 招财进宝

发表于 2019-2-4 11:12:06 | 显示全部楼层
是这样的码?marting说的对,就是2.0写成2不行的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5295个

财富等级: 富甲天下

发表于 2019-2-5 16:00:48 | 显示全部楼层
过年仍然在学习中,敬佩!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2019-2-11 10:16:24 | 显示全部楼层
谢谢各位帮助,原因找到了,是我opendcl里窗体设置有误导致的,问题已解决,再次感谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 17:43 , Processed in 0.437137 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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