Description
Delete lines and reconnect intersected objects
Syntax
| Visual Basic |
|---|
Public Sub DeleteLines( _ ByVal Direction As ELineDirection, _ Optional ByVal bRepair As EBoolean = ciTrue _ ) |
Parameters
- Direction
Value Description ciLineHorz Horizontal lines ciLineUnknown Unknown ciLineVert Vertical lines ciLineVertAndHorz Both vertical and horizontal lines - bRepair
Value Description ciFalse Value is false (0) ciTrue Value is true (-1)
Example
| VB Example (Visual Basic) |  Copy Code |
|---|---|
Public Sub T_DeleteHorzLines(ByRef Rep As CiRepair) Rep.pLineCurvature = ciCurvHigh Rep.pMaxLineAngle = 5 Rep.pMaxLineGap = 5 Rep.pMinLineLength = 200 Rep.DeleteLines ciLineHorz, ciFalse End Sub Public Sub T_DeleteAndRepairLines(ByRef Rep As CiRepair) Rep.pLineCurvature = ciCurvHigh Rep.pMaxLineAngle = 5 Rep.pMaxLineGap = 5 Rep.pMinLineLength = 200 Rep.DeleteLines ciLineVertAndHorz, ciTrue End Sub | |