Lisp help

Discussion in 'AutoCAD' started by Geir Andersen, Nov 23, 2003.

  1. ( defun c:st200 ()
    (setq mpt1 (getpoint "\nStartpunkt? :"))
    (setq mpt2 (getpoint mpt1 "\nSluttpunkt :"))
    (setq vnk (angle mpt1 mpt2))
    (setq vnk2 (+ vnk (/ pi 2)))
    (setq degr1 (* 180 (/ vnk2 pi)))
    (command "mline" "s" 200 "j" "b" mpt1 mpt2 "" "hatch" "line" 1600 degr1
    (entlast) "")
    )

    This function draws a cable tray (ladder)
    I want to repeat this function like drawing a line... (draw many ladders
    continueing from last endpoint)
    Is it possible?
     
    Geir Andersen, Nov 23, 2003
    #1
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.