使用entmake函数通过点表生成填充

kele99kele

最近在做楼梯工具的时候遇到一个问题，查阅各种论坛帖子、教材、课件、示例不得解，实在没办法了，请论坛大神给予帮助为盼。
在langjs的帖子[源码]entmake创建图元必要条件(慢慢更新)中有如下代码：

1. (entmake (list '(0 . "SOLID") (cons 10 pt1)  (cons 11 pt2) (cons 12 pt4) (cons 13 pt3)))

复制代码

该条件要素为4个已知坐标点。
对之前没有注意过此类问题的大神为节约时间，可参考发表于晓东的一篇帖子：http://bbs.xdcad.net/thread-668462-1-1.html

我现在想做一个采用entmake函数创建多顶点填充（多顶点夹角含有阴角、阳角）并指定填充比例的函数，反复试验不得要领，请论坛大神给一段代码提点一下。
已知条件1：n_ptlist （生成多段线的点表，点表元素数目不少于15个）
已知条件2：n_scale （整数填充比例）
已知条件3：ANGLE （填充图案名称）
目标：以n_ptlist为顶点，n_scale为填充角度，ANGLE为填充图案，采用entmake函数绘制填充。

edata

建议entmake实体填充，vla修改填充名角度等参数

edata

1. (entmake (list '(0 . "HATCH")
   
2.    '(100 . "AcDbEntity")
   
3.    '(67 . 0)
   
4.    '(410 . "Model")
   
5.    (cons 8 Layname)
   
6.    '(100 . "AcDbHatch")
   
7.    '(10 0.0 0.0 0.0)
   
8.    '(210 0.0 0.0 1.0)
   
9.    '(2 . "SOLID")
   
10.    '(70 . 1)
    
11.    '(71 . 0)
    
12.    '(91 . 1)
    
13.    '(92 . 3)
    
14.    '(72 . 0)
    
15.    '(73 . 1)
    
16.    '(93 . 4)
    
17.    (cons 10 pt1)
    
18.    (cons 10 pt2)
    
19.    (cons 10 pt3)
    
20.    (cons 10 pt4)
    
21.    '(97 . 0)
    
22.    '(75 . 0)
    
23.    '(76 . 1)
    
24.    '(98 . 0)
    
25.      )
    
26. 
    
27.     )

(entmake (list '(0 . "HATCH")<br />    '(100 . "AcDbEntity")<br />    '(67 . 0)<br />    '(410 . "Model")<br />    (cons 8 Layname)<br />    '(100 . "AcDbHatch")<br />    '(10 0.0 0.0 0.0)<br />    '(210 0.0 0.0 1.0)<br />    '(2 . "SOLID")<br />    '(70 . 1)<br />    '(71 . 0)<br />    '(91 . 1)<br />    '(92 . 3)<br />    '(72 . 0)<br />    '(73 . 1)<br />    '(93 . 4)<br />    (cons 10 pt1)<br />    (cons 10 pt2)<br />    (cons 10 pt3)<br />    (cons 10 pt4)<br />    '(97 . 0)<br />    '(75 . 0)<br />    '(76 . 1)<br />    '(98 . 0)<br />      )<br /> <br />     )

edata

1. (entmakex
   
2.   (append
   
3.     (list '(0 . "HATCH")
   
4.    '(100 . "AcDbEntity")
   
5.    '(67 . 0)
   
6.    '(410 . "Model")
   
7.    (cons 8 Layname)
   
8.    '(100 . "AcDbHatch")
   
9.    '(10 0.0 0.0 0.0)
   
10.    '(210 0.0 0.0 1.0)
    
11.    '(2 . "SOLID")
    
12.    '(70 . 1)
    
13.    '(71 . 0)
    
14.    '(91 . 1)
    
15.    '(92 . 3)
    
16.    '(72 . 0)
    
17.    '(73 . 1)
    
18.    (cons 93 (length lst)))
    
19.    (mapcar '(lambda(x)(cons 10 x)) lst)
    
20.     (list
    
21.       '(97 . 0)
    
22.       '(75 . 0)
    
23.       '(76 . 1)
    
24.       '(98 . 0)
    
25.       )
    
26.     )
    
27.   )

(entmakex<br />   (append<br />     (list '(0 . "HATCH")<br />    '(100 . "AcDbEntity")<br />    '(67 . 0)<br />    '(410 . "Model")<br />    (cons 8 Layname)<br />    '(100 . "AcDbHatch")<br />    '(10 0.0 0.0 0.0)<br />    '(210 0.0 0.0 1.0)<br />    '(2 . "SOLID")<br />    '(70 . 1)<br />    '(71 . 0)<br />    '(91 . 1)<br />    '(92 . 3)<br />    '(72 . 0)<br />    '(73 . 1)<br />    (cons 93 (length lst)))<br />    (mapcar '(lambda(x)(cons 10 x)) lst)<br />     (list<br />       '(97 . 0)<br />       '(75 . 0)<br />       '(76 . 1)<br />       '(98 . 0)<br />       )<br />     )<br />   )

zheng209

如果要设置填充比例该 怎么办呢？