snap to pitch...

[nlnaia]

Anybody knows where I can get this routine. Setting my snap to a pitch not angle. Used to be an S8 thing. Nevine

[Anonymous]

Sorry for being so late....I had to dig this up
from a zip disk....I forgot about it.  I am adding this in a slightly more
enhanced version to DormerX with some other roof tools.

;Roof Pitch ©4/00 Stardsign cad solutions
(defun
c:RoofPitch ( / rise run)
     (if (not *Rise)(setq *Rise
12))
     (if (not *Run)(setq *Run
12))
     (setq unit(getvar
"lunits"))
     ;(initget 1)
    
(if (not(setq rise (getdist (strcat "\nInput Rise <" (rtos *Rise 4 4) ">:
"))))
  (setq rise *Rise)
  ) 
    
(if (not (setq run (getdist (strcat "\nInput Run <" (rtos *Run 4 4) ">:
"))))
  (setq Run *Run)
  )
     (if (and
rise run)
  (if (or (= rise 0)(= run
0))
      (setvar "snapang"
0.0)
      (setvar "snapang" (atan (/ rise
run)))
      )
 
)
     (setq *Rise rise
    *Run
run)
     (princ)
    
)

--

-------------------------------------------------------------------------
Rob
Starz
Stardsign cad solutions
iC - AEC Information Center

href="http://www.stardsign.com/aecic.html">www.stardsign.com/aecic.html
LayerX
beta testers needed...
href="http://www.stardsign.com/beta_programs.htm">www.stardsign.com/beta_programs.htm

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"nlnaia" <nlnaia@aol.com> wrote
in message
href="news:f08477e.-1@WebX.maYIadrTaRb">news:f08477e.-1@WebX.maYIadrTaRb...

Anybody
knows where I can get this routine. Setting my snap to a pitch not angle. Used
to be an S8 thing. Nevine

[nlnaia]

Thanks Rob. Now I just have to learn how to turn this into a command that works. My limited experience with lisp has always led to unknow command. I might just have to wait for you to add it and get dormerX. Nevine

[Anonymous]

take the attached file and download to your support
directory.

go to appload and load it.  then type
ROOFPITCH.

I will have it in DormerX soon but I have to finish
up on LayerX and DimX first.

--

-------------------------------------------------------------------------
Rob
Starz
Stardsign cad solutions
iC - AEC Information Center

href="http://www.stardsign.com/aecic.html">www.stardsign.com/aecic.html
LayerX
beta testers needed...
href="http://www.stardsign.com/beta_programs.htm">www.stardsign.com/beta_programs.htm

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"nlnaia" <nlnaia@aol.com> wrote
in message
href="news:f08477e.1@WebX.maYIadrTaRb">news:f08477e.1@WebX.maYIadrTaRb...

Thanks
Rob. Now I just have to learn how to turn this into a command that works. My
limited experience with lisp has always led to unknow command. I might just
have to wait for you to add it and get dormerX.
Nevine

[nlnaia]

Rob, pardon me if i sound really thick, but what name should the file have? Thanks for your help. If I can make this work I will be so proud of myself. Nevine

[Anonymous]

did you grab the file attached to previous
post.  regardless of that.  The name of the file is irrelevant...it is
the extension name.  for Lisp and VLISP file yuo need the extension of
LSP.

If you want create a NOTEPAD TEXT file (default TXT
extension) cut and paste the code in my post then close and save.  Now
rename the file from TXT extension to LSP.

Save this in the SUPPORT directory of ADT. 
Open APPLOAD in ADT and open the file from there.

If you want to be daring type (load
"YourFileName")  ;no LSP extension here.

hope this helps.

--

-------------------------------------------------------------------------
Rob
Starz
Stardsign cad solutions
iC - AEC Information Center

href="http://www.stardsign.com/aecic.html">www.stardsign.com/aecic.html
LayerX
beta testers needed...
href="http://www.stardsign.com/beta_programs.htm">www.stardsign.com/beta_programs.htm

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"nlnaia" <nlnaia@aol.com> wrote
in message
href="news:f08477e.3@WebX.maYIadrTaRb">news:f08477e.3@WebX.maYIadrTaRb...

Rob,
pardon me if i sound really thick, but what name should the file have? Thanks
for your help. If I can make this work I will be so proud of myself.
Nevine

[nlnaia]

Rob, Thank you , thank you, it worked. I can't beleive how simple. Thanks again. Nevine

[Anonymous]

Glad it worked.  Now to make your life easier
just create a file that you can put all your customization in.  Typically
you would put this in Acad.lsp or Acad2000doc.lsp...but with Startup suite you
can use any file.  Cut and paste code that you collect and place in this
file and it will load up.

--

-------------------------------------------------------------------------
Rob
Starz
Stardsign cad solutions
iC - AEC Information Center

href="http://www.stardsign.com/aecic.html">www.stardsign.com/aecic.html
LayerX
beta testers needed...
href="http://www.stardsign.com/beta_programs.htm">www.stardsign.com/beta_programs.htm