Cytat:Mam do stworzenia funkcję, która po wybraniu przez użytkownika okręgu, będącego układem odniesienia wyznacza odległości pozostałych okręgów i umieszcza uzyskane wartości w postaci tekstu w przestrzeni modelu przy odpowiednich okręgach (VBA).
{
Kolejne operacje do wykonania w funkcji:
- wybieramy okrąg ( punkt odniesienia )
- Sprawdzić ilość okręgów
- Obliczyć odległość pomiędzy środkami okręgów
- Wydrukować odległość w pobliżu okręgu
}
Problem moj polega na tym,ze musze to zrobic do piatku 15.02. A czasu mam bardzo malo i moja wiedza w tym temacie niestety jest taka, ze kilka dni bym musial poswiecic na opanowanie tego. No i zwracam sie z prosba i pytaniem zarazem, moze ktos bylby wstanie mi pomoc z napisaniem tego kodu? Wszelkie informacje sie licza. Najlepiej gdy ktos byl tak mily i napisal to za mnie, ale bede wdzieczny juz za samo nakierowanie na temat. Odwdziecze sie za szybka pomoc.
Mało czasu.
Sprawa jest jednak nie tylko trudna, co pracochłonna, gdyż należy poczytać o:
1. Metodzie GetEntity,
2. Zbiorach wskazań (AcadSelectionSet) i filtrowaniu tych zbiorów, ThisDrawing.SelectionSets.Add("text")
3. Dodawanie tekstu: ThisDrawing.ModelSpace.AddText (textString, insertionPoint, height).
Gdzie? Najlepiej tu:
http://www.cad.pl/kursy/vba1/
Pozdrawiam |