(defun c:PntImp2 (/ fl pl ao) (vl-load-com)
  (if (setq fl (getfiled "Coordinate file" (getvar 'dwgprefix) "" 0))
    (progn
      (setq fl (open fl "r")
            ao (vla-get-activedocument (vlax-get-acad-object)))
      (vla-startundomark ao)
      (while (setq pl (read-line fl))
        (vla-AddPoint (vla-get-modelspace ao) (vlax-3d-point
          (read (strcat "(" (vl-string-translate "," " " pl) ")")))))
      (vla-endundomark ao)
      (close fl)
    )
  ) (prin1)
)