one line division

[Mocaffiene]

I've got a lisp that selects a line, gets the distance, and then calculates how many times it needs divided to put nodes in at intervals no more than 25'.

the only problem im having is i have to select the line twice. its probably an easy fix but i cant figure it out.

any help would be appreciated.

 

(defun C:div25(/)
(vl-load-com)
 (setq e (car (entsel "\nPick line..\n")))
   (vlax-property-available-p (setq e (vlax-ename->vla-object e)) 'length)
  (command "DIVIDE" (entsel "\nPick line again :(..\n") (+ 1 (fix (/ (vla-get-length e) 300))))
)

 

Edited April 23, 2021 by Mocaffiene

[tombu]

Try:

(defun C:div25(/ ss e obj len llen)
 (vl-load-com)
 (setq ss (ssget "+.:E:S" '((0 . "lwpolyline,line,arc")))
       e (ssname SS 0)
       obj (vlax-ename->vla-object e)
       llen (+ 1 (fix (/ (vla-get-length obj) 25)))
 )
 (command "DIVIDE" e llen)
)

 

[Mocaffiene]

awesome. thank you