Hi rad,
I'm not yet understanding,what are you looking for.
but here my code to check as you want
Code:
(defun c:zp (/ ss sse etyp sp mag)
(if
(setq ss (car (entsel "\nSelect an object point")))
(progn
(setq sse (entget ss))
(setq etyp (cdr (assoc 0 sse)))
(if
(= etyp "POINT")
(progn
(setq sp (cdr (assoc 10 sse)))
(setq mag 100)
(command "_zoom" "c" sp mag "")
) ; progn
(alert "\nThis object is not Point")
) ; if
) ; progn
(alert "\nInvalid selected object,please try again")
) ; if
(princ)
)
Originally Posted by
rad.77676
In civil3d the user has the ability to select a given point and zoom to it, is there a way to call a transparent command Ex: 'pn "Point Number" from the zoom center command?
Code:
(defun c:zp ()
(setq pt1 (command "'pn"))
(command "zoom" "c" pt1)
(princ)
)