Topic: Basic lisp help needed

[grush]

This is copied from my mnu file. I would like to create a simple lisp to do this instead of using my pull down menu. Anybody care to help? I know nothing about writing a lisp, sad to say. I looked for a lisp routine, but I could not find one that I liked.

   [--]
[Draw Walls]^C^C_CLAYER;WALL;DL;W;6;
   [--]
[Room Names]^C^C_CLAYER;ROOM-NAME;DT;J;M; \0;


grush

[David Hall]

What is DL?  That must be a routine or an alias to another command.

[David Hall]

(defun c:RmNm()
  (setvar "clayer" "ROOM-NAME")
  (COMMAND "DTEXT" "j" "M" PAUSE 0))


This assumes that the layer exists, and that your text style has a preset text height. (I made those assumptions based on you menu macro)

[grush]

DL stands for dline.

[David Hall]

What version of Acad do you have?  I dont have a Dline, but I do have a Mline.

(defun c:DrawWall ()
  (setvar "clayer" "Wall")
  (COMMAND "mline" "s" "6")
)

OR THIS MIGHT WORK
(defun c:DrawWall ()
  (setvar "clayer" "Wall")
  (COMMAND "dline" "w" "6")
)

[JohnK]

I dont have a dline command either. *shrug*

For what its worth, Here is my version.

Code: [Select]


(defun c:MyButtonReplacement ( / layer?)
  ;; Suport procedure
  ;; it will test to see if a layer exists
   (defun layer? (n) (and (tblsearch "LAYER" n)))
  ;; Test to see if layer exists in drawing
 (cond
   ((layer? "Wall")
   ;; if it does then set it to the current layer
    (setvar "clayer" "Wall")
   ;; and start the mline command
    (command "mline" "s" "6")
    )
   ;; otherwise Inform the use that the layer dosnet exist.
   (T
     "Layer dosnet exist"
     )
   )
 )

[<spell check police>]

*Beep*. Syntax error: "I dont have a ... ".

Alternates:

"I don't have a ..."
"I do not have a ..."
"DLINE? WT* is that?"

*Beep*. Syntax error: "layer dosnet exist".

Alternates:

"Layer does not exist."
"Layer doesn't exist."
"Layer wasn't found mang."

There's more (notice, not "theres") but we'll (notice, not "well") let the balance go. We'll learn yuz real good in time.

<slappedwithsoggydishrag.mpg>

Ban me, ban me!

[grush]

What version of Acad do you have?  I dont have a Dline, but I do have a Mline.

(defun c:DrawWall ()
  (setvar "clayer" "Wall")
  (COMMAND "mline" "s" "6")
)

OR THIS MIGHT WORK
(defun c:DrawWall ()
  (setvar "clayer" "Wall")
  (COMMAND "dline" "w" "6")
)

I'm running 2004. The dline is from R11 (I think). It was giving me some problems when trying to write a macro. I forgot the error I was getting.

[grush]

Dline lisp for anyone who wants it:


<Code removed>

grush,
I removed the code as it was incomplete. You may have exceeded the max post size.
If you wand to post a large routine, try uploading it as a file to the lilly pond
http://theswamp.org/lilly_pond
You can then post a link to your uploaded file.
-= CAB =-

[JohnK]

*sigh* I hate you.

Ive heard that Albert Einstein wasn't that good of a speller. Now, I'm not trying to imply anything, but...

[<spell check police>]

We're just here to help, wish us away and it will be so.

[CAB]

I dont have a dline command either. *shrug*

For what its worth, Here is my version.

Code: [Select]


(defun c:MyButtonReplacement ( / layer?)
  ;; Suport procedure
  ;; it will test to see if a layer exists
   (defun layer? (n) (and (tblsearch "LAYER" n)))
  ;; Test to see if layer exists in drawing
 (cond
   ((layer? "Wall")
   ;; if it does then set it to the current layer
    (setvar "clayer" "Wall")
   ;; and start the mline command
    (command "mline" "s" "6")
    )
   ;; otherwise Inform the use that the layer dosnet exist.
   (T
     "Layer dosnet exist"
     )
   )
 )

What happens if the layer is frozen?

[David Hall]

I was only trying to give him what he had in the menu.  It sould be further error checked for sure.

[JohnK]

What happens if the layer is frozen?

The it crashes.  ...Come on CAB follow along.

(What do you want? A full blown app?)

[<spell check police>]

Hey I heard that ... *poof*

[JohnK]

heard what?