Pawcyk Opublikowano 16 Lutego 2017 Zgłoś Udostępnij 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 Cytuj Odnośnik do komentarza Udostępnij na innych stronach Więcej opcji udostępniania...
Pawcyk Opublikowano 16 Lutego 2017 Autor Zgłoś Udostępnij 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??? Cytuj Odnośnik do komentarza Udostępnij na innych stronach Więcej opcji udostępniania...
kruszynski Opublikowano 17 Lutego 2017 Zgłoś Udostępnij 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. Cytuj Odnośnik do komentarza Udostępnij na innych stronach Więcej opcji udostępniania...
Pawcyk Opublikowano 17 Lutego 2017 Autor Zgłoś Udostępnij 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-....... Cytuj Odnośnik do komentarza Udostępnij na innych stronach Więcej opcji udostępniania...
Pawcyk Opublikowano 18 Lutego 2017 Autor Zgłoś Udostępnij 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. Cytuj Odnośnik do komentarza Udostępnij na innych stronach Więcej opcji udostępniania...
Rekomendowane odpowiedzi
Dołącz do dyskusji
Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.