Hallo, bitte um Hilfe.
Ist es möglich, über die Attributeauswahl oder durch eine Tastatureingabe nach dem Skalierungsfaktors eines Symbols zu suchen?
Bspw. ein oder alle Symbole abweichend vom Skalierungsfaktor 1?
Bitte um Rückantwort. Danke im Voraus!
Freundliche Grüße
Alex
Um welche Version von Microstation handelt es sich denn? Welches Betriebssystem?
Symbol = Zelle?
Entschuldigung, es handelt sich um die V8i Ss4 auf Win7 Enterprise.
Ja ich meine Zelle.
Das geht bestimmt via Macro/VBA-Script, aber nicht über ein simples Key-in.
Hi,
wie es f.mandoki schreibt nur per Programm, also mindestens MVba.
Ist es jedoch nur das Ziel, bei allen Zellen einen bestimmten Faktor einzustellen, hilft natürlich (aLLE) auswählen und über die Elemnentinfo die X-, Y, Z Faktoren einheitlich einzustellen.
Regards
Frank
since 1985: GIS, CAD, Engineering (Civil) Senior Consultant : [Autodesk Civil 3D , Esri ArcGIS, VertiGIS: in previous days : Bentley MS V4 - V8i, GeoGraphics, Bentley Map V8i, InRoads, HHK Geograf, IBr DAVID] : Dev: [C, C++, .NET, Java, SQL, FORTRAN, UML][direct quote by: http://en.wikipedia.org/wiki/Helmut_Schmidt]: "Wer Kritik übel nimmt, hat etwas zu verbergen"Wer Grammatik- und/oder Rechtschreibfehler findet, der darf sie behalten :-)
Hallo Herr Harport,
wie bereits vorher erwähnt wurde, kann man den Skalierungsfaktor von Zellen per VBA leicht prüfen.Hier einmal ein Beispiel dazu, solche Zellen auszuwählen, wenn der Faktor in der x, y, oder z-Richtung von 1 abweicht.
Sub selectScaledcells() Dim ee As ElementEnumerator Dim sc As New ElementScanCriteria sc.ExcludeAllTypes sc.IncludeType msdElementTypeCellHeader Set ee = ActiveModelReference.Scan(sc) Do While ee.MoveNext Dim oCell As CellElement Set oCell = ee.Current.AsCellElement If oCell.Scale.X <> 1 Or oCell.Scale.Y <> 1 Or oCell.Scale.Z <> 1 Then ActiveModelReference.SelectElement oCell End If Loop End Sub
Wenn solche Zellen dann noch gemeinsam verändert werden sollen, könnte dies in der VBA Routine evtl. hinzugefügt werden.Sollen diese evtl. nur wieder zurück auf 1 skaliert werden oder haben Sie andere Anforderungen?
Schönen Gruß
Artur Goldsweer