Insert in PaperSpace

Insert in PaperSpace

Anonymous
Not applicable
653 Views
7 Replies
Message 1 of 8

Insert in PaperSpace

Anonymous
Not applicable
Hi to all, I'm trying to access INSERT witch is in PaperSpace ThisDrawing.PaperSpace.Item(4#) returns insert I need but how to find it thru Name ThisDrawing.PaperSpace.Item("block_name") does now work Any help?? Thanks Ursus Uziemblo
0 Likes
654 Views
7 Replies
Replies (7)
Message 2 of 8

Anonymous
Not applicable
returnPnt = ThisDrawing.Utility.GetPoint(, "Pick insertion point: ") Set blockRefObj = ThisDrawing.PaperSpace.InsertBlock(returnPnt, strBlockName, 1#, 1#, 1#, 0) blockRefObj.Update -- I support two teams: The Red Sox and whoever beats the Yankees. "Ursus Uziemblo" wrote in message news:4203bc0c_3@newsprd01... > Hi to all, > I'm trying to access INSERT witch is in PaperSpace > ThisDrawing.PaperSpace.Item(4#) > returns insert I need but how to find it thru Name > ThisDrawing.PaperSpace.Item("block_name") > does now work > Any help?? > Thanks > Ursus Uziemblo >
0 Likes
Message 3 of 8

Anonymous
Not applicable
Thanks Matt, your code works ok if You wish to stop and pick a Point but in my case I try to find INSERT by its name next part will went thru all Layouts to find INSERTS of the same block Ursus "Matt W" wrote in message news:4203be8f$1_3@newsprd01... > returnPnt = ThisDrawing.Utility.GetPoint(, "Pick insertion point: ") > Set blockRefObj = ThisDrawing.PaperSpace.InsertBlock(returnPnt, > strBlockName, 1#, 1#, 1#, 0) > blockRefObj.Update > > -- > I support two teams: The Red Sox and whoever beats the Yankees. > > "Ursus Uziemblo" wrote in message > news:4203bc0c_3@newsprd01... >> Hi to all, >> I'm trying to access INSERT witch is in PaperSpace >> ThisDrawing.PaperSpace.Item(4#) >> returns insert I need but how to find it thru Name >> ThisDrawing.PaperSpace.Item("block_name") >> does now work >> Any help?? >> Thanks >> Ursus Uziemblo >> > >
0 Likes
Message 4 of 8

Anonymous
Not applicable
Sorry 'bout that. I read your post too fast apparently. What do you want to do with the blocks once you find all references of a block? -- I support two teams: The Red Sox and whoever beats the Yankees.
0 Likes
Message 5 of 8

Anonymous
Not applicable
Hi Matt, after redefining a block with attributes geometry of block is redefined but position of attributes is unchanged. I have to go thru all INSERTS and reposition one attribute. From lisp I did it, now a new learning curve - VBA. In this area I'm a beginer Ursus Uziemblo "Matt W" wrote in message news:4203c11e$1_3@newsprd01... > Sorry 'bout that. I read your post too fast apparently. > What do you want to do with the blocks once you find all references of a > block? > > -- > I support two teams: The Red Sox and whoever beats the Yankees. >
0 Likes
Message 6 of 8

Anonymous
Not applicable
How are you redefining your block?? Are you using REFEDIT?? If not, you may want to take a look at that. It's a standard ACAD command. -- I support two teams: The Red Sox and whoever beats the Yankees.
0 Likes
Message 7 of 8

Anonymous
Not applicable
Matt, all is for running script on ~200 drawings (6-10 layouts each) block is redefinded in InsertBlock Method on TihisDrawing.Blocks then code have to find all instances of it, select attribute with specific TAG, and finaly Move methode will move positions of thosw arrtibutes uu "Matt W" wrote in message news:4203c5aa_1@newsprd01... > How are you redefining your block?? > Are you using REFEDIT?? > If not, you may want to take a look at that. It's a standard ACAD > command. > > -- > I support two teams: The Red Sox and whoever beats the Yankees. >
0 Likes
Message 8 of 8

Anonymous
Not applicable
I use this function to delete blocks by name... gl Paul '***Start Code Public Function fDeleteBlocks(sBlockName As String) Dim ssGen As AcadSelectionSet Dim vGPCode(1) As Integer Dim vDataValue(1), vGroupCode, vDataCode vGPCode(0) = 0 vGPCode(1) = 2 vDataValue(0) = "Insert" vDataValue(1) = sBlockName On Error Resume Next With ThisDrawing .SelectionSets("ZBLOCKS").Delete Set ssGen = .SelectionSets.Add("ZBLOCKS") vGroupCode = vGPCode vDataCode = vDataValue ssGen.Select acSelectionSetAll, , , _ vGroupCode, vDataCode ssGen.Erase .SelectionSets("ZBLOCKS").Delete On Error GoTo 0 End With End Function '***End Code "Ursus Uziemblo" wrote in message news:4203bc0c_3@newsprd01... > Hi to all, > I'm trying to access INSERT witch is in PaperSpace > ThisDrawing.PaperSpace.Item(4#) > returns insert I need but how to find it thru Name > ThisDrawing.PaperSpace.Item("block_name") > does now work > Any help?? > Thanks > Ursus Uziemblo >
0 Likes