Hi am using this lisp code to renumber block attributes along polyline. This code gives only one option, to start from umber 1 every time. I need to haqve the option to give the start number. For example to start from number 125 etc
(defun c:pblinclw
( / ListClockwise
-p osm ss lw vl pt n pr k v bl att
)
(defun ListClockwise
-p
( lst
/ z vlst
) )
)
)
)
)
)
)
) 1e-6
)
)
z
(prompt "\n\nChecked vectors are colinear - unable to determine clockwise-p of list") nil
)
)
)
)
)
(prompt "\nPick 2D LWPOLYLINE that has blocks with attributes to increment at its vertices...") (setq ss
(ssget "_+.:E:S" '
((0 .
"LWPOLYLINE")))) "_X"
'(0 . "INSERT")
'(66 . 1)
'(-4 . "<,<,*")
'(-4 . ">,>,*")
)
)
0
)
)
)
)
Thanks