Topic: Help for LISP beginner

[rus7755]

I'm  somewhere beneath a rookie LISP programmer.  I was just try to write some short routines to reduce some extra clicking and to begin to learn something about LISP. 

What's wrong with this little routine written to simply rotate a selection set around a base point by 90 degrees?

(defun c:90()
   (SETQ SLT(SSGET))
   (SETQ PNT (GETPOINT "\nBASE POINT "))
       (command "ROTATE" SELECTION "" PNT "90")
   (SETQ SLT NIL)
)

;; Silent load.
(princ)


Thanks for the help,
rus7755

[Keith™]

I'm  somewhere beneath a rookie LISP programmer.  I was just try to write some short routines to reduce some extra clicking and to begin to learn something about LISP. 

What's wrong with this little routine written to simply rotate a selection set around a base point by 90 degrees?

(defun c:90()
   (SETQ SLT(SSGET))
   (SETQ PNT (GETPOINT "\nBASE POINT "))
       (command "ROTATE" SELECTION "" PNT "90")
   (SETQ SLT NIL)
)

;; Silent load.
(princ)


Thanks for the help,
rus7755

You don't have the selection set correct in the rotate command. Also, it is good practice to use the language independent and internally defined commands where you are able.

Code: [Select]

(defun c:90()
   (SETQ SLT(SSGET))
   (SETQ PNT (GETPOINT "\nBASE POINT "))
       (command "._ROTATE" SLT "" PNT "90")
   (SETQ SLT NIL)
)

;; Silent load.
(princ)


[rus7755]

Thanks for the reply Keith.

I tried the command again with the variable name corrected to "SLT", but it still fails when I pick the base point for rotation.  Do I have something wrong in the syntax for the GETPOINT command?


Thanks for the help,
rus7755

[ronjonp]

Also don't forget to localize variables ( set them to nothing )

Code - Auto/Visual Lisp: [Select]

1. (defun c:90 (/ pnt slt);; <-- Localized variables after /
2.   (if (and (setq slt (ssget)) (setq pnt (getpoint "\nBASE POINT ")))
3.     (command "ROTATE" slt "" pnt "90")
4.   )
5.   (princ)
6. )

[BlackBox]

... Or simply:

Code - Auto/Visual Lisp: [Select]

1. (defun c:90 (/ ss)
2.   (if (setq ss (ssget "_:L"))
3.     (command "._rotate" ss "" pause "90")
4.   )
5.   (princ)
6. )
7.  

[dgorsman]

Its also a good idea to provide readable command names, like PICKANDROTATE90.  Calling a command "90" isn't descriptive of the function and isn't very unique (every command must be a unique name).  If you want shorter commands, use the PGP file to assign a shortcut e.g. R90,    *PICKANDROTATE90

[rus7755]

It still crashes when I pick the base point...

?


Thanks,
rus7755

[Keith™]

Strange indeed ... I don't have AutoCAD installed at work so I cannot test your code, but it certainly appears correct.

I would verify that the code in your file is exactly as provided. Also, you do realize that you will need to reload the lisp each time you editing it.

[ronjonp]

It still crashes when I pick the base point...

  ?


Thanks,
rus7755

The one I posted works for me.

[ChrisCarlson]

BlackBox's assumes the item to be rotated was the last created entity.

But what is the error or crash message?

[BlackBox]

BlackBox's assumes the [user only wanted to rotate entities on unlocked layers].

FTFY

[alanjt]

Close enough to post for a quick mod...

Code: [Select]

(defun c:RR (/ ss pt)
  ;; Rotate selected object(s) 180°
  ;; Alan J. Thompson
  (if (and (princ "\nSelect object(s) to rotate 180°: ")
           (setq ss (ssget "_:L"))
           (setq pt (getpoint "\nSpecify rotation base point: "))
      )
    (command "_.rotate" ss "" "_non" pt 180.)
  )
  (princ)
)

[rus7755]

alanjt,

I've been reloading my lisp routines through APPLOAD.  I'm assuming this brings in a fresh copy of the routine each time.  Is this true?

I ran the routine and it still behaved the same way  - bombing out after the base point is selected - started thinking it might not be loading the newest version of the routine.  Just not sure.

Also, can you explain this line:   ssget "_:L"

thanks,
rus7755

[alanjt]

What version are you running?

the "_:L" tells ssget to ignore objects on locked layers.

[rus7755]

We're running AutoCAD 2014.