slope lisp needed

[NH3man!]

What I am looking for is a lisp that if I use the alias (hc) that then it will prompt me to pick a block on my drawing, then prompt for slope to be used (ie. -1/8" per foot, +1/8 per foot or what ever slope I need per foot) then prompt for number of times to be copied, then prompt for spacing between the copied blocks (in feet and inches) and at last prompt for the direction of the copied blocks.

This will save me so much time from moving all these blocks manually.

Thanks in advance!!!

NH3man!

[NH3man!]

Forgot to mention that this is for 3d drawings so the pitch or slope is in the Z axis.

Thanks again!

[lpseifert]

It would be easier to help you if you were to post the code you already have written.

[Lee Mac]

It would be easier to help you if you were to post the code you already have written.

Crafty...

[NH3man!]

Hmmmm I don't mean to sound silly but if I had written it I wouldn't need to ask for it. I am not at all familiar with writing lisp code. About all I can do is describe what I need it to do.

[Freerefill]

NH3, many of us are more than eager to dash into AutoCAD and cobble together a working script for anyone who comes a'calling.. heck, most people here are doing LISP for fun, and a challenge is always welcome.. but this is a HELP forum, not, as many people have indicated before, a LISP Bazaar. Give it a shot yourself, even if you can read through a few help files and give us a concept.. some idea you might have.. even a conceptual understanding of the raw mechanics of what might yield a plausible solution.. we would be more than happy to fill the gaps in your knowledge and help.

[Lee Mac]

I'll give you a starting point

(defun c:hc (/ cBlk)
  (if (and (setq cBlk (car (entsel "\nSelect Block: ")))
           (eq "INSERT" (cdr (assoc 0 (entget cBlk)))))
    (progn

[Lee Mac]

Tbh, this is a boring LISP to write - lots of user prompts, and tedious copying...

But, when you say this is in 3D, is the direction that the blocks are going to be copied in 3D space?

Or are you saying just to specify either x or y direction to copy?

Here is a starter for you to work on if you want... just incorporating defaults:

(defun c:hc (/ cBlk tmp1 tmp2 tmp3)
  
  (or hc$slp:def (setq hc$slp:def 1))
  (or hc$cop:def (setq hc$cop:def 1))
  (or hc$spc:def (setq hc$spc:def 1))
  
  (if (and (setq cBlk (car (entsel "\nSelect Block: ")))
           (eq "INSERT" (cdr (assoc 0 (entget cBlk)))))
    (progn
      (initget 6)
      (setq tmp1 (getreal (strcat "\nSpecify Slope <" (rtos hc$slp:def) ">  1:")))
      (or (not tmp1) (setq hc$slp:def tmp1))
      (initget 6)
      (setq tmp2 (getint (strcat "\nSpecify Number of Copies <" (itoa hc$cop:def) "> : ")))
      (or (not tmp2) (setq hc$cop:def tmp2))
      (initget 6)
      (setq tmp3 (getreal (strcat "\nSpecify Spacing <" (rtos hc$spc:def) "> : ")))
      (or (not tmp3) (setq hc$spc:def tmp3))

[NH3man!]

Tbh, this is a boring LISP to write - lots of user prompts, and tedious copying...

But, when you say this is in 3D, is the direction that the blocks are going to be copied in 3D space?

Or are you saying just to specify either x or y direction to copy?

Here is a starter for you to work on if you want... just incorporating defaults:

(defun c:hc (/ cBlk tmp1 tmp2 tmp3)
  
  (or hc$slp:def (setq hc$slp:def 1))
  (or hc$cop:def (setq hc$cop:def 1))
  (or hc$spc:def (setq hc$spc:def 1))
  
  (if (and (setq cBlk (car (entsel "\nSelect Block: ")))
           (eq "INSERT" (cdr (assoc 0 (entget cBlk)))))
    (progn
      (initget 6)
      (setq tmp1 (getreal (strcat "\nSpecify Slope <" (rtos hc$slp:def) ">  1:")))
      (or (not tmp1) (setq hc$slp:def tmp1))
      (initget 6)
      (setq tmp2 (getint (strcat "\nSpecify Number of Copies <" (itoa hc$cop:def) "> : ")))
      (or (not tmp2) (setq hc$cop:def tmp2))
      (initget 6)
      (setq tmp3 (getreal (strcat "\nSpecify Spacing <" (rtos hc$spc:def) "> : ")))
      (or (not tmp3) (setq hc$spc:def tmp3))

Thanks Lee,

Yes the blocks that I need to copy will be copied in the direction of the x,y plane and elevation changes will be in the z axis.

I am trying to play with your starter but for some reason autocad just keeps closing on me at the moment. I am going to setup my laptop and try that way.

Thanks again.

[Lee Mac]

Thanks Lee,

Yes the blocks that I need to copy will be copied in the direction of the x,y plane and elevation changes will be in the z axis.

I am trying to play with your starter but for some reason autocad just keeps closing on me at the moment. I am going to setup my laptop and try that way.

Thanks again.

My starter is by no means finished... and won't even load in its current state.. but I thought I'd give you something concrete to start on, I may build on it, if I have time