0 Members and 1 Guest are viewing this topic.
Function IsPs(oBref As AcadBlockReference) As Boolean Dim oblock As AcadBlock Set oblock = ThisDrawing.ObjectIdToObject(oBref.OwnerID) If Not oblock.Name = "*Model_Space" Then IsPs = True End IfEnd Function
Function IsPs(pBlkRef As AcadBlockReference) As Boolean IsPs = (pBlkRef.OwnerID <> ThisDrawing.ModelSpace.ObjectID)End Function
Function IsPs(pBlkRef As AcadBlockReference) As Boolean IsPs = (pBlkRef.OwnerID = ThisDrawing.PaperSpace.ObjectID)End Function
Set objBlkRef = getblock("UES")
If Not objBlkRef = Nothing
Assuming Code: [Select]Set objBlkRef = getblock("UES")returns a block named UES, how can I check to see if it was returned? I tried Code: [Select]If Not objBlkRef = Nothingwhich failed badly
For Each objFont In ThisDrawing.TextStyles Select Case UCase(objFont.Name) Case "STANDARD" Case "*|STANDARD" ' eval if xrefed Case "TEP" Case "TEP-TITLE" Case "TEP-TITLE 3-16" Case "TEP-TITLE 1-8" Case Else MyFile.writeline vbTab & objFont.Name & vbTab & objFont.fontFile KillDaFile = True End Select Next objFont
Non Standard Fonts: 3D-TTL-B|Standard Romans.shx 3D-TTL-B|TEP Romans.shx 3D-TTL-B|arial ARIALBD.TTF 3D-TTL-B|UES impact.TTF 3D-TTL-B|TEP-TITLE verdana.TTF 3D-TTL-B|arial ARIALBD.TTF 3D-TTL-B|UES impact.TTF