Thanks: 0
Needs Pictures: 0
Picture(s) thanks: 0
Results 16 to 23 of 23
Thread: Autocad R14 users
-
3rd June 2017, 10:12 PM #16Woodworking mechanic
- Join Date
- Jan 2014
- Location
- Sydney Upper North Shore
- Posts
- 4,470
There's a discussion here on loading and using .lsp files. Not sure if it is of any help.
CAD Forum - How to load/install a LISP application in AutoCAD?
-
3rd June 2017 10:12 PM # ADSGoogle Adsense Advertisement
- Join Date
- Always
- Location
- Advertising world
- Posts
- Many
-
4th June 2017, 03:47 PM #17
All Lisps that I have written are just text files
I use "load" for my Lisp files in my toolbar menu. Not in the Acad.lsp
Your MCR text should just be inserted into your Acad.lsp file using cut & paste.
This will allow you to call up the MR (Move Rotate) or CR (Copy Rotate) at the Command line but it should be loaded into the dwg automatically with the Acad.lsp file
Here is an MCR.lsp .......see if you can insert the text into the Acad.lsp file..if successful command should be either MR or CR
;;; Mcr.Lsp
;;; Copyright (C) 1990 by Autodesk Australia Pty. Ltd.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;;-------------------------------------------------------------------------
;;; DESCRIPTION:
;;;
;;; Mcr.Lsp provides two new commands, MoveRot and CopyRot.
;;; MoveRot, MOVEs and ROTATEs selected entities whilst
;;; CopyRot, COPYies and ROTATEs selected entities.
;;;
;;; Written by Sam Crupi, Autodesk Australia Pty. Ltd.
;;; October 1987
;;; Modified by Jeff De Silva & Sam Crupi, Autodesk Australia Pty. Ltd.
;;; November 1990
;;;
;;; Version 1.0
;;; 4 December 1990
;;;
;;;-------------------------------------------------------------------------
;;;
;;; Error function
;;;
(defun mcr_err (s) ; If an error (such as CTRL-C) occurs
; while this command is active...
(if (/= s "Function cancelled")
(if (= s "quit / exit abort")
(princ)
(princ (strcat "\nError: " s))
)
)
(if mcr_oer ; If an old error routine exists
(setq *error* mcr_oer) ; then, reset it
)
(if mcr_oce ; Reset command echoing on error
(setvar "cmdecho" mcr_oce)
)
(princ)
)
;;;
;;; Command MoveRot
;;;
(defun c:MoveRot (/ sset mcr_oce mcr_oer)
(setq mcr_oce (getvar "cmdecho")) ; save cmdecho setting
(setvar "cmdecho" 0) ; turn cmdecho off
(if *error* ; Set our new error handler
(setq mcr_oer *error*
*error* mcr_err)
(setq *error* mcr_err)
)
(princ (strcat "\nMoveRot, Version " mcr_ver
", (C) 1990 by Autodesk Australia Pty. Ltd. "
)
)
(if (setq sset (ssget)) ; get selection set
(progn
(setvar "cmdecho" 1) ; turn cmdecho on to allow MOVE
; prompts to appear
(command "MOVE" sset "" pause pause) ; MOVE them
;; now ROTATE the selection set using the LASTPOINT as Base point
(command "ROTATE" sset "" (getvar "LASTPOINT") pause)
)
)
(setvar "cmdecho" mcr_oce) ; reset cmdecho to old setting
(if mcr_oer ; If an old error routine exists
(setq *error* mcr_oer) ; then set it back
)
(princ)
)
;;;
;;; Command CopyRot
;;;
(defun c:CopyRot (/ mcr_oce mcr_oer sset)
(setq mcr_oce (getvar "cmdecho")) ; save cmdecho setting
(setvar "cmdecho" 0) ; turn cmdecho off
(if *error* ; Set our new error handler
(setq mcr_oer *error*
*error* mcr_err)
(setq *error* mcr_err)
)
(princ (strcat "\nCopyRot, Version " mcr_ver
", (C) 1990 by Autodesk Australia Pty. Ltd. "
)
)
(if (setq sset (ssget)) ; get selection set
(progn
(command "COPY" sset "" "0,0" "0,0") ; COPY selection set over itself
(setvar "cmdecho" 1) ; turn cmdecho on to allow MOVE
; prompts to appear
(command "MOVE" "p" "" pause pause)
(redraw) ; Redraw screen
;; now ROTATE the selection set using the LASTPOINT as Base point
(command "ROTATE" "p" "" (getvar "LASTPOINT") pause)
)
)
(setvar "cmdecho" mcr_oce) ; reset cmdecho to old setting
(if mcr_oer ; If an old error routine exists
(setq *error* mcr_oer) ; then set it back
)
(princ)
)
;;;
;;; Define the c: functions.
;;;
(defun c:MR ()
(c:MoveRot)
)
(defun c:CR ()
(c:CopyRot)
)
(setq mcr_ver "1.0") ; set version number string
;;(princ (strcat "\nC:MCR (v" mcr_ver ") loaded."))
;;(princ "\nMR or MoveRot to Move and Rotate, CR or CopyRot to Copy and Rotate.")
(princ)
-
4th June 2017, 10:07 PM #18Product designer retired
- Join Date
- Nov 2006
- Location
- Heidelberg, Victoria
- Age
- 79
- Posts
- 2,251
Thanks skot, the version I have rolls Move rotate and Copy rotate into the one file.
The problem I'm having is this
I can view and copy the lisp file I have, then navigate to Autocad\support\acad.lisp then open that. I place the cursor at the bottom of the text and right click paste.
I get the following message, You don't have permission to open this file blah blah.
How do I get around this problem?
edit, just looked up my account and note that am logged in as administrator
Ken
-
4th June 2017, 11:02 PM #19Product designer retired
- Join Date
- Nov 2006
- Location
- Heidelberg, Victoria
- Age
- 79
- Posts
- 2,251
skot, I decided to give your idea of putting mcr into the support directory, under it's own name.
Double clicking mcr brought up the lisp text, so assumed all was well.
After firing up Autocad and clicking on tools\load applications then loading the file, disappointment.
From the command line, typing in mcr results in unknown command
Any clues?
Ken
-
4th June 2017, 11:03 PM #20
I don't have that problem, I can copy, paste, cut from any lsp file to any other.
Have you tried it with a New notepad file and saving it as a .lsp or even adding the mcr text into any other lsp files.
Sounds more like a Windows matter not Acad
-
4th June 2017, 11:09 PM #21
If you MCR.lsp file is in your support directory type.....
(load "MCR") >(Enter)
then
MR or CR if it loads ...I am assuming that MR & CR are your Command line shortcuts
-
4th June 2017, 11:13 PM #22
I am also assuming that your Support directory is in your Search Path under the Files option
-
5th June 2017, 12:41 AM #23Product designer retired
- Join Date
- Nov 2006
- Location
- Heidelberg, Victoria
- Age
- 79
- Posts
- 2,251
I'm a silly sausage
I'm a dill, the MCR lisp file works, I was typing in mcr and getting "unknown command".
Typing in MR or CR gets the results I was after.
I tried this before seeing skot's post #21
Special thanks to easymike29 and skot
Who's a happy boy?
Ken
Similar Threads
-
Autocad 2000i
By neksmerj in forum COMPUTERSReplies: 0Last Post: 20th April 2017, 11:08 PM -
Autocad R14
By neksmerj in forum COMPUTERSReplies: 2Last Post: 30th July 2016, 06:25 PM -
Anyone here got autocad?
By echnidna in forum CNC MachinesReplies: 12Last Post: 5th January 2009, 12:40 AM -
Help with Autocad file
By neksmerj in forum COMPUTERSReplies: 4Last Post: 18th October 2008, 04:52 PM -
Autocad LT 2007 and Autocad 2007
By Toolin Around in forum NOTHING AT ALL TO DO WITH WOODWORKReplies: 6Last Post: 31st January 2007, 11:42 PM