microstation 0.4.1

data/lib/microstation/enumerator.rb

@@ -0,0 +1,29 @@
+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

data/lib/microstation/ext/pathname.rb

@@ -0,0 +1,25 @@
+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

data/lib/microstation/extensions/hash.rb

@@ -0,0 +1,27 @@
+class Hash
+
+
+  def map_v
+    reduce({}) do |result, array|
+      k,v = array
+      new_val = yield v
+      result.merge( k => new_val)
+    end
+  end
+
+  def map_k
+    reduce({}) do |result, array|
+      k,v = array
+      new_k = yield k
+      result.merge(new_k => v)
+    end
+  end
+
+  def map_kv
+    reduce({}) do |result, array|
+      new_k,new_v = yield array
+      result.merge(new_k => new_v)
+    end
+  end
+
+end

data/lib/microstation/pdf_support.rb

@@ -0,0 +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
+

data/lib/microstation/properties.rb

@@ -0,0 +1,57 @@
+module Microstation
+
+  module Properties
+
+    def author=(var = nil)
+      if var
+        @ole_obj.Author = var
+      else
+        @ole_obj.Author rescue nil
+      end
+
+    end
+
+      alias_method :author, :author=
+
+    def subject=(var = nil)
+      if var
+        @ole_obj.Subject = var
+      else
+        @ole_obj.Subject rescue nil
+      end
+
+    end
+
+     alias_method :subject, :subject=
+
+    def comments=(var = nil)
+      var ? @ole_obj.Comments = var : @ole_obj.Comments
+    end
+
+      alias_method :comments, :comments=
+
+    def title=(var = nil)
+      if var
+        @ole_obj.Title = var
+      else
+        @ole_obj.Title rescue nil
+      end
+    end
+
+    alias_method :title,:title=
+
+    def keywords=(var = nil)
+      if var
+        @ole_obj.Keywords = var
+      else
+        @ole_obj.Keywords rescue nil
+      end
+    end
+
+
+    alias_method :keywords, :keywords=
+
+  end
+
+
+end

data/lib/microstation/scan/color.rb

@@ -0,0 +1,38 @@
+module Microstation
+
+  module Scan
+
+    module Color
+
+      def color_inclusions
+        @color_inclusions ||= []
+      end
+
+      def include_color(color)
+        color_inclusions << color
+      end
+
+      def reset_colors
+        reset_ole_colors
+        @color_inclusions = []
+      end
+
+      def reset_ole_colors
+        ole_obj.ExcludeAllColors
+      end
+
+      def resolve_color_scans
+        return unless color_inclusions.size > 0
+        reset_ole_colors
+        color_inclusions.each do |color|
+          ole_obj.IncludeColor(color)
+        end
+      end
+
+    end
+
+  end
+end
+
+      
+      

data/lib/microstation/scan/criteria.rb

@@ -0,0 +1,85 @@
+require_relative 'klass'
+require_relative 'type'
+require_relative 'level'
+require_relative 'color'
+require_relative 'line_style'
+require_relative 'line_weight'
+require_relative 'subtype'
+
+module Microstation
+
+  class App
+
+    def create_ole_scan_criteria
+      ole_obj.CreateObjectInMicroStation("MicroStationDGN.ElementScanCriteria")
+    end
+
+  end
+
+end
+
+module Microstation
+
+  module Scan
+
+    class Criteria
+
+      include Scan::Klass
+      include Scan::Type
+      include Scan::Level
+      include Scan::Color
+      include Scan::LineStyle
+      include Scan::LineWeight
+      include Scan::Subtype
+
+      attr_reader :app
+
+      def self.create_scanner(app,&block)
+        sc = create(app)
+        return sc unless block
+        block.arity < 1 ? sc.instance_eval(&block) : block.call(sc)
+        sc
+      end
+
+      def self.create(app)
+        sc = new(app)
+        app.scanners << sc
+        sc
+      end
+
+
+      def initialize(app)
+        @app = app
+        @ole_obj = @app.create_ole_scan_criteria
+        @app.load_constants #unless defined? Microstation::MSD
+      end
+
+      def resolve
+        resolve_type_scans
+        resolve_class_scans
+        resolve_color_scans
+        resolve_level_scans
+        resolve_linestyle_scans
+        resolve_lineweight_scans
+        resolve_subtype_scans
+      end
+
+      def close
+        @ole_obj = nil
+        @app.scanners.delete(self) if @app
+        @app = nil
+      end
+
+      def ole_obj
+        @ole_obj
+      end
+
+      def method_missing(method,*args)
+        @ole_obj.send(method,*args)
+      end
+
+
+    end
+  end
+
+end

data/lib/microstation/scan/klass.rb

@@ -0,0 +1,43 @@
+module Microstation
+
+  module Scan
+
+    module Klass
+
+      # msdElementClassPrimary # 0 (&H0)  
+      # msdElementClassPatternComponent #1 (&H1)  
+      # msdElementClassConstruction #2 (&H2)  
+      # msdElementClassDimension #3 (&H3)  
+      # msdElementClassPrimaryRule #4 (&H4)  
+      # msdElementClassLinearPatterned #5 (&H5)  
+      # msdElementClassContructionRule #6 (&H6)
+
+      def class_inclusions
+        @class_inclusions ||= []
+      end
+
+      def reset_classes
+        reset_ole_classes
+        @class_inclusions = []
+      end
+
+      def reset_ole_classes
+        ole_obj.ExcludeAllClasses
+      end      
+
+      def include_class(klass)
+        class_inclusions << klass
+      end
+
+      def resolve_class_scans
+        return unless class_inclusions.size > 0
+        reset_ole_classes
+        class_inclusions.each do |klass|
+          ole_obj.IncludeClass(klass)
+        end
+      end
+      
+    end
+  end
+
+end

data/lib/microstation/scan/level.rb

@@ -0,0 +1,38 @@
+module Microstation
+
+  module Scan
+
+    module Level
+
+      def level_inclusions
+        @level_inclusions ||= []
+      end
+
+      def include_level(level)
+        level_inclusions << level
+      end
+      
+      def reset_levels
+        reset_ole_levels
+        @level_inclusions = []
+      end
+
+      def reset_ole_levels
+        ole_obj.ExcludeAllLevels
+      end
+
+      def resolve_level_scans
+        return unless level_inclusions.size > 0
+        reset_ole_levels
+        level_inclusions.each do |level|
+          ole_obj.IncludeLevel(level)
+        end
+      end
+
+    end
+
+  end
+
+end
+
+      

data/lib/microstation/scan/line_style.rb

@@ -0,0 +1,45 @@
+module Microstation
+
+  module Scan
+
+    module LineStyle
+
+      def linestyles
+        @app.active_design_file.LineStyles rescue []
+      end
+      
+
+      def linestyle_inclusions
+        @linestyle_inclusions ||= []
+      end
+
+      def include_linestyle(style)
+        linestyle_inclusions << style
+      end
+
+      def reset_linestyles
+        reset_ole_linestyles
+        @linestyle_inclusions = []
+      end
+
+      def reset_ole_linestyles
+        ole_obj.ExcludeAllLineStyles
+      end
+
+      def resolve_linestyle_scans
+        return unless linestyle_inclusions.size > 0
+        reset_ole_linestyles
+        linestyle_inclusions.each do |linestyle|
+          ole_obj.IncludeLineStyle(linestyle)
+        end
+      end
+
+    end
+
+  end
+
+end
+
+      
+
+      

data/lib/microstation/scan/line_weight.rb

@@ -0,0 +1,33 @@
+module Microstation
+
+  module Scan
+
+    module LineWeight
+
+      def lineweight_inclusions
+        @lineweight_inclusions ||= []
+      end
+
+      def include_lineweight(weight)
+        lineweight_inclusions << weight
+      end
+
+      def reset_lineweights
+        reset_ole_linestyles
+        @lineweight_inclusions = []
+      end
+
+      def reset_ole_lineweights
+        ole_obj.ExcludeAllLineWeights
+      end
+
+      def resolve_lineweight_scans
+        return unless lineweight_inclusions.size > 0
+        reset_ole_lineweights
+        lineweight_inclusions.each do |lineweight|
+          ole_obj.IncludeLineWeight(lineweight)
+        end
+      end
+    end
+  end
+end