[MS] Copy paralell z użyciem VBA

[b0bik]

Witam

Czy ktoś z szanownych grupowiczów zna sposób aby z użyciem VBA (v8)
odbić element o zadaną odległość ? Nie chcę tego robić przy użyciu
keyin'ów.

Pozdrawiam
b

[b0bik]

Post by b0bik
Witam
Czy ktoś z szanownych grupowiczów zna sposób aby z użyciem VBA (v8)
odbić element o zadaną odległość ? Nie chcę tego robić przy użyciu
keyin'ów.
Pozdrawiam
b

Albo czy ktoś ma namiary na algorytm, który dla zadanej tablicy
punktów 2D, wygeneruje nową tablicę jako odbicie równoległe tej
pierwszej. Oczywiście z redukcją wierzchołków w razie potrzeby

b

[artkraw]

Marika Kaletowska znalazła takie coś

Poniżej przesyłam link z forum be communities

http://communities.bentley.com/products/microstation/microstation_v8_xm_edition/f/159/t/29922.aspx

Dan Paul napisał tam:
"In VBA there are only Offset and Offset3d methods of BSplineCurve.
MicroStation's MDL tool to make parallel is using KISOLID API (as far
as
I know), that is not designed to be used from VBA.

If you want move parallel line string, make new BSplineCurve from it,
use Offest method of curve and use it to make new linestring. "

może to się przyda.

Artur k,

[b0bik]

Marika Kaletowska znalaz³a takie co¶
Poni¿ej przesy³am link z forum be communities
http://communities.bentley.com/products/microstation/microstation_v8_...
"In VBA there are only Offset and Offset3d methods of BSplineCurve.
MicroStation's MDL tool to make parallel is using KISOLID API (as far
as
I know), that is not designed to be used from VBA.
If you want move parallel line string, make new BSplineCurve from it,
use Offest method of curve and use it to make new linestring. "
mo¿e to siê przyda.
Artur k,

Dziękuję.

Najprościej by było opracować funkcję "matematyczną", która obliczy
nowe wierzchołki. Było by to rozwiązanie uniwersalne. Ale wczoraj po
kilku godzinach czytania (straight skeleton etc etc) doszedłem do
wniosku, że to nie będzie kilka linijek kodu : ( No ale może było już
późno.

b