0 Members and 1 Guest are viewing this topic.
(defun MST-entsel-obj (msg / ent obj) (vl-catch-all-apply (function (lambda () (and (equal (type msg) 'STR) (setq ent (entsel msg)) (setq obj (vlax-ename->vla-object (car ent))) ); and ) ) ) obj ); defun(defun MST-release (obj /) (if (= (type obj) 'VLA-OBJECT) (if (not (vlax-object-released-p obj)) (vlax-release-object obj) ) ) )(defun c:remove-suffix (/ dim-al) (setq dim-al (MST-entsel-obj "\nSelect A Dimension Line...")) (if dim-al (progn (vlax-put-property dim-al 'TextSuffix "") (MST-release dim-al) ) ) (princ) )
is it just me or am i the only one posting anything here. thanks guysdan
mark works great i love you man dan