(defun c:CTH(/ *error* adoc sset value i en)
(vl-load-com);Load Activex Support
(defun *error* (s)
(if adoc (vla-endundomark adoc))
(if (not (member s '("Function cancelled" "quit / exit abort")))
(princ (strcat "\n---->Error:" s))
)
(princ)
)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark adoc)
(if
(and
(setq sset (ssget '((0 . "TEXT,MTEXT"))))
(setq value (getreal "\nEnter New Height Value:"))
)
(progn
(if (<= value 0)
(*error* "Negative Values Not...
Monday, 18 February 2013
Posted by Unknown on 00:09 with No comments
(defun c:CTR(/ *error* )
(vl-load-com);Load Activex Support
(defun *error* (s)
(if adoc (vla-endundomark adoc))
(if (not (member s '("Function cancelled" "quit / exit abort")))
(princ (strcat "\n---->Error:" s))
)
(princ)
)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark adoc)
(if
(and
(setq sset (ssget '((0 . "TEXT,MTEXT"))))
(setq value (getreal "\nEnter New Rotation Value in Degrees:"))
)
(progn
(if (< value 0)
(*error* "Negative Values Not Allowed")
...
Subscribe to:
Posts (Atom)
