insertion deduction

[piratabobo]

hello to all

I created a vba application where I draw a series of geometric figures, but in the end I need to insert inside each figure drawn a dash, the figures are closed and drawn with lines, it is possible to insert through vba a dashboard in a figure drawn with lines even if closed?
thanks to a possible suggestion.

 

[Shape]

hello to all

I created a vba application where I draw a series of geometric figures, but in the end I need to insert inside each figure drawn a dash, the figures are closed and drawn with lines, it is possible to insert through vba a dashboard in a figure drawn with lines even if closed?
thanks to a possible suggestion.

Sorry I'm late, but I didn't see the post.

This is an example to insert a dash from the vba, of course in your case you have to understand how the profiles are generated, but at most you are little to reconstruct a lwpolyline with the coordinates you use for the profiles, then instead of the cercio (cir) associate your polylinea.

dim hatchobj as acadhatch
dim patternname as string
dim pattern as long
dim basciativity as boolean

patternname = "ansi31"
patterntype = achatchpatterntypepredefined
lowciativity = true

set hatchobj = thisdrawing.modelspace. addhatch(patterntype, patternname, lowciativity)

dim cir(0 to 0) as acadentity
dim center(0 to 2) as double
dim radius as double
center(0) = 3: center(1) = 3: center(2) = 0
radius = 1

set cir(0) = thisdrawing.modelspace. addcircle(center, radius)

hatchobj.appendouterloop (circle)
hatchobj.evaluate
thisdrawing.regen true