Rekomendowane odpowiedzi

Opublikowano

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

1.jpg

2.jpg

3.jpg

4.jpg

5.jpg

Opublikowano

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???

Opublikowano

...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.

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ę