Place line by middle point

Question

Any idea how to place line with known length by middle point? Be it v8i or CE. 
 Like simple example here, draw a cross by two lines from middle symmetric to center. Line length from center is known but angle can be arbitrary. Yes cells can be placed, scaled and rotated but it is not line.

Barry Lothian · Answer

Hi Oto, 
 I agree with Jan that its not achievable with default out-of-the-box tools however it is certainly achievable with VBA: 
 
 Simple 3-4-5 triangle test case. I noticed using the tool that there is a little bit of noticeable lag with the dynamics that you don't get with regular MS Tools e.g. Place Line tool. I'm unsure if its a performance issue due to this being a VBA solution (and not C++ which I believe the standard commands are written in) or perhaps my approach is causing it (which is entirely feasible as I haven't coded any VBA for quite a while and I had to use some partial code found in previous topics). Jan and Jon will likely be able to advise a more elegant solution (perhaps using methods which I am not familiar with) however mine does appear to work perfectly well from the limited testing I did. I've added some comments within the _DataPoint event to explain my approach, the rest is pretty much just the Line creation example from the help file and the GetActiveAngleFrom2Points function was written previously by Artur Goldsweer. 
 LineFromCentre.mvba

Ron Jones · Answer

Hi Oto, 
 Try the following method to place a "Line by middle point" 
 
 Assign the following keyin to a function key: 
 noecho;place arc icon;M,cfLine by middle point;M,prSet middle point;%d;M,prSet end point;%d;choose element;dx=,;drop curve;dx=,;dx=,;delete element;echo;null 
 
 Note: Before using the function key make sure the Place Arc and Drop Curve commands are setup as shown below:

Usage: Press function key and follow the prompts 
 Regards, Ron

Place line by middle point

Top Replies