如何实现hatch的点选功能
www.dimcax.com
如何实现hatch的点选功能
用vba
objhatch1.appendouterloop (lp) --'不适合图示的封闭曲线(用手工可实现),只适合封闭曲线.见下面程序.
问用lsp如何模仿手工操作,点选内外边界,实现图示目的.
sub ll()
dim objhatch as acadhatch, objhatch1 as acadhatch
dim ll as variant, lp() as acadentity
with thisdrawing
set objhatch = .handletoobject("de")
with objhatch
.getloopat 0, ll
'redim lp(ubound(ll)) as acadentity
lp = ll
s1 = .patterntype
s2 = .patternname
s3 = .associativehatch
s4 = .patternscale
end with
set objhatch1 = .modelspace.addhatch(s1, s2, s3)
objhatch1.appendouterloop (lp) --'对于这种不封
objhatch1.patternscale = s4
end with
end sub
d
可惜，我不会用vba
d
同问
d