[ ---- ===={ 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...
Sunday, 15 December 2013
Saturday, 14 December 2013
Posted by Unknown on 07:04 with No comments
(defun c:mmv (/ *error* sset i en textvalue maxval minval valuelist)
(vl-load-com)
(defun *error* (msg)
(if (not
(member msg '("Function cancelled" "quit / exit abort"))
)
(princ (strcat "\n---->error:" msg))
)
(princ)
)
(setq valuelist nil)
(if (setq sset (ssget '((0 . "TEXT,MTEXT") (1 . "##.###,#*"))))
(progn
(if (= (sslength sset) 1)
(alert "\n Select at least Two Text!")
(progn
(repeat (setq i (sslength sset))
(setq en (vlax-ename->vla-object
(ssname sset (setq i (1- i)))
...
Subscribe to:
Posts (Atom)
