Takiego lispa znalazłem....

[Pawcyk]

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]

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]

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]

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]

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