Rooster Posted April 14, 2016 Author Share Posted April 14, 2016 yep - it's always very informative picking through other people's lisps. always so much more to learn though... Quote Link to comment Share on other sites More sharing options...
OMEGA-ThundeR Posted January 29, 2018 Share Posted January 29, 2018 This lisp helped a colleague of mine, but i noticed it only seem to work on 3D polylines (so i had to convert Lines to 3D polylines (easy to do in civil 3D) It also didn't seem to work on blocks. Any idea on how to include lines, polylines and blocks for adding z-value labels/text? Quote Link to comment Share on other sites More sharing options...
BIGAL Posted January 30, 2018 Share Posted January 30, 2018 You need to go back to 1st principles, is it a Line, arc, block, circle etc and have a defun for each type. 2d & 3d plines are ok as 1 defun. The ssget in the code only looks at plines so need to remove that bit. example for line (princ "pick a line or 3d line") (setq ent (entget (car (entsel)))) (setq Xstart (nth 1 (assoc 10 ent))) (setq Ystart (nth 2 (assoc 10 ent))) (setq Zstart (nth 3 (assoc 10 ent))) (setq Xend (nth 1 (assoc 11 ent))) (setq Yend (nth 2 (assoc 11 ent))) (setq Zend (nth 3 (assoc 11 ent))) 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.