Okay, look at this little app. This is from TurboCAD, and does nothing
more than draw a rectangle. I need to draw columns, beams, etc. A
column drawing app should get baseplate dimensions, holes in the plate,
column size and length, maybe the cap plate size, maybe anchor bolt size
and dimensions, and should draw two or three views, hidden lines, center
lines, etc.
This app could be modified, but the user input has to be far more
extensive.
I’m busy drawing. I tried to post the file, but keep getting a error
message. Would anyone like to help out on this?
Elcobar
TCAPIRectangle.rb
load the libraries
require ‘system.xml, Version=2.0.0.0, Culture=neutral,
PublicKeyToken=b77a5c561934e089’
require ‘PresentationFramework, Version=3.0.0.0, Culture=neutral,
PublicKeyToken=31bf3856ad364e35’
require ‘PresentationCore, Version=3.0.0.0, Culture=neutral,
PublicKeyToken=31bf3856ad364e35’
require ‘windowsbase, Version=3.0.0.0, Culture=neutral,
PublicKeyToken=31bf3856ad364e35’
include System::Windows::Markup;
def tc_rectangle_test
load the xaml file
window = UI.LoadXaml(“RectangleWPFSample.xaml”)
get the controls
button = window.find_name(‘drawBox’)
if button == nil then
puts “drawBox button control not found. Check name spelling in
xaml file.”
exit
end
length1 = window.find_name(‘length1’)
if length1 == nil then
puts “length1 text control not found. Check name spelling in xaml
file.”
exit
end
height1 = window.find_name(‘height1’)
if height1 == nil then
puts “height1 text control not found. Check name spelling in xaml
file.”
exit
end
Handle button click
button.click do |sender, args|
puts "length1: " + length1.Text
puts "height1: " + height1.Text
ents = TCApplication.ActiveDrawing.Graphics
ents.AddLineRectangle(0, 0, 0,
System::Convert.ToDouble(length1.Text),
System::Convert.ToDouble(height1.Text), 0)
window.Close
end
window.Show
end
#Run
UI.menu(“Plugins”).add_item(“TC Rectangle”){tc_rectangle_test}