insertuje blok koji vi napravite na sredini svih linija koje označite.

iskopirajte kod dole u notepadu i sačuvajte dokument sa ekstenzijom .lsp

blok koji napravite nazovite "OVDE-NAZIV-BLOKA" ili izmenite taj tekst u lisp fajlu. Poziva se lispić komandom "Insert@MidLine"

(defun c:Insert@MidLine (/ js n ent dxf_ent)

(princ "\nSelect lines to insert block at middle")

(setq js (ssget '((0 . "LINE"))))

(cond

(js

(repeat (setq n (sslength js))

(setq

ent (ssname js (setq n (1- n)))

dxf_ent (entget ent)

)

(entmake

(list

'(0 . "INSERT")

'(100 . "AcDbEntity")

(assoc 67 dxf_ent)

(assoc 410 dxf_ent)

(assoc 8 dxf_ent)

(if (assoc 62 dxf_ent) (assoc 62 dxf_ent) '(62 . 256))

(if (assoc 6 dxf_ent) (assoc 6 dxf_ent) '(6 . "ByLayer"))

(if (assoc 48 dxf_ent) (assoc 48 dxf_ent) '(48 . 0.0))

(if (assoc 370 dxf_ent) (assoc 370 dxf_ent) '(370 . 0))

'(100 . "AcDbBlockReference")

'(2 . "OVDE-NAZIV-BLOKA")

(cons 10 (mapcar '* (mapcar '+ (cdr (assoc 10 dxf_ent)) (cdr (assoc 11 dxf_ent))) '(0.5 0.5 0.5)))

(if (assoc 39 dxf_ent) (assoc 39 dxf_ent) '(39 . 0.0))

'(41 . 1.0)

'(42 . 1.0)

'(43 . 1.0)

(cons 50 (angle (cdr (assoc 10 dxf_ent)) (cdr (assoc 11 dxf_ent))))

'(70 . 0)

'(71 . 0)

'(44 . 0.0)

'(45 . 0.0)

(assoc 210 dxf_ent)

)

)

)

)

(T (princ "\nNothing selected."))

)

(prin1)

)

Selektovanje bloka koji sadrži određen atribut.

http://svebor.com/lisp/SSETVAL__v100__Select_Block_from_Attribute_Value.lsp

pokreće se komandom SSETVAL

Generisanje tačke ili kruga na krajevima linija

cmark-krug na krajevima linija.lsp

cmark-tacka na krajevima linija.lsp

Oba lispa su ista samo malkice modifikovana da bi u jednom generisao krug a u drugom slučaju tačke.

oba se pokreću komandom cmark samo onaj koji vam je potreban treba biti poslednji učitan.