I am constantly doing layouts that involve using Arc, radius, chord & angle, where two of those are known, and the other two are unknown (needs to be either layout or manually calculated). I already have an excel spread sheet to doing something similar. I was just curious if there are any programs out there that do any kind of arc, chord & angle type of manipulation. For example, where it prompts you for a radius (the user would either input a radius on the number keypad or could measure/select two point in the drawing as input radius). then it would prompt you for either a chord or angle in the same manner. Then it would generate the solution as a text.
It's a lot quicker to input arc or angle, with a click of a mouse, then inputting into excel (and possibly making a typing mistake); and having to measure radius, or angle, then transcribing it to excel into the appropriate cell to solve the unknowns variable. Then having to copy the results, back to microstationas text. I am sure, I am not the only one that has ever needed such a program, and was just curious if there was one already written by someone (or something similar relating to solving for arc, chord, radius or angle). Thanks
thank you Jon
That statement was introduced with V8i. All you need to do is comment-out the line (or delete it).
Regards, Jon Summers LA Solutions
Hi Jon,
I know this is v8i forum. But , can this MVBA can also be run on V8 platform(08.05.00.64)?
I tried in v8 but it fails at " CommandState.CommandName = strAnnotateBearing " line
please suggest suitable changes.
regards.
Keyur
ball888 said:How much work would it be to convert this macro to vba?
Some.
Attached is a ZIP archive that contains a DGN file and a VBA project file BearingAnnotator.mvba. The DGN shows a 'star' of annotated vectors. The annotations in blue are obtained from Larry's original BASIC macro. The annotations in green are created by the VBA project.
In order to try out the VBA macro …
Note: I've not written the code to annotate an arc. This version only annotates lines.
Please feel free to provide comments.
thanks, and how long did it take you to write it from scratch?
Best guess with an experienced programmer maybe 4 hours including debuging
Larry WilsonLWilson@LJBinc.com
How much work would it be to convert this macro to vba? If you had to guess, how many house range? Thanks
The place arc edge constrained command allows you to specify radius and/or angle in the toolsettings dialog. This tool also has a keyin to set the chord height:
CONSGEOM CONSTRAIN ARCCHORDHEIGHT <value>
HTH
Sam Wilson
Seems like this could be done graphically with the tools at hand. i.e. snaps, arc tool settings and accudraw.
If you have more specific examples I may be able to explain in more detail.
Regards,
DavidG
ball888 said:I tried using it but I am getting an error " complication failed
Well, programming MicroStation may seem complicated, but you are more likely to have seen a ' compilation error' 8-)
The copied BASIC text inadvertently introduced a number of blank lines. Usually a blank line doesn't matter, but here some occur after a BASIC continuation character ('_'). The BASIC compiler doesn't understand a blank line after a continuation character.
The attached Bearing.bas has extra lines removed and compiles & runs on V8i.
Heed Robert's advice and prefer VBA to BASIC.