Lisp's not working in 2010 that worked in 2009

[alanjt]

Did you not receive an error after running the code in reply #12?

 

If so, could you post your command-line history on here so that we can diagnose it

 

Guess I should word myself a little differently. Remember, I am American.:wink:

[Lee Mac]

If you copied the code in post #12 onto the command line and hit enter you should receive:

 

C:MXY

 

Then, if you type MXY and hit enter, it should invoke the LISP function.

[kkleinchester]

it spat out a mile long list, then gave me a ton of errors.

 

Invalid window specification.

Select objects: Specify opposite corner: Select

Invalid window specification.

Select objects: Specify opposite corner: objects:

Invalid window specification.

Select objects: Specify opposite corner:

Invalid window specification.

Select objects: Specify opposite corner: Specify

Invalid window specification.

Select objects: Specify opposite corner: base

Invalid window specification.

Select objects: Specify opposite corner: point

Invalid window specification.

Select objects: Specify opposite corner: or

Invalid window specification.

Select objects: Specify opposite corner: [Displacement]

Invalid window specification.

Select objects: Specify opposite corner: :

Invalid window specification.

Select objects: Specify opposite corner: Specify

Invalid window specification.

Select objects: Specify opposite corner: second

Invalid window specification.

Select objects: Specify opposite corner: point

Invalid window specification.

Select objects: Specify opposite corner: or

Invalid window specification.

Select objects: Specify opposite corner:

Invalid window specification.

Select objects: Specify opposite corner:

Invalid window specification.

Select objects: Specify opposite corner: first

Invalid window specification.

Select objects: Specify opposite corner: point

Invalid window specification.

Select objects: Specify opposite corner: as

Invalid window specification.

Select objects: Specify opposite corner: displacement>:

Invalid window specification.

Select objects: Specify opposite corner: *Cancel*

Invalid window specification.

Select objects: Specify opposite corner:

Invalid window specification.

Select objects: Specify opposite corner: Command:

Invalid window specification.

Select objects: Specify opposite corner: *Cancel*

Invalid window specification.

Select objects: Specify opposite corner:

Invalid window specification.

Select objects: Specify opposite corner: Command:

Invalid window specification.

Select objects: Specify opposite corner: *Cancel*

Invalid window specification.

Select objects: Specify opposite corner:

Invalid window specification.

Select objects: Specify opposite corner: Command:

Invalid window specification.

Select objects: Specify opposite corner: (defun c:mxy (/ ss ptso ptre ptd)

;Move in X,Y only

(_> (_> (setvar "cmdecho" 1)

((_> (_> (setq ss (ssget))

(((_> (_> (setq ptso (getpoint "\n Select source point"))

((((_> (_> (setq ptre (getpoint "\n Select destination reference"))

(((((_> (_> (setq ptd (list (car ptre) (cadr ptre) (caddr ptso)))

((((((_> (_> (command "_.move" ss "" "_non" ptso "_non" ptd)

(((((((_> (_> (setvar "cmdecho" 1)

((((((((_> (_> (princ)

(((((((((_> (_> )

(((((((((_> C:MXY

(((((((((_>

(((((((((_> Command:

(((((((((_> .MOVE

misplaced dot on input

Specify opposite corner: Select

Invalid window specification.

Select objects: Specify opposite corner: objects:

Invalid window specification.

Select objects: Specify opposite corner: 1 0 found

Select objects: found

*Invalid selection*

Expects a point or

Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/P

revious/Undo/AUto/SIngle/SUbobject/Object

Select objects:

Command: Select

Select objects: objects:

*Invalid selection*

Expects a point or

Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/P

revious/Undo/AUto/SIngle/SUbobject/Object

Select objects:

Command: Specify Unknown command "SPECIFY". Press F1 for help.

Command: base Enter base point : point

Invalid point.

Enter base point : or

Invalid point.

Enter base point : [Displacement]

Invalid point.

Enter base point : :

Invalid point.

Enter base point : Specify

Invalid point.

Enter base point : second

Invalid point.

Enter base point : point

Invalid point.

Enter base point : or

Invalid point.

Enter base point :

Command:

Command: first Unknown command "FIRST". Press F1 for help.

Command: point

Current point modes: PDMODE=34 PDSIZE=0'-3"

Specify a point: as

Invalid point.

Specify a point: displacement>:

Invalid point.

Specify a point:

Invalid point.

Specify a point:

Invalid point.

Specify a point: off>

Invalid point.

Specify a point: *Cancel*

Invalid point.

Specify a point:

Invalid point.

Specify a point: Command:

Invalid point.

Specify a point: Specify

Invalid point.

Specify a point: opposite

Invalid point.

Specify a point: corner:

Invalid point.

Specify a point: Command:

Invalid point.

Specify a point: (defun c:mxy (/ ss ptso ptre ptd) ;Move in X,Y only

(_> (_> (setvar "cmdecho" 1)

((_> (_> (setq ss (ssget))

(((_> (_> (setq ptso (getpoint "\n Select source point"))

((((_> (_> (setq ptre (getpoint "\n Select destination reference"))

(((((_> (_> (setq ptd (list (car ptre) (cadr ptre) (caddr ptso)))

((((((_> (_> (command "_.move" ss "" "_non" ptso "_non" ptd)

(((((((_> (_> (setvar "cmdecho" 1)

((((((((_> (_> (princ)

(((((((((_> (_> )

(((((((((_> C:MXY

(((((((((_>

(((((((((_> Command:

(((((((((_> .MOVE

misplaced dot on input

Specify a point: Select

Invalid point.

Specify a point: objects:

Invalid point.

Specify a point: 1

Command: found

Unknown command "FOUND". Press F1 for help.

Command:

POINT

Current point modes: PDMODE=34 PDSIZE=0'-3"

Specify a point: Select

Invalid point.

Specify a point: objects:

Invalid point.

Specify a point:

Invalid point.

Specify a point: Specify

Invalid point.

Specify a point: base

Invalid point.

Specify a point: point

Invalid point.

Specify a point: or

Invalid point.

Specify a point: [Displacement]

Invalid point.

Specify a point: :

Invalid point.

Specify a point: Specify

Invalid point.

Specify a point: second

Invalid point.

Specify a point: point

Invalid point.

Specify a point: or

Invalid point.

Specify a point:

Invalid point.

Specify a point:

Invalid point.

Specify a point: first

Invalid point.

Specify a point: point

Invalid point.

Specify a point: as

Invalid point.

Specify a point: displacement>:

Invalid point.

Specify a point: *Cancel*

Invalid point.

Specify a point:

Invalid point.

Specify a point: Command:

Invalid point.

Specify a point: *Cancel*

Invalid point.

Specify a point:

Invalid point.

Specify a point: Command:

Invalid point.

Specify a point: *Cancel*

Invalid point.

Specify a point:

Invalid point.

Specify a point: Command:

Invalid point.

Specify a point: Command:

Invalid point.

Specify a point: (defun c:mxy (/ ss ptso ptre ptd) ;Move in X,Y only

(_> (_> (setvar "cmdecho" 1)

((_> (_> (setq ss (ssget))

(((_> (_> (setq ptso (getpoint "\n Select source point"))

((((_> (_> (setq ptre (getpoint "\n Select destination reference"))

(((((_> (_> (setq ptd (list (car ptre) (cadr ptre) (caddr ptso)))

((((((_> (_> (command "_.move" ss "" "_non" ptso "_non" ptd)

(((((((_> (_> (setvar "cmdecho" 1)

((((((((_> (_> (princ)

(((((((((_> (_> )x

(((((((((_> nil

(((((((((_>

(((((((((_> Command:

(((((((((_> Command:

(((((((((_> .+OPTIONS

misplaced dot on input

Specify a point: Tab

Invalid point.

Specify a point: index

Invalid point.

Specify a point: :

Invalid point.

Specify a point: 1

Command:

POINT

Current point modes: PDMODE=34 PDSIZE=0'-3"

Specify a point: Command:

Invalid point.

Specify a point:

Invalid point.

Specify a point: .+OPTIONS

Invalid point.

Specify a point: Tab

Invalid point.

Specify a point: index

Invalid point.

Specify a point: :

Invalid point.

Specify a point: (defun c:mxy (/ ss ptso ptre ptd) ;Move in X,Y only

(_> (_> (setvar "cmdecho" 1)

((_> (_> (setq ss (ssget))

(((_> (_> (setq ptso (getpoint "\n Select source point"))

((((_> (_> (setq ptre (getpoint "\n Select destination reference"))

(((((_> (_> (setq ptd (list (car ptre) (cadr ptre) (caddr ptso)))

((((((_> (_> (command "_.move" ss "" "_non" ptso "_non" ptd)

(((((((_> (_> (setvar "cmdecho" 1)

((((((((_> (_> (princ)

(((((((((_> (_> )*Cancel*

(((((((((_>

(((((((((_> Tab index :

(((((((((_>

(((((((((_> Command: .+OPTIONS

misplaced dot on input

Specify a point: Tab

Invalid point.

Specify a point: index

Invalid point.

Specify a point: :

Invalid point.

Specify a point: (defun c:mxy (/ ss ptso ptre ptd) ;Move in X,Y only

(_> (_> (setvar "cmdecho" 1)

((_> (_> (setq ss (ssget))

(((_> (_> (setq ptso (getpoint "\n Select source point"))

((((_> (_> (setq ptre (getpoint "\n Select destination reference"))

(((((_> (_> (setq ptd (list (car ptre) (cadr ptre) (caddr ptso)))

((((((_> (_> (command "_.move" ss "" "_non" ptso "_non" ptd)

(((((((_> (_> (setvar "cmdecho" 1)

((((((((_> (_> (princ)

(((((((((_> (_> )run

(((((((((_> nil

(((((((((_>

(((((((((_> Command: .+OPTIONS

misplaced dot on input

Specify a point: Tab

Invalid point.

Specify a point: index

Invalid point.

Specify a point: :

Invalid point.

Specify a point: (defun c:mxy (/ ss ptso ptre ptd) ;Move in X,Y only

(_> (_> (setvar "cmdecho" 1)

((_> (_> (setq ss (ssget))

(((_> (_> (setq ptso (getpoint "\n Select source point"))

((((_> (_> (setq ptre (getpoint "\n Select destination reference"))

(((((_> (_> (setq ptd (list (car ptre) (cadr ptre) (caddr ptso)))

((((((_> (_> (command "_.move" ss "" "_non" ptso "_non" ptd)

(((((((_> (_> (setvar "cmdecho" 1)

((((((((_> (_> (princ)

(((((((((_> (_> )

(((((((((_> C:MXY

(((((((((_>

(((((((((_> Tab index : 1

(((((((((_>

(((((((((_> *Cancel*

Function cancelled

Specify a point:

Command:

Command:

POINT

Current point modes: PDMODE=34 PDSIZE=0'-3"

Specify a point:

Command: Specify opposite corner:

Command: mx

Unknown command "MX". Press F1 for help.

Command:

Command: *Cancel*

Command: *Cancel*

Command: _close

[kkleinchester]

read the previous reply, I will give that a try. thanks all

[kkleinchester]

that works for to make you not move in a z axis. What I really would like is to make it where you can hit mx- and only move in the x axis, my...y axis and what not.

 

Thanks for the help, I am very new to altering lisps.

[Lee Mac]

So am I right in saying that the LISP works for you now?

[kkleinchester]

yes, I was missing that mxy at the end!

[alanjt]

Well, the only thing I changed was:

(command ".move" ss "" "_non" ptso "_non" ptd)

to

(command "[color=Red]_[/color].move" ss "" "_non" ptso "_non" ptd)

[Lee Mac]

So I assume Ms kleinchester is running a foreign version of ACAD...

[alanjt]

that works for to make you not move in a z axis. What I really would like is to make it where you can hit mx- and only move in the x axis, my...y axis and what not.

 

Thanks for the help, I am very new to altering lisps.

 

Give this thread a look, I posted a couple routines for moving along x/y.

http://www.cadtutor.net/forum/showthread.php?t=41545

[alanjt]

So I assume Ms kleinchester is running a foreign version of ACAD...

 

LoL Lee, is going to become attached to your name, as much as you use it.

[Lee Mac]

..... ..

[alanjt]

..... ..

 

 

LoL.........

[Lee Mac]

Hahaha... your photoshop skills are off the chart... impressive.

[alanjt]

Hahaha... your photoshop skills are off the chart... impressive.

LoL

I totally butchered the bottom of it. Magic Lasso isn't very smart and I'm just lazy.

[kkleinchester]

Thanks for the help and the smart ass comments! I have a lot to learn!

[alanjt]

Thanks for the help and the smart ass comments! I have a lot to learn!

We're more about being jerks than helping. :wink:

Did you look at the link I posted?

[kkleinchester]

yeah, its good stuff, I am watching the video now!

[kkleinchester]

It makes the learning fun!

[kkleinchester]

I took what I orginally posted to you after I loaded what you gave em, inserted it to the cmdline and shazam I am back in action! Did you self teach yourself this code or did you take some sort of class?