Hajde ljudi, ovo ne bi trebalo biti toliko komplikovano, a stvarno mi treba....plz

(defun c:InsBL1() (command "insert" "Blok1" (getpoint) 1 "" 0))
(defun c:InsBL2() (command "insert" "Blok2" (getpoint) 1 "" 0))
(defun c:InsBL3() (command "insert" "Blok3" (getpoint) 1 "" 0))

-----------------------------------------------------------

Snimi ovo iznad crtica kao insbl.lsp, izmeni nazive komandi insbl1, 2, 3 kako ti odgovara, umesto Blok1, 2, 3 upisi nazive svojih blokova.
Zatim iz menija Tools -> Load application ucitaj insbl.lsp (ili ga ubaci u startup suit da bi se automatski ucitavao sa pokretanjem acad-a).

Zatim kucaj komande - u ovom slucaju insbl1, insbl2, insbl3

E ovo je odgovor, hvala puno!!!

nisam ništa shvatio šta je SašaBog napisao, ali ja to radim tako što stisnem slovo B i pritisnem Space.
Ukucaš mu ime i Enter
i kraj priče.
Pozz

B je skraćenica za komandu Block, definisanje, kreiranje bloka. Ljiljanm je tražio mehanizam za jednostavnije ubacivanje (insert) bloka.

(defun c:InsBL1() (command "insert" "Blok1" (getpoint) 1 "" 0))

Ovo je lisp rutina koja dodaje novu komandu acad-u, InsBL1, koja ubacuje (insert) blok pod nazivom Block1 (mora prethodno da bude definisan )
na zadatu tačku (getpoint), sa faktorom skaliranja 1 za sve tri ose i uglom rotacije 0.

Mada može i jednostavnije, ubaciš blok jednom sa insert, pa ga kopiraš gde ti treba (naravno ako nema atributa, ili su atributi svuda isti)

Pozdrav

Izvini, u pravu si.