_

Lisp do sumowania długości polilinii

Forum ogólne. Miejsce na pierwsze pytania w karierze projektanta. Wszelkie tematy, których nie można zakwalifikować do jednej z poniższych grup.

Lisp do sumowania długości polilinii

Postprzez dziku771 » cze 20, 2017 12:07

Witam, mam pytanie odnośnie konkretnego lispu. Poszukuje lisp do sumowania długości polilinii. Nie wiem niestety jak taki lisp się nazywa, a google nie jest zbyt pomocne. Pozdrawiam
dziku771
 
Posty: 2
Dołączył(a): cze 20, 2017 12:05

Re: Lisp do sumowania długości polilinii

Postprzez ziele_o2k » cze 20, 2017 12:33

dziku771 napisał(a):Witam, mam pytanie odnośnie konkretnego lispu. Poszukuje lisp do sumowania długości polilinii. Nie wiem niestety jak taki lisp się nazywa, a google nie jest zbyt pomocne. Pozdrawiam

O to chodziło
Kod: Zaznacz cały
(defun c:sumpline ( / ss sum)
  (setq sum 0)
  (if (setq ss (cd:SSX_Convert (ssget '((0 . "LWPOLYLINE"))) 0))
    (foreach % ss
      (setq sum
        (+ (vlax-curve-getDistAtParam % (vlax-curve-getEndParam %)) sum)
      )
    )
  )
  (alert (strcat "\nDługość całkowita: " (cd:CON_Real2Str sum 2 4)))
  (princ (strcat "\nDługość całkowita: " (cd:CON_Real2Str sum 2 4)))
  (princ)
)


Cadpack wczytany ma byc!
Ziele
Avatar użytkownika
ziele_o2k
 
Posty: 507
Dołączył(a): mar 18, 2014 11:33
Lokalizacja: Poznań

Re: Lisp do sumowania długości polilinii

Postprzez dziku771 » cze 20, 2017 13:07

ziele_o2k napisał(a):
dziku771 napisał(a):Witam, mam pytanie odnośnie konkretnego lispu. Poszukuje lisp do sumowania długości polilinii. Nie wiem niestety jak taki lisp się nazywa, a google nie jest zbyt pomocne. Pozdrawiam

O to chodziło
Kod: Zaznacz cały
(defun c:sumpline ( / ss sum)
  (setq sum 0)
  (if (setq ss (cd:SSX_Convert (ssget '((0 . "LWPOLYLINE"))) 0))
    (foreach % ss
      (setq sum
        (+ (vlax-curve-getDistAtParam % (vlax-curve-getEndParam %)) sum)
      )
    )
  )
  (alert (strcat "\nDługość całkowita: " (cd:CON_Real2Str sum 2 4)))
  (princ (strcat "\nDługość całkowita: " (cd:CON_Real2Str sum 2 4)))
  (princ)
)


Cadpack wczytany ma byc!



Dzięki!
dziku771
 
Posty: 2
Dołączył(a): cze 20, 2017 12:05


Powrót do Pytania studentów, laików i początkujących

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników