I am seeking a way to combine the following routines. I need a specific sequence....angle change first then position change next.
Thanks
FIRST ROUTINE
;;;Attribute angle change
(defun c:aac ()
(setq atta(getint "\nEnter new attribute angle: "))
(command "attedit" "y" "*" "*" "*" "c" pause pause)
(while
(= 1 (logand (getvar "cmdactive") 1))
(command "a" atta "n")
);;; end while
);;; end lisp
SECOND ROUTINE
(defun c:atp (/ $n z zz zz1 cmd)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 1)
(setq $n 1)
(while
(> $n 0)
(progn
(setq z (nentsel "\nSelect an Attribute to be REPOSITIONED<or ENTER when done>: "))
(if (= z nil)(setq $n 0))
(if
(= z nil)(prompt "\nD O N E")
(progn
(setq zz (entget (car z)))
(setq zz1 (cdr (assoc 0 zz)))
(if
(/= zz1 "ATTRIB")
(prompt "\nSorry selected entity - not an ATTRIBUTE")
(progn
(if (= z nil)(setq $n 0))
(if
(= z nil)
(prompt "\nD O N E")
(command "attedit" "" "" "" "" z "p" pause "n")
);if
);progn
);if
);progn
);if
);progn
);while
(setvar "cmdecho" cmd)
(princ)
)
