Hi All:
How do you copy elements from one .dgn file to another and keep the elements at the same x, y.
In AutoCad I would copy and paste at 0,0...but can't find the command in Microstation.
Thanks!
If you've ever tried to copy elements from an XREF in AutoCAD, you might think the process in MicroStation is fraught with peril, but MicroStation's Reference Files are far more flexible and friendly than AutoCAD.
The idea of attaching a reference file to copy a few elements from another file seems very foreign to an AutoCAD user, but long before either of these packages supported the Windows Clipboard, that was the only way to do this. In AutoCAD, you would have to WBLOCK out the elements and INSERT and EXPLODE to accomplish the same thing. And that left the DWG sitting somewhere on your drive.
With the MicroStation workflow, the preocess was simple and fast. And everyone used the XY, DX, DL keyins all of the time, so they were like second nature.
Charles (Chuck) Rheault CADD Manager
MDOT State Highway Administration Maryland DOT - State Highway Administration User Communities Page
This works for me...
Posting the paste script as well. If you assign these two scripts to two corresponding buttons you have a good copy/paste to original coordinates functionality.
Sub Pasteatzero()
Dim startPoint As Point3d
Dim point As Point3d, point2 As Point3d
Dim lngTemp As Long
' Start a command
CadInputQueue.SendCommand "MDL KEYIN CLIPBRD CLIPBOARD PASTE"
' Coordinates are in master units
startPoint.X = 0#
startPoint.Y = 0#
startPoint.Z = 0#
' Send a data point to the current command
point.X = startPoint.X
point.Y = startPoint.Y
point.Z = startPoint.Z
CadInputQueue.SendDataPoint point, 1
' Send a reset to the current command
CadInputQueue.SendReset
CommandState.StartDefaultCommand
End Sub
have you all watched: NINJA POINT (some more to laugh)
communities.bentley.com/.../paste-elements-at-same-graphical-location.aspx
Regards
Frank
since 1985: GIS, CAD, Engineering (Civil) Senior Consultant : [Autodesk Civil 3D , Esri ArcGIS, VertiGIS: in previous days : Bentley MS V4 - V8i, GeoGraphics, Bentley Map V8i, InRoads, HHK Geograf, IBr DAVID] : Dev: [C, C++, .NET, Java, SQL, FORTRAN, UML][direct quote by: http://en.wikipedia.org/wiki/Helmut_Schmidt]: "Wer Kritik übel nimmt, hat etwas zu verbergen"Wer Grammatik- und/oder Rechtschreibfehler findet, der darf sie behalten :-)
I thought that it should be possible to skip the point placement - who wants to leave an point at 0,0,0 in a file anyway? However, it appears that a tentative snap in space is not the same as a tentative snap on an element.
So it might be possible to place the point, snap to it, copy to clipboard and undo the point placement. Or to place a transient element at 0,0,0 which would simply go away on its own.
And with this code:
If Not ActiveModelReference.AnyElementsSelected Then
ShowError "The macro requires a selection set"
Exit Sub
End If
You can even exit if no selection set is active.
One more thing - on the Pasting End ...
The simple key-in of XY= is sufficient to specify a paste point of 0,0,0
Actually the point is not left in the file after the script has run.
Of course it's possible to develop the script further as you suggest, but I'm no expert at VBA so I leave it to others.
Should we really have to go through all this trouble just to set a base point? Autocad has the feature built in.
Neil Wilson (aka Neilw)
Power Civil v8i 08.11.07.245
AutoCAD Civil 3D 2018