Mocaffiene Posted April 23, 2021 Share Posted April 23, 2021 (edited) 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 Quote Link to comment Share on other sites More sharing options...
tombu Posted April 23, 2021 Share Posted April 23, 2021 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) ) 1 Quote Link to comment Share on other sites More sharing options...
Mocaffiene Posted April 23, 2021 Author Share Posted April 23, 2021 awesome. thank you Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.