microstation 0.4.1 → 0.8.3

data/lib/microstation/properties.rb

@@ -1,57 +1,61 @@
-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
+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)
+      if var
+        @ole_obj.Comments = var
+      else
+        @ole_obj.Comments rescue nil
+      end
+    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/property_handler.rb

@@ -0,0 +1,48 @@
+module Microstation
+
+  class PropertyHandler
+
+    attr_reader :ole_obj
+
+    def initialize(ole)
+      @ole_obj = ole
+    end
+
+    def has_property?(value)
+      prop = ole_obj.SelectByAccessString(value)
+      !!(prop)
+    end
+
+    def [](property)
+      return unless has_property?(property)
+      ole_obj.GetValue
+    end
+
+    def get_property_as_point3d(property)
+      return unless has_property?(property)
+      ole_pt = ole_obj.GetValueAsPoint3d
+      Point3d.new(ole_pt)
+    end
+
+
+    def []=(property,value)
+      return unless has_property?(property)
+      ole_obj.SetValue(value)
+    end
+
+    def property_names
+      names = ole_obj.GetAccessStrings
+      result  = []
+      names.each do |e|
+        if block_given?
+          yield e
+        else
+          result << e
+        end
+      end
+      result unless block_given?
+    end
+
+  end
+
+end

data/lib/microstation/scan/color.rb

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

@@ -1,85 +1,89 @@
-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
+require_relative 'klass'
+require_relative 'type'
+require_relative 'level'
+require_relative 'color'
+require_relative 'line_style'
+require_relative 'line_weight'
+require_relative 'subtype'
+require_relative 'range'
+
+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
+      include Scan::Range
+
+      attr_reader :app
+
+      def self.create_scanner(name=nil, app,&block)
+        sc = create(name,app)
+        return sc unless block
+        block.arity < 1 ? sc.instance_eval(&block) : block.call(sc)
+        sc
+      end
+
+      def self.create(name=nil,app)
+        sc = new(app)
+        if name.nil?
+          name = "anon#{app.scanners.size + 1}"
+        end
+        app.scanners[name] = 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
+        @app.scanners.delete(self) if @app
+        @ole_obj = 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

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