entmake创建填充

duhan6401

我自己琢磨了一个填充，cad2012不得行，但是浩辰2022却可以，不知道高版本cad行不行。或者哪位帮我更改下简化下，我只需要图层，颜色，填充为solid图案，边界。
(entmake (list '(0 . "HATCH") '(5 . "228") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") '(8 . "0") '(100 . "AcDbHatch") '(10 0.0 0.0 0.0) '(210 0.0 0.0 1.0) '(2 . "SOLID") '(70 . 1) '(71 . 1) '(91 . 1) '(92 . 1) '(93 . 4) '(72 . 1) '(10 29.9364 98.0187 0.0) '(11 30.9364 98.0187 0.0) '(72 . 1) '(10 30.9364 98.0187 0.0) '(11 30.9364 108.019 0.0) '(72 . 1) '(10 30.9364 108.019 0.0) '(11 29.9364 108.019 0.0) '(72 . 1) '(10 29.9364 108.019 0.0) '(11 29.9364 98.0187 0.0) '(97 . 1)  '(75 . 1) '(76 . 1) '(98 . 1) '(10 0.0 0.0 0.0) '(450 . 0) '(451 . 0) '(460 . 0.0) '(461 . 0.0) '(452 . 0) '(462 . 1.0) '(453 . 2) '(463 . 0.0) '(63 . 5) '(421 . 255) '(463 . 1.0) '(63 . 2) '(421 . 16776960) '(470 . "LINEAR")))