Piotr Franczak

Student, Uniwersytet Rolniczy im. Hugona Kołłątaja w Krakowie

Wypowiedzi

• Wszystko
• Tylko fora

• 
  Wpis na grupie Microstation w temacie Szraf / krzyże siatki/ kolejność wyświetlania

  26.05.2017, 22:37

  1. Żeby zmienić grubość szrafu, przed użyciem funkcji przestaw aktywną grubość linii na taką jaką potrzebujesz.
  2. Jeżeli chcesz przystosować MicroStation do prac geodezyjnych, min. z automatycznym wstawiania krzyży, warto się zastanowić nad jakąś nakładką, np. MK Power(http://geodezy.com.pl/oprogramowanie/mk-power/). Ewentualnie krzyże możesz wstawić prostym makrem
  3. Kolejność wyświetlania elementów określa atrybut 'priority'. Możesz w 'levels manager' ustawić dla danej warstwy priorytet lub zmieniać go dla poszczególnych elementów.

• 
  Wpis na grupie Microstation w temacie zmiana atrybutow na podstawie pliku TXT

  10.10.2016, 11:26

  Spróbuj zamienić "esc.IncludeLevel ActiveModelReference.Levels" na
  "esc.IncludeLevel ActiveDesignFile.Levels". I nazwa warstwy w cudzysłowie.

• 
  Wpis na grupie Microstation w temacie zmiana atrybutow na podstawie pliku TXT

  9.10.2016, 21:48

  'Wyszukuje w dgn teksy z przed pierwszego przecinka w linijce opisu z txt i zamienia go na dalszy 'ciąg z tej linijki.
  'Z linijki - "nr działki, imię nazwisko, adres, nr KW"
  'znajdzie w dgn tekst "nr działki" i zastapi go "imię nazwisko, adres, nr KW"
  
  Sub SzukajTXT()
  Dim TextLine As String
  Dim ee As ElementEnumerator
  Dim esc As ElementScanCriteria
  
  Dim Opis As String
  
  Set esc = New ElementScanCriteria
  esc.ExcludeAllLevels
  esc.ExcludeAllTypes
  esc.IncludeLevel ActiveModelReference.Levels("Default") ' w cudzysłowie wpisujesz warstwę, na której ma szukać tekstu
  esc.IncludeType msdElementTypeText
  
  Open "c:\temp\punkty.txt" For Input As #1 ' w cudzysłowie podajesz ścieżkę do pliku w którym znajduje się tekst, który będzie wyszukiwany na DGNie
  Do While Not EOF(1)
  Line Input #1, TextLine
  
  Set ee = ActiveModelReference.Scan(esc)
  Do While ee.MoveNext
  Opis = Split(TextLine, ",")(0)
  If ee.Current.AsTextElement.Text = Opis Then
  ee.Current.AsTextElement.Text = Replace(TextLine, Opis & ",", "", 1, 1)
  ee.Current.AsTextElement.Rewrite
  End If
  Loop
  Loop
  Close #1
  End Sub

• 
  Wpis na grupie Photoshop w temacie Obliczenia/Calculate w JavaScript

  18.08.2015, 21:54

  Ok. Kanały podstawowe RGB nie mogą być wstawiane przez putName(), tylko jako putEnumerated()

• 
  Wpis na grupie Photoshop w temacie Obliczenia/Calculate w JavaScript

  17.08.2015, 21:03

  Opcja Obraz->Obliczenia nagrana w ScriptListenerze wyrzuca błąd ("Ta funkcjonalność może nie być dostepna...") jak próbuje wstawić tam własne argumenty.
  Sprawdzałem na CS5 i CS6. Kanały aktywne R, G, B. Brak warstw, aktywnego zaznaczenia, ścieżek w dokumencie.
  Jakby ktoś wiedział o co chodzi, albo spróbował u siebie.
  
  

  function Calc(dok, c1, c2){
  
      
  
    function cTID(s) { return app.charIDToTypeID(s); };
  
    function sTID(s) { return app.stringIDToTypeID(s); };
  
  
  
      var desc10 = new ActionDescriptor();
  
      desc10.putClass( cTID('Nw  '), cTID('Dcmn') );
  
          var desc11 = new ActionDescriptor();
  
              var ref2 = new ActionReference();
  
              ref2.putName( cTID('Chnl'), c1.name );
  
              ref2.putName( cTID('Dcmn'), dok.name );
  
          desc11.putReference( cTID('T   '), ref2 );
  
          desc11.putEnumerated( cTID('Clcl'), cTID('Clcn'), sTID('blendDivide') );
  
              var ref3 = new ActionReference();
  
              ref3.putName( cTID('Chnl'), c2.name );
  
              ref3.putName( cTID('Dcmn'), dok.name );
  
          desc11.putReference( cTID('Src2'), ref3 );
  
      desc10.putObject( cTID('Usng'), cTID('Clcl'), desc11 );
  
      executeAction( cTID('Mk  '), desc10, DialogModes.NO );
  
  
  
  }
  
  
  
  Calc(app.activeDocument, app.activeDocument.channels[0], app.activeDocument.channels[1])

• 
  Wpis na grupie Photoshop w temacie Podwojone skrypty w menu PS

  30.05.2015, 14:44

  Witam.
  O jakiegoś czasu w Plik->Skrypty wyświetlają mi się po kilka wersji tego samego skryptu. Fizycznie na dysku jest po jednym z każdej nazwy. W dodatku są to rożne wersje - stare później edytowane. Czy photoshop tworzy jakiś zbiorczy plik, gdzie magazynuje ustawienia? (w 'dane aplikacji' nie znalazłem, w folderze 'presets' są pojedyńcze). PS CS6.
  
  
  

• 
  Wpis na grupie GEOINFORMATYCY w temacie Ilość kwadratów o powierzchni x w poligonie - jak policzyć?

  Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy GEOINFORMATYCY
• 
  Wpis na grupie GEOINFORMATYCY w temacie Ilość kwadratów o powierzchni x w poligonie - jak policzyć?

  Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy GEOINFORMATYCY