gedu Posted June 28, 2017 Share Posted June 28, 2017 I have received a survey with this type of points. I would like to know how from civil 2017 I can include it in an already created surface. Thank you Point.dwg Quote Link to comment Share on other sites More sharing options...
BIGAL Posted June 29, 2017 Share Posted June 29, 2017 This is real quick and dirty lisp code but matches your dwg. Makes new Autocad "points" then use the option "Add Drawing objects, Points" to merge into an existing surface. It can do with a bit of refinement if its to be used often. (defun makepts ( / ss pt x) (setq ss (ssget (list(cons 0 "insert")(cons 8 "V-NODE")) )) ; a block on layer "V-node" (repeat (setq x (sslength ss)) (setq ent (assoc 10 (entget (ssname ss (setq x (- x 1)))))) ; insertion point in 3d (setq pt (list (cadr ent)(caddr ent)(cadddr ent))) (command "point" pt) ) ) (makepts) (princ) Quote Link to comment Share on other sites More sharing options...
gedu Posted June 29, 2017 Author Share Posted June 29, 2017 Thank you BIGAL!!! Quote Link to comment Share on other sites More sharing options...
BIGAL Posted June 30, 2017 Share Posted June 30, 2017 No worries very simple to do. 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.