(defun c:bc( / ns e p ) ;;; Marko Ribar Program 2015 from topic http://www.theswamp.org/index.php?topic=50585.0

(setq e (cadar (reverse (setq ns (nentsel "\nPick nested reference to copy from parent reference")))))
(setq p (cadr ns))
(command "_.-REFEDIT" "_non" p "_O" "_N" "_non" p "" "_Y")
(command "_.COPY" "_non" p "" "0,0" "0,0" "")
;(while (< 0 (getvar 'cmdactive)) (command "\\")) (command "_.REFSET" "_R" (entlast) "")
(command "_.REFCLOSE" "d") ; discard all changes, PICK THE ITEM BUT DO NOT SAVE, POSSIBLE FILE PROP REVISIONS ETC., ITS SAVER
(command "_.move" p "" pause) ; HIGHLIGHT IT AND BEGIN A MOVE ACTION
(princ)
)
(princ "\nType BC to Invoke this function")

Advertisements