microstation 0.4.1 → 0.8.3

data/lib/microstation/cad_input_queue.rb

@@ -1,25 +1,100 @@
-module Microstation
-
-  
-  class CadInputQueue
-
-    def initialize(ole_obj)
-      @ole_obj = ole_obj
-    end
-
-    def <<(string)
-      send_keyin(string)
-    end
-
-    def send_keyin(string)
-      @ole_obj.SendKeyin(string)
-    end
-
-    def close
-      @ole_ojb = nil
-    end
-
-
-  end
-
-end
+require_relative 'ole_cad_input_message'
+require 'dry/monads'
+module Microstation
+
+  class CadInputQueue
+
+    include Dry::Monads[:result]
+
+    attr_reader :app,:ole_obj
+
+    def initialize(ole_obj,app)
+      @ole_obj = ole_obj
+      @app = app
+      @input_procs = []
+    end
+
+    def <<(string)
+      send_keyin(string)
+    end
+
+    def send_keyin(string)
+      @ole_obj.SendKeyin(string)
+    end
+
+    def send_reset
+      @ole_obj.SendReset
+    end
+
+    def close
+      @ole_ojb = nil
+    end
+
+    def send_command(text)
+      @ole_obj.SendCommand(text)
+    end
+
+    def send_data_point(pt)
+      @ole_obj.SendDataPoint app.to_ole_point3d(pt)
+    end
+
+    def send_tentative_pt(pt)
+      @ole_obj.SendTentativePoint(pt)
+    end
+
+    def send_drag_points(down_pt, up_point, view_specifier:nil, qualifier:nil)
+      @ole_obj.SendDragPoints(down_pt,up_point)
+    end
+
+    def get_input(*args)
+      com = @ole_obj.GetInput(*args)
+      OLE_CadInputMessage.new(com,app)
+    end
+
+
+    def get_point(prompt: "Enter vertex")
+      show_prompt(prompt)
+      mycim = get_input(InputType::DataPoint, InputType::Reset)
+      if mycim.reset?
+        clear_ui
+        return Failure(:reset_pressed)
+      elsif mycim.data_point?
+        clear_ui
+        Success(mycim.get_point)
+      end
+    end
+
+
+    def show_command(text)
+      app.show_command(text)
+    end
+
+    def show_prompt(text)
+      app.show_prompt(text)
+    end
+
+    def show_status(text)
+      app.show_status(text)
+    end
+
+
+    def clear_ui
+      app.show_prompt("")
+      app.show_status("")
+      app.show_command("")
+    end
+
+
+    def method_missing(name,*args,&block)
+      @ole_obj.send(name,*args,&block)
+    end
+
+    def start_default_command
+      @app.ole_obj.CommandState.StartDefaultCommand
+    end
+
+
+
+  end
+
+end

data/lib/microstation/cell.rb

@@ -0,0 +1,191 @@
+module Microstation
+
+  class Cell < Element
+
+    def initialize(*args)
+      super(*args)
+      @should_replace = false
+      @replacement = nil
+    end
+
+    def shared_cell?
+      ole_obj.IsSharedCellElement
+    end
+
+    def name
+      ole_obj.Name
+    end
+
+
+    def text_elements
+      return to_enum(:text_elements) unless block_given?
+      each do |el|
+        yield el if el.textual?
+      end
+    end
+
+  end
+
+end
+
+
+#   def each
+#     return enum_for(:each) unless block_given?
+#     ole_enum = @ole_obj.GetSubElements
+#     while ole_enum.MoveNext
+#       item = ole_enum.Currentq
+#       wrapped = Microstation::Wrap.wrap(item,app)
+
+#       yield 
+#     end
+#   end
+
+
+#   def each_ole(ole)
+#     ole_enum = ole.GetSubElements
+#     while ole_enum.MoveNext
+#       item = ole_enum.Current
+#       if item.IsComplexElement
+#         each_ole(item)
+#       else
+
+
+#       wrapped = Microstation::Wrap.wrap(item,app)
+
+#       yield 
+#     end 
+# end
+
+
+# def each_ole(ole)
+#   ole_enum = ole.GetSubElements
+#   end
+
+#   def gsub_text(regex,replacement)
+#     each do |current|
+#       next unless temp_el.textual?
+#       temp_el.gsub!(regex,replacement)
+#       replace_current_with(temp_el)
+#     end
+#   end
+
+#   def replace_current_with(this_var)
+#     this_var = this_var.ole_obj if this_var.respond_to? :ole_obj
+#     ole_obj.ReplaceCurrentElement this_var
+#   end
+
+
+
+#  Dim search_text As String
+#  Dim replace_text As String
+
+# Private Function ReplaceTextInCell(el As Element) As Boolean
+
+#  Dim cel As CellElement
+#  Dim ret As Boolean
+#  Dim tel As TextElement
+#  ret =  False
+#     Set cel = el
+#     cel.ResetElementEnumeration
+#     Do While cel.MoveToNextElement(True)
+#         Dim eleTemp As Element
+#         Set eleTemp = cel.CopyCurrentElement
+#         If eleTemp.IsTextElement Then
+#             Set tel = eleTemp
+#             If tel.Text = search_text Then
+#                 tel.Text = replace_text
+#                 ret = True
+#                 cel.ReplaceCurrentElement tel
+#             End If
+#         End If
+#     Loop
+#     ReplaceTextInCell = ret
+# End Function
+
+# Public Sub ReplaceAllTextsInModel()
+
+
+#  'USE THIS TO SET THE REPLACEMENT BY CONFIGURATION VARIABLE
+#  'search_text = ActiveWorkspace.ExpandConfigurationVariable("SEARCH_TEXT")
+#  'replace_text = ActiveWorkspace.ExpandConfigurationVariable("REPLACE_TEXT")
+#  search_text = "Test"
+#  replace_text = "Blubber"
+#  Dim e As ElementEnumerator
+#  Dim es As ElementScanCriteria
+#  Dim el As Element
+#  Set es = New ElementScanCriteria
+
+#  Set e = ActiveModelReference.Scan(es)
+#  Do While e.MoveNext
+#     Set el = e.Current
+#     If (el.IsCellElement) Then
+#         If ReplaceTextInCell(el) Then
+#           el.Rewrite
+#         End If
+#     End If
+#  Loop
+# End Sub
+
+
+# Option Explicit
+#     ' Searches in text strings and nested cells
+
+#     Private sToFind As String       ' Find text
+#     Private sToReplace As String    ' Replace with this text
+#     Private isComplex As Boolean
+
+# Sub TxtRep_complex()
+#     Dim CmdLine() As String
+#     Dim Ee As ElementEnumerator
+#     Dim Sc As New ElementScanCriteria
+
+#     ' As a separator between parameters, "|" is used.
+#     CmdLine = Split(KeyinArguments, "|")
+#     ' Cancel if incorrect parameters are given:
+#     If UBound(CmdLine) < 1 Then  ' no parameter given
+#         MessageCenter.AddMessage "Replace Text: Missing Parameters, see details:", "Call was made with: " + KeyinArguments, msdMessageCenterPriorityError
+#         Exit Sub
+#     End If
+
+#     sToFind = Trim(CmdLine(0))      '1. Parameter for search text
+#     sToReplace = Trim(CmdLine(1))   '2. Parameter for new text     
+#     ' Check if optional parameter = yes complex was given
+#     isComplex = False
+#     If UBound(CmdLine) > 1 Then
+#         If InStr(CmdLine(2), "complex") > 0 And InStr(CmdLine(2), "yes") > 0 Then isComplex = True
+#     End If
+
+#     ' If not looking at cells, only filter texts and text nodes:
+#     If isComplex = False Then
+#         Sc.ExcludeAllTypes
+#         Sc.IncludeType msdElementTypeText
+#         Sc.IncludeType msdElementTypeTextNode   ' Also text node always search
+#     Else
+#         Sc.ExcludeNonGraphical
+#     End If
+
+#     Set Ee = ActiveModelReference.Scan(Sc)
+#     ' Browse current model and start the test routine:
+#     Do While Ee.MoveNext
+#         Call complexSearch(Ee.Current)
+#     Loop
+# End Sub
+# ' Subroutine for recursively browsing nested complex elements
+# Sub complexSearch(oEle As Element)
+#     Dim EeSub As ElementEnumerator
+#     ' If a complex element or text node is found, check all sub-elements:
+#     If (oEle.IsComplexElement And isComplex) Or (oEle.Type = msdElementTypeTextNode) Then
+#         Set EeSub = oEle.AsComplexElement.GetSubElements
+#         Do While EeSub.MoveNext
+#             Call complexSearch(EeSub.Current)
+#         Loop
+#     ' Otherwise string compare, if a text is present:
+#     Else
+#         If oEle.Type = msdElementTypeText Then
+#             If oEle.AsTextElement.Text = sToFind Then
+#                oEle.AsTextElement.Text = sToReplace
+#                oEle.Rewrite
+#             End If
+#         End If
+#     End If
+# # End Sub 

data/lib/microstation/changer.rb

@@ -0,0 +1,70 @@
+# frozen_string_literal: true
+
+module Microstation
+  class Changer
+    include FileTests
+
+    attr_reader :template, :template_filename, :the_app
+
+    def initialize(template, output_dir: nil, app: nil, name: nil)
+      check_is_dgn(template)
+      @template = template
+      @template_filename = File.basename(template)
+      @the_app = app
+      @output_dir = output_dir || default_outdir(name)
+      @name = name || default_name
+    end
+
+    def ensure_output_path(odir)
+      path = Pathname(odir)
+      path.mkpath unless path.directory?
+      path
+    end
+
+    def run(name: nil, output_dir: nil, &block)
+      lname = name || @name
+      loutput_dir = output_dir || @output_dir
+      output_path = ensure_output_path(loutput_dir)
+      newname = output_path + lname
+      tmp_dgn = the_app ? change_in_tempfile(the_app, &block) : change_once_in_tempfile(&block)
+      FileUtils.mv(tmp_dgn.to_s, newname.to_s)
+      puts "Saved drawing #{newname}"
+    rescue StandardError => e
+      puts 'error in changing file'
+      raise e
+    end
+
+    def change_in_tempfile(app, &block)
+      path = Pathname(File.join(::Dir.tmpdir, "#{template_filename}_#{Time.now.to_i}_#{rand(1000)}"))
+      app.new_drawing(path, seedfile: @template) do |drawing|
+        if block_given?
+          block.call(drawing)
+        else
+          default_block.call(drawing)
+        end
+      end
+      path
+    rescue MultipleUpdateError => e
+      puts "Error while #change_into_tempfile: #{e.message}"
+      raise e
+    end
+
+    def change_once_in_tempfile(&block)
+      ::Microstation.run do |app|
+        change_in_tempfile(app, &block)
+      end
+    end
+
+    def default_block
+      ->(d) { d }
+    end
+
+    def default_outdir(_name = nil)
+      Pathname.getwd
+    end
+
+    def default_name
+      template_filename
+    end
+  end
+end

data/lib/microstation/configuration.rb

@@ -1,57 +1,193 @@
-module Microstation
-
-  class VariableDefined < ::StandardError
-    end
-
-  class Configuration
-
-    def initialize(app)
-      @app = app
-    end
-
-    def [](variable)
-      return nil unless exists? variable
-     value(variable)
-    end
-
-    def should_update?(key,options={force: false})
-      return true unless exists? key
-      force = options.fetch(:force){ false}
-      return !!force
-    end
-
-    def remove_variable(variable)
-      workspace.RemoveConfigurationVariable variable
-    end
-
-    def set(key,value,options = {})
-      raise Microstation::VariableDefined unless should_update?(key,options)
-      workspace.AddConfigurationVariable(key,value)
-    end
-
-
-    def []=(key,value)
-      set(key,value)
-     end
-
-    def value(variable)
-      workspace.ConfigurationVariableValue(variable)
-    end
-
-    def exists?(value)
-      workspace.IsConfigurationVariableDefined(value)
-    end
-
-    def expand(string)
-      workspace.ExpandConfigurationVariable(string)
-    end
-
-    private
-    def workspace
-      @app.active_workspace
-    end
-
-
-  end
-
-end
+module Microstation
+
+  class Capabilities
+
+    attr_reader :variable, :capabilities
+
+    def initialize(config,variable)
+      @config = config
+      @variable = variable
+      @capabilities = get_capabilities
+    end
+
+    def get_capabilities
+      @capabilities = @config[variable].split(';')
+    end
+
+
+    def search(name)
+      @capabilities.select{|c| c =~ Regexp.new(Regexp.escape(name), Regexp::IGNORECASE)}
+    end
+
+    def enabled
+      @capabilities.select{|c| c.start_with?('+')}
+    end
+
+    def disabled
+      @capabilities.select{|c| c.start_with?('-')}
+    end
+
+    def enabled?(name)
+      capa = remove_prefix(name)
+      @capabilities.any?{|c| c == "+#{capa}"}
+    end
+
+    def disabled?(name)
+      capa = remove_prefix(name)
+      @capabilities.any?{|c| c == "-#{capa}"}
+    end
+
+    def write_configuration
+      caps = @capabilities.uniq.join(';')
+      @config.set!(variable, caps)
+    end
+
+    def prepend(value)
+      @config.prepend(variable,value)
+    end
+
+    def enable(name)
+      return if enabled?(name) && !disabled?(name)
+      capa = remove_prefix(name)
+      @capabilities.delete("-#{capa}")
+      @capabilities.unshift("+#{capa}")
+      write_configuration
+      get_capabilities
+      self
+    end
+
+    def disable(name)
+      return if disabled?(name)  && !enabled?(name)
+      capa = remove_prefix(name)
+      capabilities.delete("+#{name}")
+      @capabilities.unshift("-#{capa}")
+      write_configuration
+      get_capabilities
+      self
+    end
+
+    def remove_prefix(name)
+      if name =~ /[+-](.+)/
+        name = Regexp.last_match(1)
+      end
+      name
+    end
+
+
+  end
+
+  class VariableDefined < ::StandardError
+  end
+
+
+  class App
+
+    def with_config
+
+    end
+
+  end
+
+  class Configuration
+
+    def initialize(app)
+      @app = app
+    end
+
+    def prepend(variable,value)
+      if exists?(variable)
+        old_value = get(variable)
+        new_value = "#{value};#{old_value}"
+      else
+        new_value = value.to_s
+      end
+      set!(variable,new_value)
+    end
+
+    def append(variable,value)
+      if exists?(variable)
+        old_value = get(variable)
+        new_value = "#{old_value};#{value}"
+      else
+        new_value = value.to_s
+      end
+      set!(variable,new_value)
+    end
+
+    def [](variable)
+      return nil unless exists? variable
+      get(variable)
+    end
+
+
+    def remove_variable(variable)
+      workspace.RemoveConfigurationVariable variable
+    end
+
+    def set(key,value,options = {})
+      raise VariableDefined unless should_update?(key,options)
+      set!(key,value)
+    end
+
+    def set!(key,value)
+      self.remove_variable(key)
+      workspace.AddConfigurationVariable(key,value)
+    end
+
+
+    def []=(key,value)
+      set(key,value)
+    end
+
+    def exists?(value)
+      workspace.IsConfigurationVariableDefined(value)
+    end
+
+    def capabilities_all
+      @workmode_all ||= Capabilities.new(self,'_USTN_CAPABILITY')
+    end
+
+
+    def expand(string)
+      workspace.ExpandConfigurationVariable(string)
+    end
+
+    private
+    def workspace
+      @app.active_workspace
+    end
+
+    def get(variable)
+      workspace.ConfigurationVariableValue(variable)
+    end
+
+    def should_update?(key,options={force: false})
+      return true unless exists? key
+      force = options.fetch(:force){ false}
+      return !!force
+    end
+
+  end
+
+
+  class App
+
+    def capabilities(mode = :all)
+      case mode
+      when :all
+        configuration.capabilities_all
+      when :dwg
+        configuration.capabilites_dwg
+      when :v7
+        configuration.capabilities_v7
+      else
+        configuration_capabilities_all
+      end
+
+    end
+
+  end
+
+
+
+end