Lisp help

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

  1. Geir Andersen

    Geir Andersen Guest

    ( 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.
Similar Threads

  1. lisp from another lisp

  2. Lisp to Lisp input

  3. calling a lisp from another lisp

  4. Call Lisp From Within A Lisp

  5. Run external LISP within a LISP

  6. need lisp routine that replaces existing text with new value generated by lisp

  7. Run a another lisp program inside a lisp program

  8. HELP HELP HELP

Loading...