microstation 0.4.1 → 0.8.3

data/lib/microstation/element.rb

@@ -0,0 +1,311 @@
+require 'microstation/property_handler'
+
+class WIN32OLE
+
+  def to_ole
+    self
+  end
+
+end
+module Microstation
+end
+
+module Microstation
+
+  module ElementTrait
+
+    #
+    # 
+    #
+    # @return [Boolean] true if ole type is Text
+    #
+    def text?
+      ole_obj.Type == ::Microstation::MSD::MsdElementTypeText
+    end
+
+    # @return [Boolean] true if ole type is TextNode
+    def text_node?
+      ole_obj.Type  == ::Microstation::MSD::MsdElementTypeTextNode
+    end
+
+    def has_tags?
+      ole_obj.HasAnyTags
+    end
+
+    def to_ole
+      ole_obj
+    end
+
+    def cell?
+      ole_obj.Type == ::Microstation::MSD::MsdElementTypeCellHeader
+    end
+
+    def complex?
+      ole_obj.IsComplexElement
+    end
+
+    # @return [Boolean] true if Text or TextNode
+    def textual?
+      text? || text_node?
+    end
+
+    def microstation_id()
+      id = ole_obj.Id || ole_obj.ID64
+      return nil unless id
+      id_from_record(id)
+    end
+
+    # @return [Boolean] true if ole type is TypeLine
+    def line?
+      ole_obj.Type == ::Microstation::MSD::MsdElementTypeLine
+    end
+
+    def graphical?
+      ole_obj.IsGraphical
+    end
+
+    def parent
+      parent_id = ole_obj.ParentID
+      return nil unless parent_id
+      id = id_from_record(parent_id)
+      app.active_design_file.find_by_id(id)
+    end
+
+    def id_from_record(id)
+      if id.class == WIN32OLE_RECORD
+        if id.Low > id.High
+          return id.Low
+        else
+          return id.High
+        end
+      end
+    end
+
+    def select
+      app.active_model_reference.select_element(self)
+    end
+
+    # def Type
+    #   ole_obj.Type
+    # end
+
+    def microstation_type
+      ole_obj.Type
+    end
+
+
+    def model
+      Model.new(app, app.current_drawing, ole_obj.ModelReference)
+    end
+
+  end
+
+  class Element
+
+    include ElementTrait
+
+    def self.convert_item(ole,app, cell=nil)
+      return Point3d.from_ole(ole) if ole.class == WIN32OLE_RECORD && ole.typename == 'Point3d'
+      return ole unless ole.class == WIN32OLE
+      case ole.Type
+      when ::Microstation::MSD::MsdElementTypeText
+        ::Microstation::Text.new(ole,app,cell)
+      when ::Microstation::MSD::MsdElementTypeLine
+        ::Microstation::Line.new(ole,app,cell)
+      when ::Microstation::MSD::MsdElementTypeTextNode
+        ::Microstation::TextNode.new(ole,app,cell)
+      when ::Microstation::MSD::MsdElementTypeTag
+        ::Microstation::Tag.new(ole,app,cell)
+      when ::Microstation::MSD::MsdElementTypeCellHeader
+        ::Microstation::Cell.new(ole,app,cell)
+      when ::Microstation::MSD::MsdElementTypeSharedCell
+        ::Microstation::Cell.new(ole,app,cell)
+      when ::Microstation::MSD::MsdElementTypeArc
+        ::Microstation::Arc.new(ole,app,cell)
+      when ::Microstation::MSD::MsdElementTypeEllipse
+        ::Microstation::Ellipse.new(ole,app,cell)
+      when ::Microstation::MSD::MsdElementTypeBsplineSurface
+        ::Microstation::BSplineSurface.new(ole,app,cell)
+      when ::Microstation::MSD::MsdElementTypeBsplineCurve
+        ::Microstation::BSplineCurve.new(ole,app,cell)
+
+      else
+        new(ole,app,cell)
+      end
+    end
+
+    def self.ole_object?
+      ole.class == WIN32OLE
+    end
+
+
+    attr_reader :ole_obj, :app, :original
+
+    def initialize(ole,app, cell = nil)
+      @ole_obj = ole
+      @original = read_ole(ole)
+      @app = app
+      @cell = cell
+    end
+
+    def in_cell?
+      !!@cell
+    end
+
+    def read_ole(ole)
+
+    end
+
+    def write_ole(value)
+
+    end
+
+    def method_missing(meth,*args,&block)
+      if meth.to_s =~ /^[A-Z]/
+        result = ole_obj.send(meth,*args,&block)
+        Element.convert_item(result,app)
+      else
+        super(meth,*args,&block)
+      end
+    end
+
+
+    def get_property_handler
+      ph_ole = app_ole_obj.CreatePropertyHandler(ole_obj)
+      PropertyHandler.new(ph_ole)
+    end
+
+    def property_handler
+      @property_handler ||= get_property_handler
+    end
+
+    def [](name)
+      property_handler[name]
+    end
+
+
+    def do_update(value)
+      return false if value == original
+      saved_original = original
+      begin
+        write_ole(value)
+        @original = read_ole(ole_obj)
+        return true
+
+      rescue => e
+        @original = saved_original
+        false
+      end
+    end
+
+    def update(value)
+      redraw_el = ole_obj
+      if do_update(value)
+        if in_cell?
+          @cell.ReplaceCurrentElement @ole_obj
+          redraw_el = @cell
+        end
+        redraw(redraw_el)
+        @updated = true
+        true
+      else
+        @updated = false
+        false
+      end
+    end
+
+    def updated?
+      @updated
+    end
+
+    def redraw(el = ole_obj)
+      el.Redraw ::Microstation::MSD::MsdDrawingModeNormal
+      el.Rewrite
+    end
+
+    def app_ole_obj
+      app.ole_obj
+    end
+
+    def ole_cell(ole)
+      ole.IsCellElement || ole.IsSharedCellElement
+    end
+
+    def each_cell(ole,&block)
+      cell = ole if ole_cell(ole)
+      ole.ResetElementEnumeration rescue binding.pry
+      while ole.MoveToNextElement
+        component = ole.CopyCurrentElement
+        if component.IsTextNodeElement
+          yield Microstation::Wrap.wrap(component.AsTextNodeElement,app,cell)
+        elsif component.IsTextElement
+          yield  Microstation::Wrap.wrap(component.AsTextElement,app,cell)
+        elsif component.IsComplexElement
+          each(component)
+        else
+          yield  Microstation::Wrap.wrap(component,app,cell)
+        end
+      end
+    end
+
+    def each(ole = ole_obj,&block)
+      return unless ole.IsComplexElement
+      return to_enum(:each) unless block_given?
+      if ole.IsCellElement
+        each_cell(ole,&block)
+      else
+        each_complex(ole,&block)
+      end
+    end
+
+    def each_complex(ole,&block)
+      cell = nil
+      components = ole.GetSubElements
+      while components.MoveNext
+        component = components.Current
+        if component.IsTextNodeElement
+          yield Microstation::Wrap.wrap(component.AsTextNodeElement,app,cell)
+        elsif component.IsTextElement
+          yield  Microstation::Wrap.wrap(component.AsTextElement,app,cell)
+        elsif component.IsComplexElement
+          each(component,&block)
+        else
+          yield  Microstation::Wrap.wrap(component,app,cell)
+        end
+      end
+    end
+
+  end
+
+
+  class App
+
+    def ole_to_ruby(ole)
+      Element.convert_item(ole,self)
+    end
+
+  end
+
+end
+
+
+
+module Microstation
+  class Arc < Element
+  end
+end
+
+module Microstation
+  class Ellipse < Element
+  end
+end
+
+module Microstation
+  class BSplineSurface < Element
+  end
+end
+
+module Microstation
+  class BSplineCurve < Element
+  end
+end

data/lib/microstation/enumerator.rb

@@ -1,29 +1,32 @@
-require_relative 'wrap'
-
-module Microstation
-
-  class Enumerator
-
-    include Enumerable
-    include Wrap
-
-    def initialize(ole)
-      @ole_obj = ole
-    end
-
-    def each
-      while @ole_obj.MoveNext
-        item = @ole_obj.Current
-        yield wrap(item)
-      end
-    end
-
-    def reset
-      @ole_obj.reset
-    end
-
-   
-
-  end
-
-end
+require_relative 'wrap'
+
+module Microstation
+
+  class Enumerator
+
+    include Enumerable
+
+    attr_reader :app
+
+    def initialize(ole,app)
+      @ole_obj = ole
+      @app = app
+    end
+
+    def each
+      return enum_for(:each) unless block_given?
+      while @ole_obj.MoveNext
+        item = @ole_obj.Current
+        yield Microstation::Wrap.wrap(item,app)
+      end
+    end
+
+    def reset
+      @ole_obj.reset
+    end
+
+
+
+  end
+
+end

data/lib/microstation/errors.rb

@@ -0,0 +1,17 @@
+module Microstation
+
+  Error = Class.new(::RuntimeError)
+  NonDGNFile = Class.new(Error)
+  FileNotFound = Class.new(Error)
+  MultipleUpdateError = Class.new(Error)
+  class ExistingFile < Error
+
+    def initialize(path)
+      msg = "File at path #{path} already exists"
+      super(msg)
+    end
+  end
+
+
+
+end

data/lib/microstation/event_handler.rb

@@ -0,0 +1,28 @@
+module Microstation
+
+  class EventHandler
+    def initialize
+      @handlers = {}
+    end
+
+    def add_handler(event, &block)
+      if block_given?
+        @handlers[event] = block
+      end
+    end
+
+    def get_handler(event)
+      @handlers[event]
+    end
+
+    def method_missing(event, *args)
+      if @handlers[event.to_s]
+        @handlers[event.to_s].call(*args)
+      else
+        puts "Unhandled event: #{event} args: #{args}"
+        super
+      end
+    end
+  end
+
+end

data/lib/microstation/ext/pathname.rb

@@ -1,25 +1,23 @@
-require 'pathname'
-
-  
- class Pathname
-
-   def ext(newext = '')
-     str = self.to_s
-    return self.dup if ['.', '..'].include? str
-    if newext != ''
-      newext = (newext =~ /^\./) ? newext : ("." + newext)
-    end
-    Pathname.new(str.dup.sub!(%r(([^/\\])\.[^./\\]*$)) { $1 + newext } || str + newext)
-   end
-
-  def extstr(newext='')
-    Pathname.new( self.to_s.ext(newext))
-  end
-
-  
-  def glob(pattern)
-    self.class.glob("#{self.to_s}/#{pattern}")
-  end
-  
-
-end
+require 'pathname'
+
+  
+ class Pathname
+
+   def ext(newext = '')
+     str = self.to_s
+    return self.dup if ['.', '..'].include? str
+    if newext != ''
+      newext = (newext =~ /^\./) ? newext : ("." + newext)
+    end
+    Pathname.new(str.dup.sub!(%r(([^/\\])\.[^./\\]*$)) { $1 + newext } || str + newext)
+   end
+
+  def extstr(newext='')
+    Pathname.new( self.to_s.ext(newext))
+  end
+  
+  def glob(pattern)
+    self.class.glob("#{self.to_s}/#{pattern}")
+  end
+
+end