AR-CONC图案填充问题

elhamyy · 发表于 2022-7-6 10:57:48

你好
我编写此过程是为了从vb6中将图案填充应用于多段线区域，但我看到的图案填充只有一些图案，我的意思是当应用角度图案时，会出现图案填充，但使用AR-CONC时，我看不到任何图案填充
任何人都可以帮助我

该计划
Dim acadapp作为AcadApplication
将anobg作为对象
出错时继续下一步
设置acadapp=GetObject（，“autocad.application”）
如果出错，则
犯错误清楚的
设置acadapp=CreateObject（“autocad.application”）
如果出错，则
MsgBox错误。描述
出口接头
如果结束
如果结束
阿卡达普。可见=真
Dim hatchObj作为AcadHatch
Dim patternName作为字符串
与长图案类型相同
Dim bAssociativity作为布尔
Dim outerLoop（0到0）作为AcadEntity
patternName=“AR-CONC”

PatternType=0
bAssociativity=真
将点（0到11）重定为双精度
点（0）=0：点（1）=50：点（2）=0
点（3）=0：点（4）=52：点（5）=0
点（6）=53：点（7）=52：点（=0）
'点（9）=53：点（10）=50：点（11）=0
点（9）=0：点（10）=50：点（11）=0
设置hatchObj=Acadapp。ActiveDocument。模型空间。AddHatch（PatternType、patternName、bAssociativity）
设置outerLoop（0）=Acadapp。ActiveDocument。模型空间。添加多段线（点）
hatchObj。AppendOuterLoop（outerLoop）
hatchObj。HatchStyle=acHatchStyleIgnore
hatchObj。图案比例=0.25
hatchObj。估计
阿卡达普。ActiveDocument。Regen真

BIGAL · 发表于 2022-7-6 12:28:07

不确定代码，但ar conc和gravel遇到了一个问题，即图案填充原点需要靠近正在图案填充的对象。我们使用的survey MGA x.y是真实的大数字，因此0,0默认图案填充原点会给我们带来问题。

[编程交流] AR-CONC图案填充问题

发表回复

精选推荐