点取第一点:; 错误: 参数类型错误: numberp: nil

szx025

2. ;;--------单双开门---------
   
3. 
   
4. 
   
5. (defun c:myu (/ th1 th2 thh thw point1 old_os old_cmd pt10 pt11 pt12 pt13 pt14 pt15
   
6.         )
   
7.     ;;保存系统变量设置
   
8.     (setq old_OS  (getvar "OSMODE")
   
9.       old_CMD (getvar "CMDECHO")
   
10.     )   
    
11.     (setvar "CMDECHO" 0)
    
12.     (command "-osnap" "INT")
    
13.     (setq point1 (getpoint "点取第一点:"))
    
14.     (if (= thw nil)
    
15.     (setq thw 900)
    
16.   )
    
17.   (setq th1 (getreal (strcat "\n门宽度<" (rtos ths 2 0) ">:")))
    
18.   (if (= th1 nil)
    
19.     (setq th1 thw)
    
20.   )
    
21.   (if (= thh nil)
    
22.     (setq thh 2400)
    
23.   )
    
24.   (setq th2 (getreal (strcat "\n门高度<" (rtos ths 2 0) ">:")))
    
25.   (if (= th2 nil)
    
26.    (setq th2 thh)
    
27.   )
    
28.         (progn
    
29.       
    
30. ;;判断部分
    
31.         (setvar "OSMODE" 0)
    
32. (command "-layer" "m" "mc"
    
33.                "C" "4" """")                 
    
34.        (if (<= th1 1100)
    
35.             ;; 画单开门
    
36.             (progn
    
37. ;;门三点
    
38.        (setq Pt10 (polar point1 0 th1));门的右下点
    
39.        (setq Pt11 (polar point1 (* 0.5 pi) th2));门的左上点
    
40.        (setq Pt12 (polar pt11 0 th1));门的右上点
    
41. 
    
42. ;;画门框线
    
43. (command "Pline" point1 "W" "0" "" pt11 Pt12 pt10 "c")
    
44. )
    
45. ;;画双开门  
    
46.             (progn
    
47. ;;门三点
    
48.        (setq Pt10 (polar point1 0 th1));门的右下点
    
49.        (setq Pt11 (polar point1 (* 0.5 pi) th2));门的左上点
    
50.        (setq Pt12 (polar pt11 0 th1));门的右上点
    
51. (setq Pt14 (polar point1 0 (/ th1 2)))
    
52. (setq Pt15 (polar pt11 0 (/ th1 2)))
    
53. (command "Pline" point1 "W" "0" "" pt11 Pt12 pt10 "c")
    
54. (command "line" pt14 Pt15 "")
    
55. )
    
56. )
    
57.     (setvar "osmode" 0)
    
58.     ;;恢复系统变量设置
    
59.     (setvar "CMDECHO" old_CMD)
    
60.     (setvar "OSMODE" old_OS)
    
61. ;;执行完毕返回0层
    
62. (setvar "clayer" "0")  
    
63. )
    
64.         
    
65. (princ "\n没有点取 结束")
    
66. )
    

;;--------单双开门---------<br /> <br /> <br /> (defun c:myu (/ th1 th2 thh thw point1 old_os old_cmd pt10 pt11 pt12 pt13 pt14 pt15<br />         ) <br />     ;;保存系统变量设置 <br />     (setq old_OS  (getvar "OSMODE") <br />       old_CMD (getvar "CMDECHO") <br />     )   <br />     (setvar "CMDECHO" 0) <br />     (command "-osnap" "INT")<br />     (setq point1 (getpoint "点取第一点:")) <br />     (if (= thw nil)<br />     (setq thw 900)<br />   )<br />   (setq th1 (getreal (strcat "\n门宽度<" (rtos ths 2 0) ">:")))<br />   (if (= th1 nil)<br />     (setq th1 thw)<br />   )<br />   (if (= thh nil)<br />     (setq thh 2400)<br />   )<br />   (setq th2 (getreal (strcat "\n门高度<" (rtos ths 2 0) ">:")))<br />   (if (= th2 nil)<br />    (setq th2 thh)<br />   )<br />         (progn <br />        <br /> ;;判断部分 <br />         (setvar "OSMODE" 0)<br /> (command "-layer" "m" "mc" <br />                "C" "4" """")                  <br />        (if (<= th1 1100) <br />             ;; 画单开门 <br />             (progn <br /> ;;门三点<br />        (setq Pt10 (polar point1 0 th1));门的右下点<br />        (setq Pt11 (polar point1 (* 0.5 pi) th2));门的左上点<br />        (setq Pt12 (polar pt11 0 th1));门的右上点<br /> <br /> ;;画门框线<br /> (command "Pline" point1 "W" "0" "" pt11 Pt12 pt10 "c") <br /> )<br /> ;;画双开门  <br />             (progn<br /> ;;门三点<br />        (setq Pt10 (polar point1 0 th1));门的右下点<br />        (setq Pt11 (polar point1 (* 0.5 pi) th2));门的左上点<br />        (setq Pt12 (polar pt11 0 th1));门的右上点<br /> (setq Pt14 (polar point1 0 (/ th1 2)))<br /> (setq Pt15 (polar pt11 0 (/ th1 2)))<br /> (command "Pline" point1 "W" "0" "" pt11 Pt12 pt10 "c") <br /> (command "line" pt14 Pt15 "")<br /> )<br /> )<br />     (setvar "osmode" 0) <br />     ;;恢复系统变量设置 <br />     (setvar "CMDECHO" old_CMD) <br />     (setvar "OSMODE" old_OS)<br /> ;;执行完毕返回0层 <br /> (setvar "clayer" "0")  <br /> )<br />         <br /> (princ "\n没有点取 结束")<br /> )<br />

请高手看看这个小程序，执行后出现 “点取第一点:; 错误: 参数类型错误: numberp: nil”，哪里有问题

waterchen

ths没有初始值哦.

szx025

waterchen 发表于 2016-3-23 12:11
ths没有初始值哦.

谢谢，是这个问题