房间轮廓生成出错，请大神看看提示错误到底出在哪里

a117034423

1. (defun c:dbb (/ dis1 pt1 ss1 ss2)
   
2.   (setvar "cmdecho" 0)
   
3.   (setq dis1 (getint "请输入板搭墙尺寸，默认为15mm: "))
   
4.   (if (= dis1 nil) (setq dis1 15))
   
5.   (xdrx-document-setprec 10 3)
   
6.   (setq pt1 0)
   
7.   (setq ss3 (ssadd))
   
8.   (while pt1
   
9.   (setq pt1 (getpoint "\n拾取房间内部点<退出>:"))
   
10.   (if (not (xdrx_point_isinside pt1 ss1))
    
11.   (vl-cmdf "_.-boundary" "_a" "_island" "_no" "" "" pt1 ""))
    
12.   (setq ss1 (entlast))
    
13.   (xdrx_polyline_compress ss1)
    
14.   (ssadd (entlast) ss3)
    
15.   )
    
16.   (xdrx-setpropertyvalue ss3 "layer" "板轮廓线")
    
17.   (xdrx_curve_getoffsetcurves ss3 dis1)
    
18.   (xdrx-entity-delete ss3)
    
19.   (princ "<完成>")
    
20.   )
    

(defun c:dbb (/ dis1 pt1 ss1 ss2)<br />   (setvar "cmdecho" 0)<br />   (setq dis1 (getint "请输入板搭墙尺寸，默认为15mm: "))<br />   (if (= dis1 nil) (setq dis1 15))<br />   (xdrx-document-setprec 10 3)<br />   (setq pt1 0)<br />   (setq ss3 (ssadd))<br />   (while pt1<br />   (setq pt1 (getpoint "\n拾取房间内部点<退出>:"))<br />   (if (not (xdrx_point_isinside pt1 ss1))<br />   (vl-cmdf "_.-boundary" "_a" "_island" "_no" "" "" pt1 ""))<br />   (setq ss1 (entlast))<br />   (xdrx_polyline_compress ss1)<br />   (ssadd (entlast) ss3)<br />   )<br />   (xdrx-setpropertyvalue ss3 "layer" "板轮廓线")<br />   (xdrx_curve_getoffsetcurves ss3 dis1)<br />   (xdrx-entity-delete ss3)<br />   (princ "<完成>")<br />   )<br />

命令可以正常执行，但最后执行完毕后会提示“应用程序错误: 命令输入时发送的类型无效”
请问问题到底出在哪里？
命令: dbb 请输入板搭墙尺寸，默认为15mm:

1. 拾取房间内部点<退出>:
   
2. 拾取房间内部点<退出>:
   
3. 拾取房间内部点<退出>:
   
4. 拾取房间内部点<退出>:
   
5. 拾取房间内部点<退出>:
   
6. 拾取房间内部点<退出>: 应用程序错误: 命令输入时发送的类型无效
   

<font color=\"#708090\">拾取房间内部点<退出>:</font><br /> <font color=\"#708090\">拾取房间内部点<退出>:</font><br /> <font color=\"#708090\">拾取房间内部点<退出>:</font><br /> <font color=\"#708090\">拾取房间内部点<退出>:</font><br /> <font color=\"#708090\">拾取房间内部点<退出>:</font><br /> <font color=\"#708090\">拾取房间内部点<退出>: 应用程序错误: 命令输入时发送的类型无效</font><br />