TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: POCKETS on August 05, 2008, 04:51:50 PM

Title: How do you get this program to work?
Post by: POCKETS on August 05, 2008, 04:51:50 PM

How do you get the attached program to work?  I am use to seeing a "defun C:" when I load a lisp program and this one doesn't have it. Why?  I am using R2002.
Many thanks in advance.
Pockets

Code: [Select]

;;; CADALYST 07/08  www.cadalyst.com/code
;;; Tip 2301: QS.lsp    Quadrant Snap (c) 2008 John Loudermilk

;QS.LSP
;Snap to 45 degree angles on circle.

;=================================================================================
(defun QS (/ NO_ENTITY SS ELIST PT0 CP R A PT)
<code removed: see link to get code>

;Return existing error handler
(setq *error* ExistError)

(princ))
;End QS.LSP

Title: Re: How do you get this program to work?
Post by: CAB on August 05, 2008, 05:04:06 PM

Type (QS) at the command line OR

Change this line

Code: [Select]

(defun QS (/ NO_ENTITY SS ELIST PT0 CP R A PT)to this:

Code: [Select]

(defun c:QS (/ NO_ENTITY SS ELIST PT0 CP R A PT)and type QS at the command line.

Title: Re: How do you get this program to work?
Post by: POCKETS on August 05, 2008, 05:20:21 PM

Thanks CAB. That worked.