![]() ![]() TempTime = Mid(TempTime, 1, 8) & Mid(TempTime, 10, Len(TempTime)) TempTime = ThisDrawing.GetVariable("cdate") TempPath = ThisDrawing.GetVariable("tempprefix") ' grow the group's bounding box to include the object's ' Get the Upper (x, y) of the bounding box of the entity ' Get the Lower (x, y) of the bounding box of the entity ' Get the bounding box of the current object ' (first one has already been done so start at one) ' Iterate through the objects in the selection set ' Get the bounding box of the first item in the selection set (if Sel Set is not empty) ' Add entities to a selection set by prompting user to select on the Screen Set ss1 = ThisDrawing.SelectionSets("CopySet") ' Add a selection set, if it already exists, set it to be active Set pfss = ThisDrawing.PickfirstSelectionSet ![]() OldInsBaseVal = ThisDrawing.GetVariable("Insbase") ' This sub returns a bounding box of entities selected on screen.ĭim lBox, uBox As Variant, pfss As AcadSelectionSet, ss1 As AcadSelectionSetĭim I As Long, MinX As Double, MinY As Double, MinXY(0 To 1) As Double, MaxX As Double, MaxY As Doubleĭim TempPath As String, TempTime As String, TempFilename As Stringĭim OldInsBaseVal As Variant, NewPoint As Variant Public Function MJCopy(CopyType As String) I have used sendcommand for this, but when I use the middle mouse button to pan, the function continues on and screws up the insertion. One of the problems I am having is when pasting, I wish to be able to see the objects (dragmode). To do this, I had to ignore the current copyclip and pasteclip and write new ones. I have written a Function to copy and paste from autocad that will allow someone to paste to original coordinates within the same drawing. ![]()
0 Comments
Leave a Reply. |