I want to keep some numbers and increase number only to blocks without number.
The change Iwant to do is to choose pick the first emply point and then give the start number for example 20 and add 21,22,23.....etc only to blocks without number on the selected polyline. Is any way to do this?
;; get closed polygon's area
(defun ss-pts2area (l)
(/ (apply (function +)
(mapcar (function (lambda (x y)
(- (* (car x) (cadr y)) (* (car y) (cadr x)))))
(cons (last l) l)
l))
2.)
)
;_force pointset CCW
(setq plent (entsel "\nPick pline"))
(setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent)))))
(if (> (ss-pts2area co-ord) 0)
(setq co-ord (reverse co-ord))
)