2
« on: February 03, 2016, 10:29:13 am »
Hvala na odgovoru, ali meni treba zbroj pojedinačnih blokova.
Najjednostavniji lisp koji sam uspio pronaći i koji to radi (u AutoCadu) je:
(defun c:bcount (/ bn flag ss c)
(while (setq bn (tblnext "block" (not bn)))
(setq flag (cdr (assoc 70 bn)))
(cond ( (or (= 4 (logand 4 flag))
(wcmatch (cdr (assoc 2 bn)) "`**")
)
)
( (setq ss (ssget "X" (list '(0 . "INSERT")(assoc 2 bn))))
(setq c (sslength ss))
(prompt
(strcat
"\n"
(itoa c)
"..."
(cdr (assoc 2 bn))
)
)
)
( t
(prompt
(strcat
"\n0..." (cdr (assoc 2 bn))
)
)
)
)
)
(princ)
)
Primjer ispisa:
15...Blok1
1... Blok2
22... Blok3
Bio bih zahvalan ako bi ga uspijeli konvertirati u Babacadov lisp format, naravno kad uhvatite vremena.