Jump to content

Search the Community

Showing results for tags 'draw staircase'.

  • Search By Tags

    Type tags separated by commas.

  • Search By Author

Content Type


Forums

  • CADTutor
    • News, Announcements & FAQ
    • Feedback
  • AutoCAD
    • AutoCAD Beginners' Area
    • AutoCAD 2D Drafting, Object Properties & Interface
    • AutoCAD Drawing Management & Output
    • AutoCAD 3D Modelling & Rendering
    • AutoCAD Vertical Products
    • AutoCAD LT
    • CAD Management
    • AutoCAD Bugs, Error Messages & Quirks
    • AutoCAD General
    • AutoCAD Blogs
  • AutoCAD Customization
    • The CUI, Hatches, Linetypes, Scripts & Macros
    • AutoLISP, Visual LISP & DCL
    • .NET, ObjectARX & VBA
    • Application Beta Testing
    • Application Archive
  • Other Autodesk Products
    • Autodesk 3ds Max
    • Autodesk Revit
    • Autodesk Inventor
    • Autodesk Software General
  • Other CAD Products
    • BricsCAD
    • SketchUp
    • Rhino
    • SolidWorks
    • MicroStation
    • Design Software
    • Catch All
  • Resources
    • Tutorials & Tips'n'Tricks
    • AutoCAD Museum
    • Blocks, Images, Models & Materials
    • Useful Links
  • Community
    • Introduce Yourself
    • Showcase
    • Work In Progress
    • Jobs & Training
    • Chat
    • Competitions

Categories

  • Programs and Scripts
  • 2D AutoCAD Blocks
  • 3D AutoCAD Blocks
  • Images
    • Backgrounds

Find results in...

Find results that contain...


Date Created

  • Start

    End

Last Updated

  • Start

    End

Filter by number of...

Found 1 result

  1. harilalmn

    Draw Staircase

    harilalmn posted a topic in AutoLISP, Visual LISP & DCL

    Hi All, I was trying to write a function to draw the basic outline of staircase. One or two times it worked perfectly for me. But after that it just draws some crap. Could anyone look into the code below and suggest something? (defun c:Stp() (setq Point (getpoint "\nPick a Point:")) (setq Rise (getdist "\nEnter rise of each step:")) (setq Tread (getdist "\nEnter tread of each step:")) (setq Nos (getint "\nEnter number of steps:")) (setq LandingAt (Getint "Number of steps in first flight:")) (setq P1 (list (car Point) (cadr Point))) (setq LandingLength (getdist "\nEnter Length of Landing:")) (setq n 0) (While (< n Nos) (if (<= n LandingAt) (Progn ;If True (Setq P2 (polar Point (GetRad 90) Rise) P3 (Polar P2 0 Tread) ) ) (progn ;Else (Setq P2 (polar Point (GetRad 90) Rise) P3 (Polar P2 (GetRad 180) Tread) ) ) ) (command "LINE" Point P2 P3 "") (Setq Point P3) (setq n (1+ n)) );While Ends );STP Ends ;======================================:::::: ;Function to Convert Degrees to Radians:::::: ;======================================:::::: (defun GetRad(Ang) (/ (* 3.14 Ang) 180) )
×
×
  • Create New...