entmake动态生成带弧度的填充实体时遇到的问题求助，谢谢~

逗亦斗霸

2. (defun c:tt (/ p0)
   
3. (setq p0 (getpoint "\n起点: ")
   
4.     pn (getpoint p0 "\n终点: ")
   
5.     jd (angle p0 pn)
   
6.       p1 (mapcar '+ p0 '(420 0 0) )
   
7.       p2 (mapcar '+ p0 '(0 -210 0) )
   
8.     jd1 (angle p0 p2)
   
9. )
   
10. (setq
    
11.       pt1  (polar p0 jd 420)
    
12.       pt2  (polar p0 (+ jd jd1) 210)
    
13.       pt3  (polar pt2 jd 420)
    
14. )
    
15. (entmake
    
16.     (list
    
17.      '(0 . "hatch")
    
18.        '(100 . "AcDbEntity")
    
19.        '(67 . 0)
    
20.        '(410 . "Model")
    
21.         (cons 8 "0")
    
22.        '(100 . "AcDbHatch")
    
23.        '(10 0.0 0.0 0.0)
    
24.        '(210 0.0 0.0 1.0)
    
25.         (cons 2 "SOLID")
    
26.        '(70 . 1)
    
27.        '(71 . 1)
    
28.        '(91 . 1)
    
29.        '(92 . 1)
    
30.        '(93 . 3)
    
31.        '(72 . 1)
    
32.        (cons 10 p0)
    
33.        (cons 11 pt1)
    
34.        '(72 . 2)
    
35.        (cons 10 pt3)
    
36.        '(40 . 210)
    
37.        (cons 50 (+ (* pi (/ jd 180.) ) (/ pi 2) ) )
    
38.        (cons 51 (+ (* pi (/ jd 180.) ) pi) )
    
39.        '(73 . 1)
    
40.        '(72 . 2)
    
41.        (cons 10 pt2)
    
42.        '(40 . 210)
    
43.        (cons 50 (+ (* pi (/ jd 180.) ) (* pi 2) ) )
    
44.        (cons 51 (+ (* pi (/ jd 180.) ) (* pi 2.5) ) )
    
45.        '(73 . 1)
    
46.        '(97 . 0)
    
47.        '(75 . 1)
    
48.        '(76 . 1)
    
49.        '(98 . 1)
    
50.        (cons 10 p0)
    
51.       '(453 . 2)
    
52.       '(463 . 0)
    
53.       '(463 . 1)
    
54.       '(470 . "LINEAR")
    
55.      )
    
56. )
    
57. (princ)
    
58. )

(defun c:tt (/ p0)<br /> (setq p0 (getpoint "\n起点: ")<br />     pn (getpoint p0 "\n终点: ")<br />     jd (angle p0 pn)<br />       p1 (mapcar '+ p0 '(420 0 0) )<br />       p2 (mapcar '+ p0 '(0 -210 0) )<br />     jd1 (angle p0 p2)<br /> )<br /> (setq <br />       pt1  (polar p0 jd 420)<br />       pt2  (polar p0 (+ jd jd1) 210)<br />       pt3  (polar pt2 jd 420)<br /> )<br /> (entmake<br />     (list<br />      '(0 . "hatch")<br />        '(100 . "AcDbEntity")<br />        '(67 . 0)<br />        '(410 . "Model")<br />         (cons 8 "0")<br />        '(100 . "AcDbHatch")<br />        '(10 0.0 0.0 0.0)<br />        '(210 0.0 0.0 1.0)<br />         (cons 2 "SOLID")<br />        '(70 . 1)<br />        '(71 . 1)<br />        '(91 . 1)<br />        '(92 . 1)<br />        '(93 . 3)<br />        '(72 . 1)<br />        (cons 10 p0)<br />        (cons 11 pt1)<br />        '(72 . 2)<br />        (cons 10 pt3)<br />        '(40 . 210)<br />        (cons 50 (+ (* pi (/ jd 180.) ) (/ pi 2) ) )<br />        (cons 51 (+ (* pi (/ jd 180.) ) pi) )<br />        '(73 . 1)<br />        '(72 . 2)<br />        (cons 10 pt2)<br />        '(40 . 210)<br />        (cons 50 (+ (* pi (/ jd 180.) ) (* pi 2) ) )<br />        (cons 51 (+ (* pi (/ jd 180.) ) (* pi 2.5) ) )<br />        '(73 . 1)<br />        '(97 . 0)<br />        '(75 . 1)<br />        '(76 . 1)<br />        '(98 . 1)<br />        (cons 10 p0)<br />       '(453 . 2)<br />       '(463 . 0)<br />       '(463 . 1)<br />       '(470 . "LINEAR")<br />      )<br /> )<br /> (princ)<br /> )

此代码水平零角度时可以正常生成我想要的填充样式（图1），但当有角度时则会出现异样（图2和图3），问题应该是出在DXF组码50和51，尝试修改却未成功，现请求大佬指点一下怎么修改？谢谢~