Prekida linije na mestima uzajamnog preseka.

poziva se komandom brkAll

Attachments:

brkAll.lsp

[ ]

2 kB

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

Poziva se komandom ""PP"

(defun C:PP (/ SS vla SPT MPT EPT)

  (prompt "\nSelect Polylines")

  (if (setq SS (ssget '((0 . "*POLYLINE"))))

    (foreach poly (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))

      (setq vla (vlax-ename->vla-object poly)

            SPT (vlax-curve-getStartPoint vla)

            EPT (vlax-curve-getendpoint vla)

      )

      (entmake (list '(0 . "POINT") (cons 10 SPT)))

      (entmake (list '(0 . "POINT") (cons 10 EPT)))

    )

  )

  (princ)

)

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