请各位大神帮忙看看问题出在哪里了，执行显示command nil

YY风信子YY · 发表于 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))
)

Lisphk · 发表于 2019-2-2 14:34:48

没有 D:\\111.odcl 文件，把DCL文件也上传到论坛。

YY风信子YY · 发表于 2019-2-2 14:46:00

Lisphk 发表于 2019-2-2 14:34
没有 D:\\111.odcl 文件，把DCL文件也上传到论坛。

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

Lisphk · 发表于 2019-2-2 14:56:53

YY风信子YY 发表于 2019-2-2 14:46
我是一个初学者，一直找不到错误出现在哪里

你执行时候看到对话框出来了吗？

YY风信子YY · 发表于 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

Lisphk · 发表于 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

都是整数， / 返回的是整数。

marting · 发表于 2019-2-2 16:54:31

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

把 ttt改成下面

(defun c:ttt ()
(command "opendcl")
(dcl_project_load "D:\\111.odcl" T)
(dcl_form_show 111_Form1)
(defun c:111_Form1_TextButton1_OnClicked (/) (dcl-sendstring "(c:mmj)\n"))
)

mmj命令里面的 getint 改成 getreal

fengyun7000 · 发表于 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))
)

fengyun7000 · 发表于 2019-2-4 11:12:06

是这样的码？marting说的对，就是2.0写成2不行的

tzfcn · 发表于 2019-2-5 16:00:48

过年仍然在学习中，敬佩！

YY风信子YY · 发表于 2019-2-11 10:16:24

谢谢各位帮助，原因找到了，是我opendcl里窗体设置有误导致的，问题已解决，再次感谢

账号		自动登录	找回密码
密码			立即注册

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

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

点评