Dead Jobs and Exploded Points

Sometimes dead jobs come back to life. The CAD files aren’t always pretty and sometimes the source data doesn’t exist. One way to bring back exploded points is listed below.

In this case all of the points where exploded into two small lines representing an X. In order to get Civil 3D points from it I started with this Lisp from CAD Studio. This placed AutoCAD blocks at each of the intersection points. Plus the cost was the right price at free.

Next I utilized the Create Points from AutoCAD Points command in Civil 3D.

Make sure to set the point creation to automatically add a default description.

Then type in the point numbers to each point to replace the value in the text. Just kidding, do an internet search for lisp commands and come up with something like this:

(defun c:chgPtNum (/ doc ss obj newPtNum oldPtNum ent objmtext stroldval)
(vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark doc)
(while (setq ss (ssget ":S" '((0 . "AECC_COGO_POINT"))))
    (setq obj (vlax-ename->vla-object (ssname ss 0)))
    (setq ent (car (entsel "\nPick mText with Pt Num:")) objMText
        (vlax-ename->vla-object ent) strOldval (vlax-get-property objMText "TEXTSTRING"))
        (vlax-put obj 'number (atoi stroldval))
          (acet-ss-visible ss 1)
)
(vla-endundomark doc)
(princ)
)

Then go around and select points and mtext and it will revise the point number to match that of the mText. I’m sure this could be automated further, but since it is a one off task this will work for my purposes. There might even be a third party app that has done the programming, I wasn’t able to find it though.