错误: 参数类型错误: consp nil

downsea

在cad里输入pdtlqzc后选择直径的时候出现这个  

downsea

pdtlqzc:dialog{label="平底推力球轴承 (GB301—84)";
          :popup_list{key="popup_list";
                      label="选择轴承系列";
                      edit_width=40;
                     list="特轻(1)系列\n轻(2)系列\n中(3)系列\n重(4)系列\n";
                     }
        :text{value=" d      d1最小     D        T";}
        
        :list_box{
         key="list";
         list="10\t11\t24\t9\n12\t13\t26\t9\n15\t16\t28\t9\n17\t18\t30\t9\n20\t21\t30\t10\n25\t26\t42\t11\n30\t32\t47\t11\n35\t37\t52\t12\n40\t42\t60\t13\n45\t47\t65\t14\n50\t52\t70\t14\n55\t57\t78\t16\n60\t62\t85\t17\n65\t67\t90\t18\n70\t72\t95\t18\n75\t77\t100\t19\n80\t82\t105\t19\n85\t87\t110\t19\n90\t92\t120\t22\n100\t102\t135\t25";
         edit_width=32;
         height=6;
         tabs=9;
                }
      :boxed_row{:edit_box{label="d:";
                       key="d1";
                       edit_width=4;
                      }
                      :edit_box{label="d1最小:";
                       key="dxin";
                       edit_width=4;
                      }
             :edit_box{label="D:";
                       key="d";
                       edit_width=4;
                      }
            
              
             :edit_box{label= "T:";
                       key="t1";
                       edit_width=4;
                      }
                      }
                      :spacer{width=0.8;}
               
   :row{
       :boxed_column{
      :popup_list{label="比例:";
                key="BL";
                edit_width=8;
                list="1:1\n1:1.5\n1:2\n1:2.5\n1:3\n1:4\n1:5\n1:10\n2:1\n2.5:1\n4:1\n5:1\n10:1";
               }
      :edit_box{label="插入角度:";
                key="A";
                edit_width=8.5;
               }
      spacer;
      spacer;
      :button{label="插入点:";
              key="pick";
             }
       }
       :boxed_column{label="轴承样式的预览";
                  :image_button{
                                 key="scr1";
                                  color=0;
                                  width=25;
                                  height=10;
                                 }
                                 }
                                 }
   ok_cancel;
}

downsea

(defun getdata ()
  (setq d (atof (get_tile "d1")))
  (setq d11 (atof (get_tile "dxin")))
  (setq d1 (atof (get_tile "d")))
  (setq t1(atof(get_tile "t1")))
  (setq ang1 (atof (get_tile "A")))
  (setq ang(* ang1(/ pi 180)))
)
(defun qubili()
  (setq s_list(list 1(/ 1.0 1.5) 0.5 0.4(/ 1.0 3.0) 0.25 0.2 0.1 2 2.5 4 5 10))
  (setq bl_no(atoi(get_tile "BL")))
  (setq bl(get_tile "BL"))
  (setq s(nth bl_no s_list))
)
(defun draw4()
(setq d(* s d)
       h(* s h)
       d1(* s d1)
       r(* s r)
  )
  (setq pp(polar p0(+ ang 0)2.0))
  (setq pq(polar p0(+ ang pi)(+ h 2.0)))
  (setq p1(polar p0 (+ ang(/ pi 2))(+(/ d1 2.0)r)))
  (setq pkk(polar p1(+ ang pi)r))
  (setq p2(polar p1(+ ang(/ pi 2))(- (/ (- d d1) 2)(* r 2.0))))
  (setq pii(polar p2(+ ang pi)r))
  (setq p4(polar pii (+ ang(/ pi 2))r))
  (setq p5(polar p4(+ ang pi)(-(/ h 3.0)r)))
  (setq p6(polar p5(- ang(/ pi 2.0))(/(- (/ (- d d1) 2)(sqrt(- (*(/ h 4.0)(/ h 4.0))(*(/ h 6.0)(/ h 6.0)))))2.0)))
  (setq p7(polar p6(- ang(/ pi 2.0))(*(sqrt(- (*(/ h 4.0)(/ h 4.0))(*(/ h 6.0)(/ h 6.0))))2.0)))
  (setq p8(polar p5(- ang (/ pi 2.0))(/ (- d d1) 2)))
  (setq p9(polar p8(+ ang 0)(-(/ h 3.0)r)))
  (setq po(polar p6(- ang(*(/ pi 6)5))(/ h 4.0)))
  (setq pk(polar po(+ ang(/ pi 2))(+(/ h 4.0)2.0)))
  (setq pl(polar po(- ang(/ pi 2))(+(/ h 4.0)2.0)))
  (setq pm(polar po(+ ang pi)(+(/ h 4.0)2.0)))
  (setq pn(polar po(+ ang 0)(+(/ h 4.0)2.0)))         
  (setq p61(polar po(+ ang(*(/ pi 6)5))(/ h 4.0)))
  (setq p51(polar p61(+ ang(/ pi 2))(/(- (/ (- d d1) 2)(sqrt(- (*(/ h 4.0)(/ h 4.0))(*(/ h 6.0)(/ h 6.0)))))2.0)))
  (setq p41(polar p51(+ ang pi)(-(/ h 3.0)r)))
  (setq phh(polar p41(- ang(/ pi 2))r))
  (setq p21 (polar phh(+ ang pi)r))
  (setq p11(polar p21(- ang(/ pi 2))(- (/ (- d d1) 2)(* r 2.0))))
  (setq pgg(polar p11(+ ang 0)r))
  (setq p91(polar pgg(- ang (/ pi 2))r))
  (setq p81(polar p91(+ ang 0)(-(/ h 3.0)r)))
  (setq p71(polar p81(+ ang(/ pi 2))(/(- (/ (- d d1) 2)(sqrt(- (*(/ h 4.0)(/ h 4.0))(*(/ h 6.0)(/ h 6.0)))))2.0)))
  (setq po2(polar po(- ang(/ pi 2))(+ d1 (/ (- d d1) 2))))
  (setq pa(polar p11(- ang(/ pi 2))(+ d1(* r 2.0))))
  (setq paa(polar pa(+ ang 0)r))
  (setq ph(polar paa(+ ang (/ pi 2))r))
  (setq pb(polar pa(- ang(/ pi 2.0))(- (/ (- d d1) 2)(* r 2.0))))
  (setq pbb(polar pb(+ ang 0)r))
  (setq pe(polar pbb(- ang(/ pi 2))r))
  (setq pd(polar p1(- ang(/ pi 2))(+ d1(* r 2.0))))
  (setq pdd(polar pd(+ ang pi)r))
  (setq pg(polar pdd(+ ang(/ pi 2))r))
  (setq pc(polar pd(- ang(/ pi 2))(- (/ (- d d1) 2)(* r 2.0))))
  (setq pcc(polar pc(+ ang pi)r))
  (setq pf(polar pcc(- ang (/ pi 2))r))
  (setq pll(polar paa(+ ang(* pi 0.75))r))
  (setq pmm(polar pbb(- ang(* pi 0.75))r))
  (setq pnn(polar pcc(- ang(/ pi 4))r))
  (setq poo(polar pdd(+ ang(/ pi 4))r))
  (setq pee(polar p81(- ang(/ pi 2))d1))
  (setq pff(polar p8(- ang(/ pi 2))d1))
  (setq pp(polar p0(+ ang 0)2.0))
  (setq pq(polar pp(+ ang pi)(+ h 8.0)))
  (command "layer" "m" 1 "c" 7 "" "l" "continuous" "" "")
  (command "pline" p1 p2 "a" "ce" pii p4 "l" p5 p6 "a" "ce" po "a" -60 "l" p8 p9 "a" "cl")
  (setq st1(ssget "l"))
  (command "pline" p11 p21  "a" "ce" phh "a" -90 "l" p51 p61 "a" "ce" po "a" 60 "l" p81 p91 "a" "cl")
  (setq st2(ssget "l"))
  (command "layer" "m" 2 "c" 1 "" "l" "continuous" "" "")
  (command "hatch" "u" 135 1 "n" st1 "")
  (command "hatch" "u" 45 1 "n" st2 "")
  (command "layer" "m" 1 "c" 7 "" "l" "continuous" "" "")
  (command "circle" po(/ h 4.0))
  ;(command "line" p81 pee "")
  ;(command "line" p8 pff "")
  (command "pline" pa pb "a" "ce" pbb pe "l" pf "a" "ce" pcc pc "l" pd "a" "ce" pdd pg "l" ph "a" "cl")
  ;(command "line" p11 pa "")
  ;(command "line" p1 pd "")
  (command "layer" "m" 5 "c" 3  "" "l" "center" "" "")
  (command "line" pk pl "")
  (command "line" pm pn "")
  (command "line" pq pp "")
  (command "layer" "m" 2 "c" 1 "" "l" "continuous" "" "")
  (command "line" pll pnn "")
  (command "line" pmm poo "")
  (princ)
    )

  (defun c:pdtlqzc(/)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setvar "osmode" 0)
  (setq        d 10 d11 11 d1 24 t1 9 ang1 0 bl "0" zcxl "0")
  (setq list0 '( "10          11         24          9"         
                 "12          13         26          9"
                 "15          16         28          9"
                       "17          18         30          9"
                 "20          21         35         10"
                        "25          26         42         11"
                 "30          32         47         11"
                 "35          37         52         12"
                 "40          42         60         13"
                 "45          47         65         14"
                 "50          52         70         14"
                 "55          57         78         16"
                 "60          62         85         17"
                 "65          67         90         18"
                 "70          72         95         18"
                 "75          77        100         19"
                 "80          82        105         19"
                 "85          87        110         19"
                 "90          92        120         22"
                 "100        102        135         25"
                 )
  )
  (setq dcl_id (load_dialog "d:/pdtlqzc"))
  (if (< dcl_id 0)(exit))
  (setq std 2)
  (while (> std 1)
    (if        (not (new_dialog "pdtlqzc" dcl_id))(exit))
    (set_tile "d1"  (rtos d 2 2))
    (set_tile "dxin" (rtos d11 2 2))
    (set_tile "d" (rtos d1 2 2))
    (set_tile "t1" (rtos t1 2 2))
    (set_tile "A" (rtos ang1 2 2))
    (set_tile "BL" bl)
    (start_image "scr1")
    (slide_image 0 0 (dimx_tile "scr1") (dimy_tile "scr1")
      "pdq"
    )
    (end_image)
    (start_list "list")
    (mapcar 'add_list list0)
    (end_list)
    (action_tile "popup_list" "(setq zcxl $value)(do_list)")
    (action_tile "BL" "(set_tile $key $value)")
    (action_tile "list" "(setq zcs (atoi $value))(take)")
    (action_tile "pick" "(getdata)(qubili) (done_dialog 2)")
    (action_tile "accept" "(getdata)(qubili)(done_dialog 1)")
    (action_tile "cancel" "(done_dialog -1)")
    (setq std (start_dialog))
    (if        (= std 2)(progn(setvar "osmode" 32)(setq p0 (getpoint "Insert point:"))(setvar"osmode" 0)))
    )
     (if(= std 1)(setq www 1));(draw4))
  (unload_dialog dcl_id)
  (princ)
)
(defun do_list()
  (cond
    ((= zcxl "0")(setq list0'("20         40         14          1 "         
                             "30          52         16          1 "
                             "35          62         18          1.5 "
                                   "40          68         19          1.5 "
                             "45          73         20          1.5"
                                    "50          78         22          1.5 "
                             "55          90         25          1.5 "
                             "60          95         26          1.5 "
                             "65          100         27         1.5 "
                             "70         105         27          1.5 "
                             "75         110         27          1.5 "
                             "80         115         28          1.5 "
                             "85         125         31          1.5 "
                             "90         135         35          2 "
                             "100        150         38          2 "  
                              ))
                  (setq list000(list'(20 40 14 1)'(30 52 16 1)'(35 62 18 1.5)
                                     '(40 68 19 1.5)
                               '(45 73 20 1.5)
                                      '(50 78 22 1.5)
                               '(55 90 25 1.5)
                                      '(60 95 26 1.5)
                               '(65 100 27 1.5)'(70 105 27 1.5)'(75 110 27 1.5)'(80 115 28 1.5)
                               '(85 125 31 1.5) '(90 135 35 2) '(100 150 38 2) ))
                  (start_list "list")
                  (mapcar 'add_list list0)
                  (end_list))
               
    ((= zcxl "1")
    (setq d  10        d11 30  d1 56 t1  12  )
    (set_tile "d1"  (rtos d 2 2))
    (set_tile "dxin" (rtos d11 2 2))
    (set_tile "d" (rtos d1 2 2))
    (set_tile "t1" (rtos t1 2 2))
                             (setq list1'( "20          47          18         1.5"
                                           "30          60          21         1.5"
                                           "35          68          24         1.5"
                                                 "40          78          26         1.5"
                                           "45          85          28         1.5"
                                                  "50          95          31         2"
                                           "55          105         35         2"  
                                                  "60          110         35         2"
                                           "65          115         36         2"
                                           "70          125         40         2"
                                           "75          135         44         2.5"
                                           "80          140         44         2.5"
                                           "85          150         49         2.5"
                                           "90          155         52         2.5"
                                           "100         170         55         2.5"
                              ))
                  (setq list111(list'(20 47 18 1.5)'(30 60 21 1.5)'(35 68 24 1.5)
                                     '(40 78 26 1.5)
                               '(45 85 28 1.5)
                                      '(50 95 31 2)
                               '(55 105 35 2)
                                      '(60 110 35 2)
                               '(65 115 36 2)'(70 125 40 2)'(75 135 44 2.5)
                                '(80 140 44 2.5)'(90 155 52 2.5)'(100  170 55 2.5)
                                 ))
                (start_list "list")
                  (mapcar 'add_list list1)
                  (end_list))
     ;((= zcxl "2")
     ;(setq        d  70        d1 30  h  28        r  1  )
     ;(set_tile "d"  (rtos d 2 2))
    ;(set_tile "d1" (rtos d1 2 2))
    ;(set_tile "h" (rtos h 2 2))
    ;(set_tile "r" (rtos r 2 2))
     ;                       (setq list2'( "30          70          28          1.5"
;                                          "35          80          32            2"
;                                          "40          90          36            2"
;                                          "45          100         39            2"
;                                          "50          110         43          2.5"
;                                          "55          120         48          2.5"
;                                          "60          130         51          2.5"
;                                          "65          140         56            3"
;                                          "70          150         60            3"
;                                          "75          160         65            3"
;                                          "80          170         68          3.5"
;                                          "85          180         72          3.5"
;                                          "90          190         77          3.5"
;                                          "100         210         85            4"
;                                         ))
;                              (setq list222(list'(30 70 28 1.5)'(35 80 32 2)'(40 90 36 2)
;                                                 '(45 100 39 2)'(50 110 43 2.5)'(55 120 48 2.5)
;                                                 '(60 130 51 2.5)'(65 140 56 3)'(70 150 60 3)
;                                                 '(75 160 65 3)'(80 170 68 3.5)'(85 180 72 3.5)
;                                                 '(90 190 77 3.5)'(100 210 85 4)
;                                                 
;                                                 ))
;                                (start_list "list")
;                               (mapcar 'add_list list2)
;                                (end_list))
    )
  )                 
      
(defun take ()
  (cond
    ((= zcxl "0")(setq list00(nth zcs list000))
                 (set_tile "d1" (rtos(nth 0 list00)2 2))
                 (set_tile "dxin" (rtos(nth 1 list00)2 2))
                 (set_tile "d" (rtos(nth 2 list00)2 2))
                 (set_tile "t1" (rtos(nth 3 list00)2 2))
     )
    ((= zcxl "1")(setq list11(nth zcs list111))
                 (set_tile "d1" (rtos(nth 0 list11)2 2))
                 (set_tile "dxin" (rtos(nth 1 list11)2 2))
                 (set_tile "d" (rtos(nth 2 list11)2 2))
                 (set_tile "t1" (rtos(nth 3 list11)2 2))
      )
     ((= zcxl "2")(setq list22(nth zcs list222))
                 (set_tile "d1" (rtos(nth 0 list22)2 2))
                 (set_tile "dxin" (rtos(nth 1 list22)2 2))
                 (set_tile "d" (rtos(nth 2 list22)2 2))
                 (set_tile "t1" (rtos(nth 3 list22)2 2))
                 
     
       )
      )
   )

ZZXXQQ

变量h未赋值

downsea

ZZXXQQ 发表于 2012-6-12 22:20
变量h未赋值

谢谢 ~~应该怎么改呢 ~~~我弄完之后不出图是怎么回事？

ZZXXQQ

变量h未赋值，程序出错，当然不会出现图样。
另外，主程序并未执行出图函数draw4