[求助]怎么用entmake生成一个填充？

starlet2003

如题...

怎么用entmake生成一个填充（已知各个顶点）

hpy

下面这段代码从网上找到的，修改了一下。程序优点：创建填充图案时可以不用把线画出来，只需给定点表即可。缺点：只对由直线构成的多边形有用，对直线与曲线构成的区域和曲线构成的区域没用。

2. ;;功能：对单个或多个区域创建hatch填充
   
3. ;;参数说明：lst 点表组成的点表
   
4. ;;         hatchname  hatch图案名称  
   
5. ;;         Layname    图层名称
   
6. ;;         hatchangle 填充角度(弧度)      
   
7. ;;         pmxsca     填充比例      
   
8. ;;(entmakehatch (list (list pt1 pt2 pt3 ...) (list pt11 pt12 pt13 ...)) "hatch图案名称" "图层" 填充角度(弧度) 填充比例)
   
9. 
   
10. (defun entmakehatch (Lst hatchname Layname hatchangle pmxsca)
    
11.    (entmakex
    
12.       (apply
    
13.          'append
    
14.              (list
    
15.                (list '(0 . "HATCH")
    
16.                      '(100 . "AcDbEntity")
    
17.                      '(410 . "Model")
    
18.                       (cons 8 Layname)
    
19.                      '(100 . "AcDbHatch")
    
20.                      '(10 0.0 0.0 0.0)
    
21.                      '(210 0.0 0.0 1.0)
    
22.                   ;; '(2 . "ANSI31")
    
23.                       (cons 2 hatchname)
    
24.                       (cons 62 256)  ;;颜色随层
    
25.                  ;;(if (= n "SOLID")
    
26.                  ;;  '(70 . 1)
    
27.                      '(70 . 0)
    
28.                 ;; ) ;_  if
    
29.                     '(71 . 0)
    
30.                      (cons 91 (length Lst))
    
31.                ) ;_  list
    
32.                (apply 'append
    
33.                     (mapcar '(lambda (a)
    
34.                                 (apply 'append
    
35.                                     (list (list '(92 . 7) '(72 . 0) '(73 . 1) (cons 93 (length a)))
    
36.                                           (mapcar '(lambda (b) (cons 10 b)) a)
    
37.                                          '((97 . 0))
    
38.                                     ) ;_  list
    
39.                                 ) ;_  apply
    
40.                              ) ;_  lambda
    
41.                       Lst
    
42.                     ) ;_  mapcar
    
43.                ) ;_  apply
    
44.                (list '(75 . 0)
    
45.                      '(76 . 1)
    
46.                       (cons 52 hatchangle)
    
47.                       (cons 41 pmxsca)
    
48.                      '(77 . 0)
    
49.                      '(78 . 1)
    
50.                       (cons 53 hatchangle)
    
51.                      '(43 . 0)
    
52.                      '(44 . 0)
    
53.                      '(45 . 1)
    
54.                   ;;  (cons 45 s)
    
55.                      '(46 . 1)
    
56.                      '(79 . 0)
    
57.                      '(47 . 1)
    
58.                      '(98 . 2)
    
59.                      '(10 0. 0. 0.0)
    
60.                      '(10 0. 0. 0.0)
    
61.                  ;;  '(451 . 0)
    
62.                  ;;  '(460 . 0.0)
    
63.                  ;;  '(461 . 0.0)
    
64.                  ;;  '(452 . 1)
    
65.                  ;;  '(462 . 1.0)
    
66.                  ;;  '(453 . 2)
    
67.                  ;;  '(463 . 0.0)
    
68.                  ;;  '(463 . 1.0)
    
69.                  ;;  '(470 . "LINEAR")
    
70.                ) ;_  list
    
71.              ) ;_  list
    
72.        ) ;_  apply
    
73.    ) ;_  entmakex
    
74. ) ;_  defun

;;功能：对单个或多个区域创建hatch填充 <br /> ;;参数说明：lst 点表组成的点表 <br /> ;;         hatchname  hatch图案名称  <br /> ;;         Layname    图层名称 <br /> ;;         hatchangle 填充角度(弧度)       <br /> ;;         pmxsca     填充比例       <br /> ;;(entmakehatch (list (list pt1 pt2 pt3 ...) (list pt11 pt12 pt13 ...)) "hatch图案名称" "图层" 填充角度(弧度) 填充比例)<br /> <br /> (defun entmakehatch (Lst hatchname Layname hatchangle pmxsca)<br />    (entmakex<br />       (apply<br />          'append<br />              (list<br />                (list '(0 . "HATCH")<br />                      '(100 . "AcDbEntity")<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 . "ANSI31")<br />                       (cons 2 hatchname)<br />                       (cons 62 256)  ;;颜色随层<br />                  ;;(if (= n "SOLID")<br />                  ;;  '(70 . 1)<br />                      '(70 . 0)<br />                 ;; ) ;_  if<br />                     '(71 . 0)<br />                      (cons 91 (length Lst))<br />                ) ;_  list<br />                (apply 'append<br />                     (mapcar '(lambda (a)<br />                                 (apply 'append<br />                                     (list (list '(92 . 7) '(72 . 0) '(73 . 1) (cons 93 (length a)))<br />                                           (mapcar '(lambda (b) (cons 10 b)) a)<br />                                          '((97 . 0))<br />                                     ) ;_  list<br />                                 ) ;_  apply<br />                              ) ;_  lambda<br />                       Lst<br />                     ) ;_  mapcar<br />                ) ;_  apply<br />                (list '(75 . 0)<br />                      '(76 . 1)<br />                       (cons 52 hatchangle)<br />                       (cons 41 pmxsca)<br />                      '(77 . 0)<br />                      '(78 . 1)<br />                       (cons 53 hatchangle)<br />                      '(43 . 0)<br />                      '(44 . 0)<br />                      '(45 . 1)<br />                   ;;  (cons 45 s)<br />                      '(46 . 1)<br />                      '(79 . 0)<br />                      '(47 . 1)<br />                      '(98 . 2)<br />                      '(10 0. 0. 0.0)<br />                      '(10 0. 0. 0.0)<br />                  ;;  '(451 . 0)<br />                  ;;  '(460 . 0.0)<br />                  ;;  '(461 . 0.0)<br />                  ;;  '(452 . 1)<br />                  ;;  '(462 . 1.0)<br />                  ;;  '(453 . 2)<br />                  ;;  '(463 . 0.0)<br />                  ;;  '(463 . 1.0)<br />                  ;;  '(470 . "LINEAR")<br />                ) ;_  list<br />              ) ;_  list<br />        ) ;_  apply<br />    ) ;_  entmakex<br /> ) ;_  defun

尘缘一生

这个问题也没有解决。。。