GetPoint
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=1156
Datum vytištění: 12.kvě.2026 v 22:47
Téma: GetPoint
Odeslal: orlik
Předmět: GetPoint
Datum odeslání: 27.čvc.2005 v 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 |
Odpovědi:
Odeslal: Seiner
Datum odeslání: 27.čvc.2005 v 07:19
|
Predpokladam, ze GedPoint je jen preklep. Zkuste poslat kousek kodu, jak to prepinani uchopovaciho modu delate. Asi bych pouzil zmenu systemove promenne. |
Odeslal: orlik
Datum odeslání: 27.čvc.2005 v 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) |
Odeslal: Sirus
Datum odeslání: 27.čvc.2005 v 10:45
Vidim, ze programujete v Delphi  . Ma to byt zapisane:TG.G.Win = ThisDrawing.Utility.GetPoint("Navlek dratu: ") |
orlik napsal(a):Odeslal: orlik
Datum odeslání: 27.čvc.2005 v 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.
|
Odeslal: Sirus
Datum odeslání: 27.čvc.2005 v 11:33
|
Pardon zabudol som napisat ze getpoint ocakava dva parametre. Toto uz musi fungovat: TG.G.Win = ThisDrawing.Utility.GetPoint(, "Navlek dratu: ") |