[kserg]

Помогите пожалуйста найти способ программного (Lisp) обнаружения/распознавания "пустых" (не отображаемых на экране) штриховок. Целью этого является очистка чертежа от подобного хлама.
Файл с образцами подобных штриховок (типа "SOLID" в количестве 11 штук) прилагается (cad2004).
Спасибо.

[kserg]

Вот что выдал vlax-dump-object относительно одного из этих объектов ("нехороших" штриховок) :

; IAcadHatch: Интерфейс AutoCAD для работы с штриховкой.
; Значения свойств:
; Application (RO) = #<VLA-OBJECT IAcadApplication 00d077b4>
; Area (RO) = 4.84057e+006
; AssociativeHatch = 0
; Document (RO) = #<VLA-OBJECT IAcadDocument 0c467f58>
; Elevation = 0.0
; GradientAngle = 0.0
; GradientCentered = -1
; GradientColor1 = Ошибка
; GradientColor2 = Ошибка
; GradientName = ""
; Handle (RO) = "1D5C2E"
; HasExtensionDictionary (RO) = 0
; HatchObjectType = 0
; HatchStyle = 0
; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0a973024>
; ISOPenWidth = 100
; Layer = "ОСНОВНОЙ"
; Linetype = "BYLAYER"
; LinetypeScale = 1.0
; Lineweight = 30
; Material = "ByLayer"
; Normal = (0.0 0.0 1.0)
; NumberOfLoops (RO) = 2
; ObjectID (RO) = 2130555952
; ObjectName (RO) = "AcDbHatch"
; Origin = (0.0 0.0)
; OwnerID (RO) = 2130574528
; PatternAngle = 0.0
; PatternDouble = 0
; PatternName (RO) = "SOLID"
; PatternScale = 1.0
; PatternSpace = 1.0
; PatternType (RO) = 1
; PlotStyleName = "Цвет_254"
; TrueColor = #<VLA-OBJECT IAcadAcCmColor 0a973920>
; Visible = -1
; Поддерживаемые методы:
; AppendInnerLoop (1)
; AppendOuterLoop (1)
; ArrayPolar (3)
; ArrayRectangular (6)
; Copy ()
; Delete ()
; Evaluate ()
; GetBoundingBox (2)
; GetExtensionDictionary ()
; GetLoopAt (2)
; GetXData (3)
; Highlight (1)
; InsertLoopAt (3)
; IntersectWith (2)
; Mirror (2)
; Mirror3D (3)
; Move (2)
; Rotate (2)
; Rotate3D (3)
; ScaleEntity (2)
; SetPattern (2)
; SetXData (2)
; TransformBy (1)
; Update ()

...Где бросается в глаза:
; GradientColor1 = Ошибка
; GradientColor2 = Ошибка

Может по этим "GradientColor" можно принимать решение касательно удаления из чертежа подобных штриховок ?

[kserg]

Пропустил еще одну запись:

; GradientName = ""

, т.е. аналог dxf-кода 470 примитива типа HATCH, возможные значения которого:
"LINEAR", "CYLINDER", "INVCYLINDER", "SPHERICAL", "HEMISPHERICAL", "CURVED", "INVSPHERICAL", "INVHEMISPHERICAL" или "INVCURVED".

Т.к. в моем случае значение ("") отличается от вышеприведенных, решил остановиться на этом параметре, как признаке "ненормальности" штриховки.

[gomer]

Прошел год... Интересно, решение найдено?