[求助]：XD,帮忙看一下这段程序!!!!!

xyzjint_cn

该段程序主要是对一根主风管和二根支风管（三线风管）自动进行三通弯头绘制，可运行起来FILLET了ln1 ln8 和ln2 ln4 4根管线后就不能运行，出现如下提示：
Select object: 选择第一支管管线(从内边开始、顺时针方向):
Select object: 选择第二支管管线(从外边开始、顺时针方向):
fillet
(TRIM mode) Current fillet radius = 600.0000
Polyline/Radius/Trim/<Select first object>: r Enter fillet radius <600.0000>:
400.0000000000036
Command: fillet
(TRIM mode) Current fillet radius = 400.0000
Polyline/Radius/Trim/<Select first object>:
Select second object:
Command: FGST Unknown command "FGST".  Press F1 for help.
Command: fillet
(TRIM mode) Current fillet radius = 400.0000
Polyline/Radius/Trim/<Select first object>:
Select second object:
Command: FGST Unknown command "FGST".  Press F1 for help.
Command: fillet
(TRIM mode) Current fillet radius = 400.0000
Polyline/Radius/Trim/<Select first object>:
Command: <Selection set: 4>

程序清单如下：

2. 
   
3. (defun C:fgst()
   
4.   (princ "选择主风管管线")
   
5.   (setq        pe1 (entsel)                       
   
6. ;求得主风管管径,取得三个点坐标
   
7.         p1  (osnap (last pe1) "nea")
   
8.         p2  (getpoint p1)
   
9.         p2  (list (car p2) (cadr p2))
   
10.         p3  (mapcar '+ p1 p2)
    
11.         p3  (mapcar '/ p2 '(2 2 2))
    
12.         kj  (distance p1 p2)
    
13.   )
    
14.   (princ "选择第一支管管线(从内边开始、顺时针方向):")
    
15.   (setq        pe2 (entsel)                       
    
16. ;求得第一支风管,取得三个点坐标
    
17.         p4  (osnap (last pe2) "nea")
    
18.         p5  (getpoint p4)
    
19.         p5  (list (car p5) (cadr p5))
    
20.         p6  (mapcar '+ p4 p5)
    
21.         p6  (mapcar '/ p6 '(2 2 2))
    
22. 
    
23.   )
    
24.   (princ "选择第二支管管线(从外边开始、顺时针方向):")
    
25.   (setq        pe3 (entsel)                       
    
26. ;求得第二支风管,取得三个点坐标
    
27.         p7  (osnap (last pe3) "nea")
    
28.         p8  (getpoint p7)
    
29.         p8  (list (car p8) (cadr p8))
    
30.         p9  (mapcar '+ p7 p8)
    
31.         p6  (mapcar '/ p9 '(2 2 2))
    
32.   )
    
33.   (setq kj1 (/ kj 2))
    
34.   (setq kj2 (/ (+ kj kj1) 2))
    
35. 
    
36.   (setq ln1 (ssget p1))
    
37.   (setq ln2 (ssget p2))
    
38.   (setq ln3 (ssget p3))
    
39.   (setq ln4 (ssget p4))
    
40.   (setq ln5 (ssget p5))
    
41.   (setq ln6 (ssget p6))
    
42.   (setq ln7 (ssget p7))
    
43.   (setq ln8 (ssget p8))
    
44.   (setq ln9 (ssget p9))
    
45. 
    
46.   (command "fillet" "r" kj1)
    
47.   (command "fillet" ln1 ln8 "")
    
48.   (command "fillet" ln2 ln4 "")
    
49.   (command "fillet" ln3 ln5 "")
    
50.   (command "fillet" ln3 ln7 "")
    
51. 
    
52.   (command "fillet" "r" kj2)
    
53.   (command "fillet" ln3 ln6 "")
    
54.   (command "fillet" ln3 ln9 "")
    
55.   (princ)
    
56. 
    
57. )
    

<br /> (defun C:fgst()<br />   (princ "选择主风管管线")<br />   (setq        pe1 (entsel)                        <br /> ;求得主风管管径,取得三个点坐标<br />         p1  (osnap (last pe1) "nea")<br />         p2  (getpoint p1)<br />         p2  (list (car p2) (cadr p2))<br />         p3  (mapcar '+ p1 p2)<br />         p3  (mapcar '/ p2 '(2 2 2))<br />         kj  (distance p1 p2)<br />   )<br />   (princ "选择第一支管管线(从内边开始、顺时针方向):")<br />   (setq        pe2 (entsel)                        <br /> ;求得第一支风管,取得三个点坐标<br />         p4  (osnap (last pe2) "nea")<br />         p5  (getpoint p4)<br />         p5  (list (car p5) (cadr p5))<br />         p6  (mapcar '+ p4 p5)<br />         p6  (mapcar '/ p6 '(2 2 2))<br /> <br />   )<br />   (princ "选择第二支管管线(从外边开始、顺时针方向):")<br />   (setq        pe3 (entsel)                        <br /> ;求得第二支风管,取得三个点坐标<br />         p7  (osnap (last pe3) "nea")<br />         p8  (getpoint p7)<br />         p8  (list (car p8) (cadr p8))<br />         p9  (mapcar '+ p7 p8)<br />         p6  (mapcar '/ p9 '(2 2 2))<br />   )<br />   (setq kj1 (/ kj 2))<br />   (setq kj2 (/ (+ kj kj1) 2))<br /> <br />   (setq ln1 (ssget p1))<br />   (setq ln2 (ssget p2))<br />   (setq ln3 (ssget p3))<br />   (setq ln4 (ssget p4))<br />   (setq ln5 (ssget p5))<br />   (setq ln6 (ssget p6))<br />   (setq ln7 (ssget p7))<br />   (setq ln8 (ssget p8))<br />   (setq ln9 (ssget p9))<br /> <br />   (command "fillet" "r" kj1)<br />   (command "fillet" ln1 ln8 "")<br />   (command "fillet" ln2 ln4 "")<br />   (command "fillet" ln3 ln5 "")<br />   (command "fillet" ln3 ln7 "")<br /> <br />   (command "fillet" "r" kj2)<br />   (command "fillet" ln3 ln6 "")<br />   (command "fillet" ln3 ln9 "")<br />   (princ)<br /> <br /> )<br />