[ ---- ===={ Subtract Text Digits from last}=====----------------------]
[Author: Ganesh Kumar, Copyright © 2012 -www.autolispgs.blogspot.in ]
[-------------------------------------------------------------------------]
(defun c:ltd(/ *error* adoc digits en textval slen textupdate Loop)
(vl-load-com)
(defun *error* (msg)
(if adoc (vla-endundomark adoc))
(if (not (member msg '("Function cancelled" "quit / exit abort")))
(princ (strcat "\n--->Error :"msg))
)
(princ)
)
(setq adoc(vla-get-activedocument...
Showing posts with label Less Text Digits. Show all posts
Showing posts with label Less Text Digits. Show all posts
Sunday, 15 December 2013
Subscribe to:
Posts (Atom)
