Dim acTypValAr(2) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Operator, "<NOT"), 0)
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "HATCH"), 1)
acTypValAr.SetValue(New TypedValue(DxfCode.Operator, "NOT>"), 2)
Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
acTypValAr.SetValue(New TypedValue(DxfCode.Operator, "<NOT"), 0)
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "HATCH"), 1)
acTypValAr.SetValue(New TypedValue(DxfCode.Operator, "NOT>"), 2)
Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
为什么要过滤掉Hatch,是因为,Hatch得到的MaxPoint 和MinPoint 不准确。
|
暂时没有评论
发表评论 - 不要忘了输入验证码哦! |