Article | 41023836 |
Type | HowTo |
Product | Engine |
Version | 5.0.1.1035 |
Date Added | 1/20/2005 |
Submitted by | Duvenbeck Christof |
Keywords |
Private Sub VDPro1_AddEntity(ByVal entity As VDProLib5.vdPrimary, Cancel As Integer)
Dim blk As vdBlock
If entity.Type = "VDBLOCK" Then
Set blk = entity
If blk.XrefFlag = XrefON Then blk.XrefFlag = XrefOFF
' also store here the blk handles to an array, so you can use
' code before saving this file to set the the xrefFlag back to XrefON
End If
' MsgBox VDPro1.ActiveDocument.Entities.Count
End Sub