Wyrównaj wymiary na arkuszu IDW

Co robi reguła?

Podczas pracy nad rysunkiem w Inventorze tekst wymiarów może zostać przesunięty, a ich rozkład wymagać ręcznych poprawek. Ten przykład reguły iLogic działa na aktywnym arkuszu dokumentu rysunkowego.

1. Pobiera kolekcję wymiarów aktywnego arkusza.
2. Wyszukuje wymiary liniowe i kątowe, dla których wywołuje CenterText.
3. Dodaje je do tymczasowej kolekcji.
4. Wywołuje Arrange w celu automatycznego rozmieszczenia zebranych wymiarów.

Jak uruchomić regułę iLogic w Inventorze?

1. Utwórz kopię pliku IDW lub rysunku DWG i otwórz ją w Autodesk Inventor.
2. Przejdź do narzędzi iLogic i dodaj nową regułę.
3. Wklej kod z poniższego przykładu albo zaimportuj pobrany plik jako regułę zewnętrzną.
4. Uruchom regułę, a następnie skontroluj układ i zapisz rysunek.

Kod iLogic — do skopiowania

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument

Dim oArkusz As Sheet
oArkusz = oDoc.ActiveSheet

Dim oWymiar As DrawingDimension
Dim oWymiary As DrawingDimensions
Dim oKolekcjaWymiarow As ObjectCollection

oWymiary = oArkusz.DrawingDimensions
oKolekcjaWymiarow = ThisApplication.TransientObjects.CreateObjectCollection

' Wyrównanie wymiarów liniowych i kątowych na aktywnym arkuszu.
For Each oWymiar In oWymiary
    If TypeOf oWymiar Is LinearGeneralDimension Or _
       TypeOf oWymiar Is AngularGeneralDimension Then
        oWymiar.CenterText
        oKolekcjaWymiarow.Add(oWymiar)
    End If
Next

If oKolekcjaWymiarow.Count > 0 Then
    oWymiary.Arrange(oKolekcjaWymiarow)
End If

Ograniczenia i bezpieczeństwo

Kod jest przykładem edukacyjnym do przetestowania w kopii pliku. Nie był uruchamiany w Twojej konkretnej wersji Autodesk Inventor. Przed wykorzystaniem produkcyjnym sprawdź działanie i dopasuj regułę do standardów rysunkowych firmy.