Suma linii plus łuków - lisp

[OneiroO]

Witam

Poszukuję lisp'a do AC, który zsumuje mi wybrane linie oraz łuki.
Znalazłem list sumalin.lsp ale nie sumuje on łuków - ma ktoś taki lisp
do AC?

Pozdrawiam, Krzysiek

[Sir_Robak]

Post by OneiroO
Poszukuję lisp'a do AC, który zsumuje mi wybrane linie oraz łuki.
Znalazłem list sumalin.lsp ale nie sumuje on łuków - ma ktoś taki lisp do
AC?
Pozdrawiam, Krzysiek

poszukaj "vla-get-TotalObjLength" autorstwa bodaj Pana Andrzeja Gumula

Robert

[Igor]

Post by Sir_Robak

Post by OneiroO
Poszukuję lisp'a do AC, który zsumuje mi wybrane linie oraz łuki.
Znalazłem list sumalin.lsp ale nie sumuje on łuków - ma ktoś taki lisp do
AC?
Pozdrawiam, Krzysiek

poszukaj "vla-get-TotalObjLength" autorstwa bodaj Pana Andrzeja Gumula
Robert

WItam
Wiem, że może to dziwne pytanie, ale jak sie uruchamia LISP?
Znalazłem sobie podobno świetnego LISPa:

TLEN.LSP - Total LENgth of selected objects
(c) 1998 Tee Square Graphics

|;

(defun C:TLEN (/ ss tl n ent itm obj l)
(setq ss (ssget)
tl 0
n (1- (sslength ss)))
(while (>= n 0)
(setq ent (entget (setq itm (ssname ss n)))
obj (cdr (assoc 0 ent))
l (cond
((= obj "LINE")
(distance (cdr (assoc 10 ent))(cdr (assoc 11 ent))))
((= obj "ARC")
(* (cdr (assoc 40 ent))
(if (minusp (setq l (- (cdr (assoc 51 ent))
(cdr (assoc 50 ent)))))
(+ pi pi l) l)))
((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE")
(= obj "LWPOLYLINE")(= obj "ELLIPSE"))
(command "_.area" "_o" itm)
(getvar "perimeter"))
(T 0))
tl (+ tl l)
n (1- n)))
(alert (strcat "Total length of selected objects is " (rtos tl)))
(princ)
)

I CO DALEJ.......??? Co ja mam z tym zrobić. Zaznaczę, że o LISP
wiadomo mi tylko, że jest to jezyk programowania w CADzie (chyba ;-) )

Jak sie uruchamia i jak korzysta z LISPA
Dzieki
Igor Zamirski

[JD]

Post by Sir_Robak

Post by OneiroO
Poszukuję lisp'a do AC, który zsumuje mi wybrane linie oraz łuki.
Znalazłem list sumalin.lsp ale nie sumuje on łuków - ma ktoś taki lisp do
AC?
Pozdrawiam, Krzysiek

poszukaj "vla-get-TotalObjLength" autorstwa bodaj Pana Andrzeja Gumula
Robert

WItam
Wiem, że może to dziwne pytanie, ale jak sie uruchamia LISP?
Znalazłem sobie podobno świetnego LISPa:

TLEN.LSP - Total LENgth of selected objects
(c) 1998 Tee Square Graphics

|;

(defun C:TLEN (/ ss tl n ent itm obj l)
(setq ss (ssget)
tl 0
n (1- (sslength ss)))
(while (>= n 0)
(setq ent (entget (setq itm (ssname ss n)))
obj (cdr (assoc 0 ent))
l (cond
((= obj "LINE")
(distance (cdr (assoc 10 ent))(cdr (assoc 11 ent))))
((= obj "ARC")
(* (cdr (assoc 40 ent))
(if (minusp (setq l (- (cdr (assoc 51 ent))
(cdr (assoc 50 ent)))))
(+ pi pi l) l)))
((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE")
(= obj "LWPOLYLINE")(= obj "ELLIPSE"))
(command "_.area" "_o" itm)
(getvar "perimeter"))
(T 0))
tl (+ tl l)
n (1- n)))
(alert (strcat "Total length of selected objects is " (rtos tl)))
(princ)
)

I CO DALEJ.......??? Co ja mam z tym zrobić. Zaznaczę, że o LISP
wiadomo mi tylko, że jest to jezyk programowania w CADzie (chyba ;-) )

Jak sie uruchamia i jak korzysta z LISPA
Dzieki
Igor Zamirski





Polecenie wczytaj aplikację, wskaż tego tlen.lsp
potem jak wczyta bez błądów, to w linii poleceń z klawiatury tlen

i powinien się odpalić

Pozdrawiam
JD

[Sir_Robak]

Może chodzi o to że ten tekst musisz skopiowac wklejić do notatnika zapisac
"nazwa.lsp" i dopiero _appload ;)

Robert

[JD]

Post by Sir_Robak
Może chodzi o to że ten tekst musisz skopiowac wklejić do notatnika
zapisac "nazwa.lsp" i dopiero _appload ;)
Robert

To tez prawda, w ten sposób sprawdziłem,
że ten lisp działa.

JD

[a***@kursykomputerowe.eu]

Czy masz AC2008? Jeśli tak zainteresuj się poprostu wyodrębnianiem
danych kiedyś można było wyodrebniać jedynie atrybuty a teraz możesz
mieć wszystko w tabelce w Excelu

Marcin
www.kursykomputerowe.eu

Post by OneiroO
Witam
Poszukuję lisp'a do AC, który zsumuje mi wybrane linie oraz łuki.
Znalazłem list sumalin.lsp ale nie sumuje on łuków - ma ktoś taki lisp
do AC?
Pozdrawiam, Krzysiek