;; | ----------------------------------------------------------------------------
;; | XD_AddXdata
;; | ----------------------------------------------------------------------------
;; | Function : Adds a pre-processed Xdata string into an object and does an
;; |            (entmod)
;; | Arguments: 'ename' - Object Name
;; |            'xd'    - Xdata to add
;; | Updated  : 10 May 1999
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun XD_AddXdata( ename xd / entl )

(if xd
	(setq entl (append (entget ename) (list xd)))
)
(entmod entl)
)