求助如何用entmake生成月牙形状的弧边填充？谢谢~

逗亦斗霸

通过先画出弧形（图左）再用command填充的方法可以生成该月牙形状的填充（图右），其填充DXF内码为：

1. ((-1 . <图元名: 1e02ec380a0>) (0 . HATCH) (330 . <图元名: 1e000ef9f00>) (5 . 5D2) (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 . 7) (72 . 1) (73 . 1) (93 . 3) (10 90.0 80.0 0.0) (42 . 0.720759) (10 0.0 50.0 0.0) (42 . 0.720759) (10 90.0 20.0 0.0) (42 . -2.51118) (97 . 2) (330 . <图元名: 1e02ec380b0>) (330 . <图元名: 1e02ec380c0>) (75 . 1) (76 . 1) (47 . 0.399342) (98 . 1) (10 9.68159 62.0121 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))

复制代码

2. (defun c:tt (/ p0 p1 p2 p3)
   
3.     (setq p0 (getpoint "\n插入点: ") )
   
4.     (setq p1 (mapcar '+ p0 '(40 -20 0) ) )
   
5.     (setq p2 (mapcar '+ p0 '(40 -80 0) ) )
   
6.     (setq p3 (mapcar '+ p0 '(-42 -50 0) ) )
   
7.   
   
8.       (entmake
   
9.         (list
   
10.            '(0 . "hatch")
    
11.            '(100 . "AcDbEntity")
    
12.            '(67 . 0)
    
13.            '(410 . "Model")
    
14.             (cons 8 "0")
    
15.            '(100 . "AcDbHatch")
    
16.            '(10 0.0 0.0 0.0)
    
17.            '(210 0.0 0.0 1.0)
    
18.             (cons 2 "SOLID")
    
19.            '(70 . 1)
    
20.            '(71 . 1)
    
21.            '(91 . 1)
    
22.            '(92 . 7)
    
23.            '(72 . 1)
    
24.            '(73 . 1)
    
25.            '(93 . 3)
    
26.             (cons 10 p1)
    
27.             (cons 42 (* 0.229 pi) )
    
28.            '(10 0.0 50 0.0)
    
29.             (cons 42 (* 0.229 pi) )
    
30.             (cons 10 p2)
    
31.             (cons 42 (- (* 0.7995 pi) ) )
    
32.            '(97 . 2)
    
33.            '(75 . 1)
    
34.            '(76 . 1)
    
35.             (cons 47 (* 0.1271 pi) )
    
36.            '(98 . 1)
    
37.             (cons 10 p3)
    
38.            '(450 . 0)
    
39.            '(451 . 0)
    
40.            '(460 . 0)
    
41.            '(461 . 0)
    
42.            '(452 . 0)
    
43.            '(462 . 1)
    
44.            '(453 . 2)
    
45.            '(463 . 0)
    
46.            '(63 . 5)
    
47.            '(421 . 255)
    
48.            '(463 . 1)
    
49.            '(63 . 2)
    
50.        '(421 . 16776960)
    
51.            '(470 . "LINEAR")
    
52.         )
    
53.     )
    
54.     )

(defun c:tt (/ p0 p1 p2 p3)<br />     (setq p0 (getpoint "\n插入点: ") )<br />     (setq p1 (mapcar '+ p0 '(40 -20 0) ) )<br />     (setq p2 (mapcar '+ p0 '(40 -80 0) ) )<br />     (setq p3 (mapcar '+ p0 '(-42 -50 0) ) )<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 . 7)<br />            '(72 . 1)<br />            '(73 . 1)<br />            '(93 . 3)<br />             (cons 10 p1)<br />             (cons 42 (* 0.229 pi) )<br />            '(10 0.0 50 0.0)<br />             (cons 42 (* 0.229 pi) )<br />             (cons 10 p2)<br />             (cons 42 (- (* 0.7995 pi) ) )<br />            '(97 . 2)<br />            '(75 . 1)<br />            '(76 . 1)<br />             (cons 47 (* 0.1271 pi) )<br />            '(98 . 1)<br />             (cons 10 p3)<br />            '(450 . 0)<br />            '(451 . 0)<br />            '(460 . 0)<br />            '(461 . 0)<br />            '(452 . 0)<br />            '(462 . 1)<br />            '(453 . 2)<br />            '(463 . 0)<br />            '(63 . 5)<br />            '(421 . 255)<br />            '(463 . 1)<br />            '(63 . 2)<br />        '(421 . 16776960)<br />            '(470 . "LINEAR")<br />         )<br />     )<br />     )

llsheng_73

1. (ENTMAKEX'((0 . "HATCH")(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 . 0) (91 . 1) (92 . 7) (72 . 1) (73 . 1) (93 . 4) (10 830.53 985.077 0.0) (42 . 0.472533) (10 452.979 674.783 0.0) (42 . 0.472533) (10 830.53 364.489 0.0) (42 . -0.388727) (10 546.348 674.783 0.0) (42 . -0.388727) (97 . 0) (75 . 0) (76 . 1) (47 . 1) (98 . 1)(10 500 500 0)))

(ENTMAKEX'((0 . "HATCH")(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 . 0) (91 . 1) (92 . 7) (72 . 1) (73 . 1) (93 . 4) (10 830.53 985.077 0.0) (42 . 0.472533) (10 452.979 674.783 0.0) (42 . 0.472533) (10 830.53 364.489 0.0) (42 . -0.388727) (10 546.348 674.783 0.0) (42 . -0.388727) (97 . 0) (75 . 0) (76 . 1) (47 . 1) (98 . 1)(10 500 500 0)))

实际上只需要两个点就行了，之所以出现4个点是被自动填充数据误导了

1. (ENTMAKEX'((0 . "HATCH")(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 . 0) (91 . 1) (92 . 7) (72 . 1) (73 . 1) (93 . 2) (10 830.53 985.077 0.0) (42 . 0.472533) (10 830.53 364.489 0.0) (42 . -0.388727) (97 . 0) (75 . 0) (76 . 1) (47 . 1) (98 . 1)(10 500 500 0)))

(ENTMAKEX'((0 . "HATCH")(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 . 0) (91 . 1) (92 . 7) (72 . 1) (73 . 1) (93 . 2) (10 830.53 985.077 0.0) (42 . 0.472533) (10 830.53 364.489 0.0) (42 . -0.388727) (97 . 0) (75 . 0) (76 . 1) (47 . 1) (98 . 1)(10 500 500 0)))

楼主的填充数据

1. (ENTMAKEX'((0 . "HATCH")(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 . 0) (91 . 1) (92 . 7) (72 . 1) (73 . 1) (93 . 2) (10 90.0 80.0 0.0) (42 . 3)(10 90.0 20.0 0.0) (42 . -2.51118)  (97 . 0) (75 . 0) (76 . 1) (47 . 1) (98 . 1)(10 500 500 0)))

(ENTMAKEX'((0 . "HATCH")(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 . 0) (91 . 1) (92 . 7) (72 . 1) (73 . 1) (93 . 2) (10 90.0 80.0 0.0) (42 . 3)(10 90.0 20.0 0.0) (42 . -2.51118)  (97 . 0) (75 . 0) (76 . 1) (47 . 1) (98 . 1)(10 500 500 0)))

vitalgg

逗亦斗霸

llsheng_73 发表于 2024-11-27 15:57

好像不能生成啊~

逗亦斗霸

vitalgg 发表于 2024-11-27 15:59

参数都搜索到了呀，就是摆一块就不好使了~

llsheng_73

逗亦斗霸 发表于 2024-11-27 16:13
好像不能生成啊~

搞掉了最后一个10组...最后边加了一个10组可以了

逗亦斗霸

llsheng_73 发表于 2024-11-27 16:18
搞掉了最后一个10组...最后边加了一个10组可以了

这下可以了，请问最后的10组是固定的数值吗？因为我想调整位置~

llsheng_73

逗亦斗霸 发表于 2024-11-27 16:25
这下可以了，请问最后的10组是固定的数值吗？因为我想调整位置~

最后那是图例数据。。。要调整位置、形状在前边那4个10组和42组，那才是边界数据

vitalgg

逗亦斗霸 发表于 2024-11-27 16:15
参数都搜索到了呀，就是摆一块就不好使了~

好使，就是需要坐标转换，wcs 转 ocs .

1 填充主参数   dxf0 --  dxf91
2 边界数据   
3 填充样式数据 dxf75 --

逗亦斗霸

llsheng_73 发表于 2024-11-27 15:57
实际上只需要两个点就行了，之所以出现4个点是被自动填充数据误导了

非常感谢！第三个把俩10组修改后就是我想要的代码，感觉这个42组好难调啊，前面两个代码拉伸后还会出现50组和51组。
大佬这代码和我手动command填充后查询组码的不太一样，反正是有点云里雾里，好在这次的问题解决了，再次感谢！