|
Zdravím, spolupracuju na tomto řešení s Ondrou. Palety už nemizí, problém byl zakopaný někde v lispu, který upravoval vyhledávací cestu palet. To už jsem opravil, nicméně teď se vyskytl problém jiný:
Náš lisp, který by měl nastavovat podpůrné cesty vypadá následovně:
(setq ACfiles (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
; Get the user's profile directory (setq userProfileDir (getenv "USERPROFILE"))
; Set support paths (setq searchpath (vla-get-supportpath ACfiles))
(if (not (wcmatch searchpath (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\Bloky"))) (setq searchpath (strcat searchpath ";" (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\Bloky"))))
(if (not (wcmatch searchpath (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\PERI-CZ-menu\\DWG"))) (setq searchpath (strcat searchpath ";" (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\PERI-CZ-menu\\DWG"))))
(vla-put-supportpath ACfiles searchpath)
; Set tool palette paths (setq searchpath (vla-get-ToolPalettePath ACfiles))
(if (not (wcmatch searchpath (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\KatalogPeri\\Nástroje PERI*"))) (setq searchpath (strcat searchpath ";" (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\KatalogPeri\\Nástroje PERI"))))
(if (not (wcmatch searchpath (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\KatalogPeri\\Nástroje PERI\\Palettes*"))) (setq searchpath (strcat searchpath ";" (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\KatalogPeri\\Nástroje PERI\\Palettes"))))
(if (not (wcmatch searchpath (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\KatalogPeri\\PERI UP*"))) (setq searchpath (strcat searchpath ";" (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\KatalogPeri\\PERI UP"))))
(if (not (wcmatch searchpath (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\KatalogPeri\\PERI UP\\Palettes*"))) (setq searchpath (strcat searchpath ";" (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\KatalogPeri\\PERI UP\\Palettes"))))
(if (not (wcmatch searchpath (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\Bloky"))) (setq searchpath (strcat searchpath ";" (strcat userProfileDir "\\OneDrive - PERI Group\\Technika\\Software\\PERICAD\\Pro_vyvojare_-_podpurne_soubory\\Bloky"))))
(vla-put-ToolPalettePath ACfiles searchpath)
Cesty to nastaví, ale při každém startu Autocadu nastaví ToolPalette-path nově a zduplikuje, takže po týdnu práce tam cesty mám mnohokrát, na přiloženém obrázku už jsem je promazal pro přehlednost. U support paths (první část lispu) podmínka funguje, tam se cesty neduplikují.
Dokázal byste prosím poradit?
Moc díky za odpověď
Ing. Štěpán Mudrák PERI, spol. s.r.o
|