如何用entmake填充带弧线的区域？

hw8810

试了好久都不成功，论坛上也没找到例子，理论上在群码10之间插入凸度42，不知道还有哪些要修改的，大佬们救救孩子，给个成功的例子也行

自贡黄明儒

你用entget查看一下，42是弓高比

liuhe

2. (vl-load-com)  
   
3. (defun c:Example_AddHatch()  
   
4.     ;; This example creates an associative gradient hatch in model space.  
   
5.     (setq acadObj (vlax-get-acad-object))  
   
6.     (setq doc (vla-get-ActiveDocument acadObj))      
   
7.       
   
8.     ;; Define the hatch  
   
9.     (setq patternName "CYLINDER")  
   
10.     (setq patternType acPreDefinedGradient)  
    
11.     (setq bAssociativity :vlax-true)  
    
12.       
    
13.     ;; Create the associative Hatch object in model space  
    
14.     (setq modelSpace (vla-get-ModelSpace doc))     
    
15.     (setq hatchObj (vla-AddHatch modelSpace patternType patternName bAssociativity acGradientObject))  
    
16.   
    
17.     (setq col1 (vlax-create-object "AutoCAD.AcCmColor.19"))  
    
18.     (setq col2 (vlax-create-object "AutoCAD.AcCmColor.19"))  
    
19.     (vla-SetRGB col1 255 0 0)  
    
20.     (vla-SetRGB col2 0 255 0)  
    
21.     (vla-put-GradientColor1 hatchObj col1)  
    
22.     (vla-put-GradientColor2 hatchObj col2)  
    
23.       
    
24.     ;; Create the outer boundary for the hatch (a circle)  
    
25.     (setq center (vlax-3d-point 3 3 0))  
    
26.      
    
27.     (setq radius 1)  
    
28.     (setq circle (vla-AddCircle modelSpace center radius))  
    
29.   
    
30.     (setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 0)))  
    
31.     (vlax-safearray-put-element outerLoop 0 circle)  
    
32.       
    
33.     ;; Append the outerboundary to the hatch object, and display the hatch  
    
34.     (vla-AppendOuterLoop hatchObj outerLoop)  
    
35.     (vla-Evaluate hatchObj)  
    
36.     (vla-Regen doc :vlax-true)  
    
37. 
    
38.     (vlax-release-object col1)  
    
39.     (vlax-release-object col2)  
    
40. )  
    

(vl-load-com)  <br /> (defun c:Example_AddHatch()  <br />     ;; This example creates an associative gradient hatch in model space.  <br />     (setq acadObj (vlax-get-acad-object))  <br />     (setq doc (vla-get-ActiveDocument acadObj))       <br />        <br />     ;; Define the hatch  <br />     (setq patternName "CYLINDER")  <br />     (setq patternType acPreDefinedGradient)  <br />     (setq bAssociativity :vlax-true)  <br />        <br />     ;; Create the associative Hatch object in model space  <br />     (setq modelSpace (vla-get-ModelSpace doc))     <br />     (setq hatchObj (vla-AddHatch modelSpace patternType patternName bAssociativity acGradientObject))  <br />   <br />     (setq col1 (vlax-create-object "AutoCAD.AcCmColor.19"))  <br />     (setq col2 (vlax-create-object "AutoCAD.AcCmColor.19"))  <br />     (vla-SetRGB col1 255 0 0)  <br />     (vla-SetRGB col2 0 255 0)  <br />     (vla-put-GradientColor1 hatchObj col1)  <br />     (vla-put-GradientColor2 hatchObj col2)  <br />        <br />     ;; Create the outer boundary for the hatch (a circle)  <br />     (setq center (vlax-3d-point 3 3 0))  <br />      <br />     (setq radius 1)  <br />     (setq circle (vla-AddCircle modelSpace center radius))  <br />   <br />     (setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 0)))  <br />     (vlax-safearray-put-element outerLoop 0 circle)  <br />        <br />     ;; Append the outerboundary to the hatch object, and display the hatch  <br />     (vla-AppendOuterLoop hatchObj outerLoop)  <br />     (vla-Evaluate hatchObj)  <br />     (vla-Regen doc :vlax-true)  <br /> <br />     (vlax-release-object col1)  <br />     (vlax-release-object col2)  <br /> )  <br />

官方例子，用这个方法简单点，只需要自己创建边界就行了，最好用solid填充，因为其他方法填充在求解的时候然后不更新。

hw8810

自贡黄明儒 发表于 2024-4-25 07:05
你用entget查看一下，42是弓高比

就是添加了42也没成功，不知道缺了什么

hw8810

liuhe 发表于 2024-4-25 08:41
官方例子，用这个方法简单点，只需要自己创建边界就行了，最好用solid填充，因为其他方法填充在求解的 ...

这个可以，感谢大佬
（做个笔记：AutoCAD.AcCmColor.19这句要改成对应版本的CAD，CAD2018对应是AutoCAD.AcCmColor.22）

hw8810

liuhe 发表于 2024-4-25 08:41
官方例子，用这个方法简单点，只需要自己创建边界就行了，最好用solid填充，因为其他方法填充在求解的 ...

请问下这个文档在哪里查看的？

liuhe

hw8810 发表于 2024-4-25 09:39
请问下这个文档在哪里查看的？

葵花宝典、vba参考啊，cad自带帮助应该也有，多去搜索cad自带的帮助

llsheng_73

entmake做填充，需要认真理解它的边界数据以及各种类型的边界，如果说在已有的带弧的多段线内进行填充，那么需要获取这条多段线的DXF数据，提取其中的直线段，以及弧段，用不同的边界类型去表达它们

可以手动对一个带弧的多段线进行填充，然后通过entget得到这个填充的DXF数据，对照帮助文件的填充类图元的DXF数据来进行理解，注意区分图案数据和边界数据，着重理解各种不同边界

伊江痕

自贡黄明儒 发表于 2024-4-25 07:05
你用entget查看一下，42是弓高比

厉害啊 我的儒哥                     

hw8810

llsheng_73 发表于 2024-4-25 10:04
entmake做填充，需要认真理解它的边界数据以及各种类型的边界，如果说在已有的带弧的多段线内进行填充，那 ...

感谢大佬。我手动看了里面有很多文档也没解释的dxf码就不知道什么意思了，所以想问下大伙有没有成功的案例