microstation 0.4.1 → 0.8.3

data/lib/microstation/ole_cad_input_message.rb

@@ -0,0 +1,101 @@
+module Microstation
+
+
+  module InputType
+
+    Command = 1
+    Reset = 2
+    DataPoint = 3
+    Keyin = 4
+    Any = 5
+    Unassigned = 6
+
+  end
+
+
+  class OLE_CadInputMessage
+
+     include WIN32OLE::VARIANT
+    attr_reader :lastargs,:ole_obj, :app
+
+
+    def initialize(ole,app)
+      @ole_obj = ole
+      @app = app
+    end
+
+    def reset?
+      input_type == InputType::Reset
+    end
+
+    def command?
+      input_type == InputType::Command
+    end
+
+    def data_point?
+      input_type == InputType::DataPoint
+    end
+
+    def key_in?
+      input_type == InputType::Keyin
+    end
+
+    def any?
+      input_type == InputType::Any
+    end
+
+    def unassigned?
+      input_type == InputType::Unassigned
+    end
+
+    def input_type
+      @input_type ||= get_input_type
+    end
+
+    # MsdCadInputType InputType
+    def get_input_type()
+      ole_obj.InputType
+    end
+
+    # BSTR Keyin
+    def get_keyin()
+      ret = ole_obj._getproperty(1610743809, [], [])
+      @lastargs = WIN32OLE::ARGV
+      ret
+    end
+
+    # Point3d Point
+    def get_point()
+      app.to_point3d(ole_obj.Point)
+    end
+
+    # BSTR CommandKeyin
+    def get_command_keyin()
+      ret = ole_obj._getproperty(1610743811, [], [])
+      @lastargs = WIN32OLE::ARGV
+      ret
+    end
+
+    # _View View
+    def get_view()
+      ret = ole_obj._getproperty(1610743812, [], [])
+      @lastargs = WIN32OLE::ARGV
+      ret
+    end
+
+    # Point3d ScreenPoint
+    def get_screen_point()
+      ret = ole_obj._getproperty(1610743813, [], [])
+      @lastargs = WIN32OLE::ARGV
+      ret
+    end
+
+    # I4 CursorButton
+    def get_cursor_button()
+      ret = ole_obj._getproperty(1610743814, [], [])
+      @lastargs = WIN32OLE::ARGV
+      ret
+    end
+  end
+
+end

data/lib/microstation/ole_helper.rb

@@ -0,0 +1,152 @@
+module OleHelper
+
+  def select_ole_type(name)
+    if name.class == String
+      name = Regexp.new(name)
+    end
+    reg = Regexp.new(name.source,Regexp::IGNORECASE)
+    typelib.ole_classes.select do |k|
+      reg =~ k.name
+    end
+  end
+
+  def select_ole_method(name)
+    if name.class == String
+      name = Regexp.new(name)
+    end
+    reg = Regexp.new(name.source,Regexp::IGNORECASE)
+    self.ole_methods.select do |k|
+      reg =~ k.name
+    end
+  end
+
+  def ole_classes
+    typelib.ole_classes
+  end
+
+  def create_ole_type(type)
+    WIN32OLE.new(type.guid)
+  end
+
+  def ole_classes_detail
+    s = String.new
+    ole_classes.sort_by{|k| k.ole_type}.each do |k|
+      s << "#{k.name}\n\n"
+      s << "Type: #{k.ole_type}\n"
+      s << "progid: #{k.progid}\n"
+      s << "quid: #{k.guid}\n"
+      s << "------------\n\n"
+    end
+    s
+  end
+
+
+  def ole_methods_detail
+    s = String.new
+    ole_methods.each do |m|
+      s << "Method #{m.name}\n\n"
+      s << "dispid: #{m.dispid}\n"
+      s << "Event? #{m.event?}\n"
+      s << "Event interface: #{m.event_interface}\n"
+      s << "invoke kind: #{m.invoke_kind}\n"
+      s << "return type: #{m.return_type_detail}\n"
+      s << "visible: #{m.visible?}\n"
+      s << "params...\n"
+      m.params.each do |p|
+        s << "Param Name: #{p.name}\n"
+        s << "Optional: #{p.optional?}\n"
+        s << "Output? #{p.output?}\n"
+        s << "Detail\n"
+        s << "#{p.ole_type_detail}"
+        s << "\n\n"
+      end
+      s << "------------\n\n"
+    end
+    s
+  end
+
+
+  def each_ole_type
+    return enum_for(:each_ole_type) unless block_given?
+    typelib.ole_classes.each do |t|
+      yield t
+    end
+  end
+
+  def get_ole_type(name)
+    if name.class == String
+      return ole_classes.find{|t| t.name == name}
+    end
+    reg = Regexp.new(name.source, Regexp::IGNORECASE)
+    ole_classes.find do |t|
+      t.name =~ name
+    end
+  end
+
+  def typelib
+    self.ole_typelib
+  end
+
+
+end
+
+
+class WIN32OLE
+
+  include OleHelper
+
+end
+
+
+  # def select_ole_type(name)
+    #   if name.class == String
+    #       name = Regexp.new(name)
+    #   end
+    #   reg = Regexp.new(name.source,Regexp::IGNORECASE)
+    #   typelib.ole_classes.select do |k|
+    #     reg =~ k.name
+    #   end
+    # end
+
+    # def select_ole_method(name)
+    #   if name.class == String
+    #     name = Regexp.new(name)
+    #   end
+    #   reg = Regexp.new(name.source,Regexp::IGNORECASE)
+    #   ole_obj.ole_methods.select do |k|
+    #     reg =~ k.name
+    #   end
+    # end
+
+    # def ole_classes
+    #   typelib.ole_classes
+    # end
+
+    # def create_ole_type(type)
+    #   WIN32OLE.new(type.guid)
+    # end
+
+    # def each_ole_type
+    #   return enum_for(:each_ole_type) unless block_given?
+    #   typelib.ole_classes.each do |t|
+    #     yield t
+    #   end
+    # end
+
+    # def get_ole_type(name)
+    #   if name.class == String
+    #     name = Regexp.new name
+    #   end
+    #   reg = Regexp.new(name.source, Regexp::IGNORECASE)
+    #   typelib.ole_classes.find do |t|
+    #     t.name =~ name
+    #   end
+    # end
+
+
+
+#    alias :find_ole_type :get_ole_type
+
+ # def typelib
+    #   ole_obj.ole_typelib
+    # end

data/lib/microstation/pdf_support.rb

@@ -1,40 +1,40 @@
-module Microstation
-
-
-  module PdfSupport
-
-    def pdf_name(output_dir=nil)
-      name = self.basename
-      dir = output_dir || self.dirname
-      pdfname = Pathname(name).ext('pdf')
-      (dir + pdfname).expand_path
-    end
-
-    def pdf_exists?(output_dir = nil)
-      pdf_name(output_dir).file?
-    end
-
-    def file_exists?(file)
-      file.file?
-    end
-
-    def needs_pdf?(output_dir=nil)
-      pdf_path = pdf_name(output_dir)
-      !file_exists?(pdf_path) || pdf_older?(pdf_path)
-    end
-
-    def pdf_older?(pdf)
-      self.mtime > pdf.mtime
-    end
-
-
-    def mtime
-      self.path.mtime
-    end
-
-
-  end
-
-
-end
-
+module Microstation
+
+
+  module PdfSupport
+
+    def pdf_name(output_dir=nil)
+      name = self.basename
+      dir = output_dir || self.dirname
+      pdfname = Pathname(name).ext('pdf')
+      (dir + pdfname).expand_path
+    end
+
+    def pdf_exists?(output_dir = nil)
+      pdf_name(output_dir).file?
+    end
+
+    def file_exists?(file)
+      file.file?
+    end
+
+    def needs_pdf?(output_dir=nil)
+      pdf_path = pdf_name(output_dir)
+      !file_exists?(pdf_path) || pdf_older?(pdf_path)
+    end
+
+    def pdf_older?(pdf)
+      self.mtime > pdf.mtime
+    end
+
+
+    def mtime
+      self.path.mtime
+    end
+
+
+  end
+
+
+end
+

data/lib/microstation/point3d.rb

@@ -0,0 +1,71 @@
+module Microstation
+
+
+
+  class Point3d
+
+    class << self
+
+      def ole_point3d?(ole)
+        ole.class == WIN32OLE_RECORD && ole.typename == 'Point3d'
+      end
+
+      def cartesian_to_polar(x,y)
+        r = Math.sqrt(x*x + y*y)
+        angle = Angle.radians(Math.atan2(y,x))
+        [r,angle]
+      end
+
+      def from_polar_degrees(r,a)
+        
+      end
+
+      def from_ole(ole)
+        new(ole.X, ole.Y, ole.Z)
+      end
+
+      def polar_to_cartesian(r,a)
+
+      end
+
+    end
+
+    attr_reader :x, :y, :z
+
+    def initialize(x=0,y=0,z=0)
+      @x = x
+      @y = y
+      @z = z
+    end
+
+
+    def +(pt)
+      case pt
+      when Point3d
+        self.class.new(self.x + pt.x, self.y + pt.y, self.z + pt.z)
+      when Array
+        self.class.new(self.x + pt[0], self.y + pt[1])
+      end
+    end
+
+    def -(pt)
+      case pt
+      when Point3d
+        self.class.new(self.x - pt.x, self.y - pt.y, self.z - pt.z)
+      when Array
+        self.class.new(self.x - pt[0], self.y - pt[1])
+      end
+    end
+
+    def zero
+      new(0.0,0.0,0,0)
+    end
+
+    def to_cartesian
+
+    end
+
+  end
+
+
+end

data/lib/microstation/primitive_command_interface.rb

@@ -0,0 +1,66 @@
+module PrimitiveCommandInterface
+
+  def Keyin(keyin)
+  end
+
+  def DataPoint(pt, view)
+  end
+
+  def Reset
+  end
+
+  def Cleanup
+  end
+
+  def Dynamics(pt,view,drawmode)
+  end
+
+  def Start
+  end
+
+
+end
+
+class LineCreation 
+
+  include PrimitiveCommandInterface
+
+  attr_reader :points
+
+  def initialize(app)
+    @app = app
+    @points = Array.new(2)
+  end
+
+  def DataPoint(pt, view)
+    case points.compact.size
+    when 0
+      app.ole_obj.CommandState.StartDynamics
+      @points[0] = pt
+      app.show_prompt "Place end point"
+    when 1
+      @points[1] =  pt
+      line_from_pts(@points)
+      @points[0] = @points[1]
+    end
+  end
+
+
+  def Dynamics(pt, view, drawmode)
+    if @points.compact.size == 1
+      @points[1] = pt
+      line = line_from_pts(@points)
+    end
+  end
+
+  def Reset
+    app.CommandState.StartPrimitive self
+    @points = Array.new(2)
+  end
+
+  def Start
+    app.show_command "VBA PlaceLine Example"
+    app.show_prompt "Select start of line"
+  end
+
+end