Rob Golding's Activities

VBA Merge Reference

Rob Golding — Mon, 04 Apr 2016 15:10:39 GMT

Hi All,

Trying to Merge a reference file into the Default Model and really struggling to get it working.

After reading alot on these forums and in the VBA help, I have found that there is no simple merge option in VBA, and that the best way to do it by copying, but haven't been able to find a working example. Can anyone guide me in the right direction?

Am i right in saying that i need to select everything from the reference, then use the CopyElement command to copy it to the new model?

At the moment, I can't get anything to select, let alone copy. I have done a fair bit of VBA work, but usually when selecting elements i narrow it down using ElementScanCritera, but in that there isn't an option to include all types, so im assuming by not setting one its defaulting to select everything? :/

This is a small part of a bigger project, I have already attached the Reference i want to attach and have created a new Model for it to merge into... just cant get the job done!

Thanks in advance!

Using PowerDraft 08.11.07.443 on XP

Place Text through VBA

Rob Golding — Fri, 01 May 2015 16:35:37 GMT

Hi all,

Trying to work out how to place a predefined text string onto the drawing, without bring up any menus or options.

Have tried

    CadInputQueue.SendKeyin "place text"
    CadInputQueue.SendKeyin sText

But the keyin window appears and i cant work out how to close it.

Also have tried

    CadInputQueue.SendKeyin "place dialogtext icon"
    CadInputQueue.SendMessageToApplication "WORDPROC", sText

Which brings up the word processor but doesn't input the text.

Ideally i'd like to simple click a button on a form and the text appears on the drawing at the cursor ready for the user to select the location.

Cheers,

Rob

Problem with Moving Reference File

Rob Golding — Mon, 23 Jun 2014 07:38:29 GMT

Hi All,

I am having issues with Moving a Reference file.

I am trying to Insert the Default Model into a Sheet Model, Scale it, then Move it to around the location of the Drawing Sheet (XY = 18,50)

The Code...

Set oRef = ActiveModelReference.Attachments.Add(sFileToImport, "Default", "DistributionDesign", "Design Extract", oPoint, oPoint) oRef.Redraw msdDrawingModeErase oRef.ScaleFactor = 0.5 oRef.Rewrite oRef.Redraw msdDrawingModeNormal Dim distance As Point3d oRef.Redraw msdDrawingModeErase Dim oOrigin As Point3d oOrigin.X = 18 oOrigin.y = 50 oOrigin.z = 0 distance = Point3dSubtract(oOrigin, oRef.Range(True).Low) oRef.Move distance, True oRef.Rewrite oRef.Redraw msdDrawingModeNormal

It is moving the reference, but not as it should. I want the lowest part of the Reference File - which according the Default Model is (952082.7161, 6242208.3894), to move to (18, 50).

What it does, is moves the 0,0 point to 18,50

I have attached the DGN for reference.

Any help would be appreciated. I don't know what I am doing wrong

Thanks in Advance!

Overriding Dimension Text Height / Width

Rob Golding — Fri, 06 Jun 2014 16:04:16 GMT

Hi Everyone,

Ive have had a search through these forums and cant quite find anything that will help me.

I am working on a CAD Build for a client, i have pretty much everything setup and working perfectly. One of the tools i have done is to have Place Text buttons that will multiply the text size by the scale of the border. The Client for this build does not wish to use Sheet Models as they will not properly import into their Document Management system.

I have done the text tool by using keyins and 2 lines of VBA code. It works perfectly.

But im having alot of problems with Dimensions. I cant seem to scale the Dimension text to suit the Title Block. i.e if my drawing is 1:1000, the text on the dimension is unreadable.

I have setup Text Styles and Dimension Styles in a DGNlib. The Dimension Styles use the Text Styles.

When i use the program to change the height and width of the Text, it doesnt change it for the Dimension.

Has anyone done similar?

Im hoping there is some simple keyin that i can use for this (as i have done with the text) that i may have missed.

Im using MicroStation V8i SELECT Series 1 (8.11.07)

Thanks in Advance,

Rob