Leaderboard

And simply with this, can be done? (defun c:PASTEPOINT ( / basept) ;; Define your reference points for each floor ;; Replace the coordinates with your actual base points (setq basept "Basement") (initget 9 "Basement Ground First") (while (not (listp basept)) (setq basept (getpoint (strcat "\nPaste to which floor? [Basement/Ground/First]<" basept ">: "))) (initget 9 "Basement Ground First") ) ;; Execute paste command at selected base point (command "_.PASTECLIP" "_none" basept) (prin1) )

Have a close look at my Water Supply program which should facilitate your work significantly. Trial version is outdated now. https://autolispprograms.wordpress.com/water-supply-2/

The above could alternatively be written: (defun LM:data->xdata ( x ) (cond ( (= 'str (type x)) (list (cons (if (handent x) 1005 1000) x))) ( (= 'real (type x)) (list (cons 1040 x))) ( (= 'int (type x)) (list (cons (if (< -32769 x 32768) 1070 1071) x))) ( (= 'list (type x)) (append '((1002 . "{")) (apply 'append (mapcar 'LM:data->xdata x)) '((1002 . "}")))) ( (list (cons 1000 (vl-prin1-to-string x)))) ) )