Pawcyk Opublikowano 16 Lutego 2017 Zgłoś Opublikowano 16 Lutego 2017 Dzień dobry. Znalazłem pewnego lispa:https://www.theswamp.org/index.php?topic=9042.465 Żeby zachęcić do pomocy przedstawię jego działanie: 1) z punktów 3d oraz liniii nieciągłości (3DPOLY) tworzy siatkę trójkątów (3DFACE) 2) na podstawie polilinii tworzy profil wdowolnej skali pionowej Niestety działa tylko w AutoCadzie. Problem pojawia się z funkcjami: 1) pragma (z tego co się dowiedziałem pomaga przy programowaniu. Oznacza zmienne innym kolorem. Więc może nie jest potrzebna) 2) _vl-times 3) acet-ui-progress 4) ACET-SS-ZOOM-EXTENTS Punkty 2 i 3 mają związek z wyświetlaniem informacji ile czasu zajęło programowi wykonanie poszczególnych działań (tak mi się wydaje). Jak kogoś zainteresuje to zachęcam do walki o działanie w ZWCadzie lub inny_cadzie ;) Pozdrawiam TriangV0.6.7.lsp
Pawcyk Opublikowano 16 Lutego 2017 Autor Zgłoś Opublikowano 16 Lutego 2017 Wydaje mi się, że największym problemem jest ten fragment kodu: (defun getfencesel (en flt / fe ss) (acet-ss-zoom-extents (setq ss (ssadd en))) (setq fe (acet-list-remove-adjacent-dups (acet-geom-object-point-list en 0.05)) ss (ssget "_F" fe flt) ) (vl-cmdf "_ZOOM" "_P") ss ) Może ktoś zna jakiś sposób na zapisanie tego w zwykłym autolispie???
kruszynski Opublikowano 17 Lutego 2017 Zgłoś Opublikowano 17 Lutego 2017 Kilku funkcji jeszcze brakuje żeby móc uruchomić tego LISPa, nie były one też dostępne w poprzednich wersjach ZWCADa. Zgłosiłem brakujące funkcje.
Pawcyk Opublikowano 17 Lutego 2017 Autor Zgłoś Opublikowano 17 Lutego 2017 Może udało by się stworzyć jakiś zamiennik... Rękawica została podjęta na sronie: http://www.cadtutor.net/forum/showthread.php?99825-Problem-with-function-ACET-.......
Pawcyk Opublikowano 18 Lutego 2017 Autor Zgłoś Opublikowano 18 Lutego 2017 ...ciągle szukam i znalazłem coś takiego: 1) zastępstwo funkcji acet-ss-zoom-extents: ; nie wiem czy potrzebna jest ta funkcja; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/zoom-to-selected-entities/td-p/917180?nobounce 2) zastępstwo funkcji acet-list-remove-adjacent-dups: ; to chyba nie problem, że będą duplikujące się elementy; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/remove-duplicates-from-a-list/td-p/2914874 3) zastępstwo funkcji acet-geom-object-point-list ; wg mnie to jest najważniejsze; http://lee-mac.com/entitytopointlist.html P.S. będę się starał zwracać większą uwagę na to co piszę, żeby "sronie" się nie powtórzyło.
Rekomendowane odpowiedzi
Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto
Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.
Zarejestruj nowe konto
Załóż nowe konto. To bardzo proste!
Zarejestruj sięZaloguj się
Posiadasz już konto? Zaloguj się poniżej.
Zaloguj się