Zobrazit plnou verzi pøíspìvku: GetPoint
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
Predpokladam, ze GedPoint je jen preklep.Zkuste poslat kousek kodu, jak to prepinani uchopovaciho modu delate. Asi bych pouzil zmenu systemove promenne.
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)
[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: ")
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.
Pardon zabudol som napisat ze getpoint ocakava dva parametre.
Toto uz musi fungovat:
TG.G.Win = ThisDrawing.Utility.GetPoint(, "Navlek dratu: ")