Autocad 200x VB

[Snupy_II]

Prosim za pomoč. (VB skripte)

1.

Kako v Avtocadu izmerim dolžino črte? (s tem da za prikaz dveh točk uporabim ukaz)

Koda: Izberi vse

X1 = ThisDrawing.Utility.GetPoint(, "Podaj 1. točko:")
X2 = ThisDrawing.Utility.GetPoint(X1, "Podaj 2. točko:")


Set nn = ThisDrawing.ModelSpace.AddLine(X1, X2)


msgbox ?????   (želim prejeti dolžino črte ki jo izrišem)



S tem mi računalnik poda oba parametra nevem pa kako bi izračunal dolžino? ali obstaja kak ukaz ali kaj podobnega.

2.

Potem pa me še zanima. Kako bi lahko text, ki je ustvarjen v acadu (_dtext)
z klikom lahko prenesel

Koda: Izberi vse


(koda ki zajame textovno obliko ter jo poda)
msgbox x


za odgovor se zahvaljujem

lp

[rezonjai]

Uporabi ukaz DIST !!

[Snupy_II]

Sm že najdu rešitev vseeno hvala ti za pomoč....

Lp
Damjan