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.
Code:(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)
Bookmarks