Wypowiedzi
-
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. -
Spróbuj zamienić "esc.IncludeLevel ActiveModelReference.Levels" na
"esc.IncludeLevel ActiveDesignFile.Levels". I nazwa warstwy w cudzysłowie. -
'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 -
Ok. Kanały podstawowe RGB nie mogą być wstawiane przez putName(), tylko jako putEnumerated()
-
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]) -
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.
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy GEOINFORMATYCY
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy GEOINFORMATYCY