; Link the Text Content of the selected objects (only for objects that have 'TextString Property)
; TxtLinkOn - to enable the reactor
; TxtLinkOff - to disable the reactor
; TxtUnLink - to unlink selection (exclude)
; TxtLink - to link selection (include)
(defun C:TxtLinkOn
( / L
) ( (not TxtLink:CB
) (princ "\nError: \"TxtLink:CB\" not defined.") ) ( (setq L
(_Sel
"Select texts to Link: " '
((0 .
"*TEXT")) nil)) ); L
); cond
); defun C:TxtLinkOn
(defun C:TxtUnLink
( / rtr sL L
) ; (_Sel "Select texts to UnLink: " '((0 . "*TEXT")) (lambda (o) (vlr-owner-remove rtr o))) ; NOT WORKING - WHY?
(setq sL
(_Sel
"Select texts to UnLink: " '
((0 .
"*TEXT")) nil)) ; The above row is not working, redefine the reactor then! ); progn
); and
); defun C:TxtUnLink
(defun C:TxtLink
( / rtr s
) ); and
); defun C:TxtLink
; Callback Function:
(defun TxtLink:CB
( own rtr arg
/ txt
) ); and
); foreach
); and
); defun TxtLink:CB
; SubFunctions:
(defun _Sel
( msg ssft mapfoo
/ SS i o L
) (cond ; prompt for a filtered SS and map a function (
); and
); repeat
)
); cond
); defun _Sel
(defun _RemoveReactor
( RtrType RtrName msg
) ); defun _RemoveReactor
(defun _Reactorp
( RtrType RtrName
) ; Should return the reactor object if present ); defun _Reactorp