Zobrazit plnou verzi pøíspìvku: GetPoint

orlik
27.07.2005, 07:13
Ve svem VBA programu pri funkci GedPoint potrebuji nastavit jiny uchopovaci bod, ktery jsem nemel stabilne nastaven, mi vyskoci chyba Method Gedpoint of object 'IAcadUtility' failed. Pokud skocim do vba, muzu to poslat dale, ale to neni reseni. Co musim mit nastaveno (nemyslim stale uchopovaci body), aby mi tato chyba nevyskakovala. Dik

Seiner
27.07.2005, 07:19
Predpokladam, ze GedPoint je jen preklep.Zkuste poslat kousek kodu, jak to prepinani uchopovaciho modu delate. Asi bych pouzil zmenu systemove promenne.

orlik
27.07.2005, 08:26
timto prikazem nacitam bod    

TG.G.Win = ThisDrawing.Utility.GetPoint(Prompt:="Navlek dratu: ")

... TG.G.Win je typu ACAD_POINT

a pokud z vykresu nesejmu nabizene uchopovaci body, ale kliknu na panel uchopeni objektu napr. na prusecik, ktery neman nastaven stabilne, vyskoci mi vyse zminovana chyba.

(samozrejme ze ne GED ale GET)

Sirus
27.07.2005, 10:45

[QUOTE=orlik]TG.G.Win = ThisDrawing.Utility.GetPoint(Prompt:="Navlek dratu: ")

[/QUOTE]

Vidim, ze programujete v Delphi . Ma to byt zapisane:
TG.G.Win = ThisDrawing.Utility.GetPoint("Navlek dratu: ")


orlik
27.07.2005, 11:25
Jelikoz je zobrazen jen jeden radek kodu, syntaxe := predjima, ze by to mohl byt pascal, ale je to kod Visual basicu z Autocadu. Kdyz jsem se to snazil zapsat bez toho Prompt:= , vyhazovalo mi to chybu.

Sirus
27.07.2005, 11:33
Pardon zabudol som napisat ze getpoint ocakava dva parametre.

Toto uz musi fungovat:
 
TG.G.Win = ThisDrawing.Utility.GetPoint(, "Navlek dratu: ")