Author Topic: Define Function  (Read 2082 times)

0 Members and 1 Guest are viewing this topic.

POCKETS

  • Guest
Define Function
« on: March 10, 2008, 12:24:21 PM »
Enclosed is a lisp program and I would like to know how I call it up at the command line after I do an application load.  There isn't a defun c: of which I am use to using.
Thank you.

POCKETS

  • Guest
Define Function
« Reply #1 on: March 10, 2008, 12:27:17 PM »
I forget to enclose the lisp program.
« Last Edit: March 10, 2008, 12:34:42 PM by CAB »

Keith™

  • Villiage Idiot
  • Seagull
  • Posts: 16899
  • Superior Stupidity at its best
Re: Define Function
« Reply #2 on: March 10, 2008, 12:34:55 PM »
It would appear that it would be ran using

Code: [Select]
(STAIRSC-IT)

but I have not tested
Proud provider of opinion and arrogance since November 22, 2003 at 09:35:31 am
CadJockey Militia Field Marshal

Find me on https://parler.com @kblackie

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: Define Function
« Reply #3 on: March 10, 2008, 12:40:21 PM »
Welcome to TheSwamp, Pockets.

I removed the lisp because it has a Copyright & expressly forbids it's posting without permission.

As for running it, It is part of a larger routine & can not be run without supporting lisp routines.

I believe that Gary has posted this routine here or maybe some others have posted a Stair routine.

I'll post the link if I find it before someone else post it.

Code: [Select]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;     Copyright © 2001 by Gary Davidson Fowler Architect
;;;     Dallas, Texas
;;;     Phone: 972.404.0182 email: gdfowler@hotmail.com
;;;
;;;     Permission to use, copy, modify, and distribute this software
;;;     for any purpose and without fee is NOT GRANTED without the
;;;     written permission of Gary Davidson Fowler Architect.
;;;
;;;     Gary Davidson Fowler PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. 
;;;     Gary Davidson Fowler SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;;     MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. Gary Davidson Fowler
;;;     DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;;     UNINTERRUPTED OR ERROR FREE.
;;;
;;;     Use, duplication, or disclosure by the U.S. Government is subject to
;;;     restrictions set forth in FAR 52.227-19 (Commercial Computer
;;;     Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;;     (Rights in Technical Data and Computer Software), as applicable.
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
I've reached the age where the happy hour is a nap. (°¿°)
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: Define Function
« Reply #4 on: March 10, 2008, 12:46:11 PM »
I've reached the age where the happy hour is a nap. (°¿°)
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

POCKETS

  • Guest
Re: Define Function
« Reply #5 on: March 10, 2008, 01:39:20 PM »
Thanks to everyone for your help.  CAB thanks for the link to Tim Spangler's lisp routine.  I think that might be just what I'm looking for.
Pockets

GDF

  • Water Moccasin
  • Posts: 2083
Re: Define Function
« Reply #6 on: March 10, 2008, 02:48:19 PM »
Welcome to the swamp Pockets.

This is the best place I have found for learning and expanding your autocad knowledge. So dig in and use the search feature.

Yes this is part of a larger routine that cannot be run as a standalone.
It requires too many subroutines and dcl files to combine into one separate standalone.
I would highly recommend Timothy G. Spangler's stair routine. Also check out Tim's web site for many great routines.

The routine you posted has been modified as well as my arch program which members of the swamp have received in the past.
You and others are hereby granted permission to use and modify any routines that you may have from me regardless of the older
copyright notice.

Gary
Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2020x64 Windows 10x64

POCKETS

  • Guest
Re: Define Function
« Reply #7 on: March 10, 2008, 03:08:55 PM »
Many thanks Gary

TimSpangler

  • Water Moccasin
  • Posts: 2010
  • CAD Naked!!
Re: Define Function
« Reply #8 on: March 10, 2008, 04:01:44 PM »
Hope everything works as expected, let me know if it does not.

Enjoy!!

P.S.  Welcome to theswamp
ACA 2015 - Windows 7 Pro
All Comments and Content by TimSpangler, Copyright © 2016