;;; quick scale with reference
(defun c:SOO
( / ss1 bp1
) ;;; your error start
(setq bp1
(getpoint "\nSpecify base point for scale by reference:"))
) ;and
(command "scale" ss1
"" bp1
"reference" bp1
) (SAA_CMDACTIVE nil)
) ;progn
) ;if
;;; your error end
)
;;; quick rotate with reference
(defun c:ROO
( / ss1 bp1
) ;;; your error start
(setq bp1
(getpoint "\nSpecify base point for rotating by reference:"))
) ;and
(command "rotate" ss1
"" bp1
"reference" bp1
) (SAA_CMDACTIVE nil)
) ;progn
) ;if
;;; your error end
)
;==========================================================
; Continue pausing until exited command mode
; nil = pause
; otherwise pass string to use
; credit unknown - possibly Roy Harkow
; usage example: (command "line" (SAA_CMDACTIVE nil))
;==========================================================
(defun SAA_CMDACTIVE
( passcmd
/ ) ) ;end while
)