topic Re: how to apply solid or hatch to non-rectangular polylines in VBA Forum

how to apply solid or hatch to non-rectangular polylines

Anonymous — Mon, 05 Dec 2005 13:33:22 GMT

Need help with solids or hatch:
I can't seem to find a sample to apply solid or solid hatch to a outline
polyline that is created below.
I placed a sample drawing in the customer-area that shows a arrow head. this
is what I am trying to apply the solid or
hatch to.

'create polyline
Dim DRWPOLYAPPR2 As AcadLWPolyline
Dim approachpoints2(13) As Double
approachpoints2(0) = newpt1013(0): approachpoints2(1) = newpt1013(1)
approachpoints2(2) = newpt1015(0): approachpoints2(3) = newpt1015(1)
approachpoints2(4) = newpt1016(0): approachpoints2(5) = newpt1016(1)
approachpoints2(6) = newpt1014(0): approachpoints2(7) = newpt1014(1)
approachpoints2(8) = newpt1018(0): approachpoints2(9) = newpt1018(1)
approachpoints2(10) = newpt1017(0): approachpoints2(11) = newpt1017(1)
approachpoints2(12) = newpt1013(0): approachpoints2(13) = newpt1013(1)
Set DRWPOLYAPPR2 =
ThisDrawing.ModelSpace.AddLightWeightPolyline(approachpoints2)

' I was able to create solids on rectangles but not on odds shaped geometry.
This is how I created the solids in the sample
'in the customer-area
Dim solidObj As AcadSolid
Set solidObj = ThisDrawing.ModelSpace.AddSolid(newpt9003, newpt9004,
newpt9006, newpt9005)
Set solidObj = ThisDrawing.ModelSpace.AddSolid(newpt9007, newpt9008,
newpt9010, newpt9009)
Set solidObj = ThisDrawing.ModelSpace.AddSolid(newpt9011, newpt9012,
newpt9014, newpt9013)

Any comments are welcome.
John Coon

Re: how to apply solid or hatch to non-rectangular polylines

Anonymous — Mon, 05 Dec 2005 13:58:03 GMT

john coon wrote:

> Need help with solids or hatch:
> I can't seem to find a sample to apply solid or solid hatch to a
> outline polyline that is created below.
> I placed a sample drawing in the customer-area that shows a arrow
> head. this is what I am trying to apply the solid or
> hatch to.
>
> 'create polyline
> Dim DRWPOLYAPPR2 As AcadLWPolyline
> Dim approachpoints2(13) As Double
> approachpoints2(0) = newpt1013(0): approachpoints2(1) = newpt1013(1)
> approachpoints2(2) = newpt1015(0): approachpoints2(3) = newpt1015(1)
> approachpoints2(4) = newpt1016(0): approachpoints2(5) = newpt1016(1)
> approachpoints2(6) = newpt1014(0): approachpoints2(7) = newpt1014(1)
> approachpoints2(8) = newpt1018(0): approachpoints2(9) = newpt1018(1)
> approachpoints2(10) = newpt1017(0): approachpoints2(11) = newpt1017(1)
> approachpoints2(12) = newpt1013(0): approachpoints2(13) = newpt1013(1)
> Set DRWPOLYAPPR2 =
> ThisDrawing.ModelSpace.AddLightWeightPolyline(approachpoints2)
>
>
>
> ' I was able to create solids on rectangles but not on odds shaped
> geometry. This is how I created the solids in the sample
> 'in the customer-area
> Dim solidObj As AcadSolid
> Set solidObj = ThisDrawing.ModelSpace.AddSolid(newpt9003, newpt9004,
> newpt9006, newpt9005)
> Set solidObj = ThisDrawing.ModelSpace.AddSolid(newpt9007, newpt9008,
> newpt9010, newpt9009)
> Set solidObj = ThisDrawing.ModelSpace.AddSolid(newpt9011, newpt9012,
> newpt9014, newpt9013)
>
>
> Any comments are welcome.
> John Coon

How about trying to create those solids manually in autocad first to
see how it works? I think you will find that solid elements are always
4 sided and the points expressed in a kind of Z fashion.

If you don't want a lot of sloids, consider doing a solid hatch object
that has your polygon as a path.

Either way, testing how one creates the data required manually in
autocad and then it might help you understand how you should code the
vba.

Hope this helps.

Andrew

--

Re: how to apply solid or hatch to non-rectangular polylines

Anonymous — Mon, 05 Dec 2005 18:24:33 GMT

Hi John,
I would suggest the Solid Hatch option. Trying to fill an irregular shape
with basic solids will result in multiple objects that will be difficult to
maintain.
Once you have your pline:
Dim objHatch as AcadHatch
Set objPline =
ThisDrawing.ModelSpace.AddLightWeightPolyline(approachpoints2)
objPline.Closed = True
Set objHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined,
"SOLID", True)
Set arrLoop(0) = objPline
objHatch.AppendOuterLoop arrLoop
objHatch.Evaluate

"john coon" wrote in message
news:5029062@discussion.autodesk.com...
Need help with solids or hatch:
I can't seem to find a sample to apply solid or solid hatch to a outline
polyline that is created below.
I placed a sample drawing in the customer-area that shows a arrow head. this
is what I am trying to apply the solid or
hatch to.

Re: how to apply solid or hatch to non-rectangular polylines

Anonymous — Mon, 05 Dec 2005 19:45:55 GMT

Jeff,

The multiple objects is what I was trying to avoid. I used the Set solidObj
= ThisDrawing.ModelSpace.AddSolid
and like you said I ended up with multiple object. Not what I was looking
for!

I could find a sample that was clear to me last night in my routine.

This looks like just what the doctor ordered. I'll try your sample tonight.

Thanks as always for the help!
Have a great day.

John Coon

"Jeff Mishler" wrote in message
news:5029432@discussion.autodesk.com...
Hi John,
I would suggest the Solid Hatch option. Trying to fill an irregular shape
with basic solids will result in multiple objects that will be difficult to
maintain.
Once you have your pline:
Dim objHatch as AcadHatch
Set objPline =
ThisDrawing.ModelSpace.AddLightWeightPolyline(approachpoints2)
objPline.Closed = True
Set objHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined,
"SOLID", True)
Set arrLoop(0) = objPline
objHatch.AppendOuterLoop arrLoop
objHatch.Evaluate

"john coon" wrote in message
news:5029062@discussion.autodesk.com...
Need help with solids or hatch:
I can't seem to find a sample to apply solid or solid hatch to a outline
polyline that is created below.
I placed a sample drawing in the customer-area that shows a arrow head. this
is what I am trying to apply the solid or
hatch to.

Re: how to apply solid or hatch to non-rectangular polylines

Anonymous — Mon, 05 Dec 2005 23:40:27 GMT

(((((( Jeff ))))))

That as it! Your the best

Thank you
John Coon

If UserForm1.CheckBox1 = True Then

Set layerObj = ThisDrawing.Layers.Add("C-STRP-PATT")
layerObj.Color = acYellow
ThisDrawing.ActiveLayer = layerObj

Dim objPline As AcadLWPolyline
Dim outerLoop(0 To 0) As AcadEntity
Set objPline =
ThisDrawing.ModelSpace.AddLightWeightPolyline(approachpoints8)
objPline.Closed = True
Set objHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined,
"SOLID", True)
Set outerLoop(0) = objPline
objHatch.AppendOuterLoop outerLoop
objHatch.Evaluate
objPline.Delete
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objPline =
ThisDrawing.ModelSpace.AddLightWeightPolyline(approachpoints9)
objPline.Closed = True
Set objHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined,
"SOLID", True)
Set outerLoop(0) = objPline
objHatch.AppendOuterLoop outerLoop
objHatch.Evaluate
objPline.Delete
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If

"Jeff Mishler" wrote in message
news:5029432@discussion.autodesk.com...
Hi John,
I would suggest the Solid Hatch option. Trying to fill an irregular shape
with basic solids will result in multiple objects that will be difficult to
maintain.
Once you have your pline:
Dim objHatch as AcadHatch
Set objPline =
ThisDrawing.ModelSpace.AddLightWeightPolyline(approachpoints2)
objPline.Closed = True
Set objHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined,
"SOLID", True)
Set arrLoop(0) = objPline
objHatch.AppendOuterLoop arrLoop
objHatch.Evaluate

"john coon" wrote in message
news:5029062@discussion.autodesk.com...
Need help with solids or hatch:
I can't seem to find a sample to apply solid or solid hatch to a outline
polyline that is created below.
I placed a sample drawing in the customer-area that shows a arrow head. this
is what I am trying to apply the solid or
hatch to.

Re: how to apply solid or hatch to non-rectangular polylines

Anonymous — Mon, 05 Dec 2005 23:56:59 GMT

You're welcome!
BTW, I noticed that you are removing the pline at the end. I haven't tested
it but I would think that you'd get a message about the associativity being
lost. If you do, just change the True to False in the AddHatch line.....that
specifies whether to create an associative hatch or not.

Jeff

"John Coon" wrote in message
news:5029852@discussion.autodesk.com...
(((((( Jeff ))))))

That as it! Your the best

Thank you
John Coon
Set objHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined,
"SOLID", True)
Set outerLoop(0) = objPline
objHatch.AppendOuterLoop outerLoop
objHatch.Evaluate
objPline.Delete
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If

Re: how to apply solid or hatch to non-rectangular polylines

Anonymous — Tue, 06 Dec 2005 11:41:36 GMT

Jeff,

I didn't think of that but the associative hatch in my case will not be a
problem as the items being created will not be resized. The reason for
deleting the outline is that the routine inserts either hatch or non-hatched
items and the hatch is placed on one layer so I can control visibility later
on is the project where I don't need or want to show the hatch. when I ran
just without the delete objpline I ended up with double the amount of plines
because of the outline polyline so I needed to delete that.

I'll check on the true / false message.

Thanks for all your help.

John Coon

"Jeff Mishler" wrote in message
news:5029822@discussion.autodesk.com...
You're welcome!
BTW, I noticed that you are removing the pline at the end. I haven't tested
it but I would think that you'd get a message about the associativity being
lost. If you do, just change the True to False in the AddHatch line.....that
specifies whether to create an associative hatch or not.

Jeff

"John Coon" wrote in message
news:5029852@discussion.autodesk.com...
(((((( Jeff ))))))

That as it! Your the best

Thank you
John Coon
Set objHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined,
"SOLID", True)
Set outerLoop(0) = objPline
objHatch.AppendOuterLoop outerLoop
objHatch.Evaluate
objPline.Delete
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If