Help with this small LSP routine

Discussion in 'AutoCAD' started by Servo, Aug 10, 2004.

  1. Servo

    Servo Guest

    This is a small routine I wrote for automatically creating new drawings.
    The DCL file is perfect, it comes up no problem. But when I hit the
    "Create Sheet" button, the dialog box disappears and nothing happens.
    Can anyone help me with this one?
    TIA

    ;;;;CVG Create New Residential Sheet - 24x36
    (defun c:cvgres2436 (/ SCRNAME)
    ;;START DIALOG BOX
    (setq DCL_cvgres2436 (load_dialog "Cvgres2436.DCL"))
    (if (not (new_dialog "cvgres2436" DCL_cvgres2436)) (exit))
    (mode_tile "res24accept" 1)
    (mode_tile "exit" 2)
    ;;;;TILE ACTIONS
    (action_tile "res24cov" "(RES24COVER)")
    ;
    (action_tile "res24accept" "(res24accept)")
    ;;;SHEET ROUTINES
    (defun res24cover ()
    (setq scrname "2436cover.SCR")
    (mode_tile "res24accept" 0)
    )
    ;;;;CREATE SHEET ROUTINE
    (defun res24accept ()
    ;(done_dialog)
    (filedia 0)
    (COMMAND "script" scrname)
    )
    ;;;
    (start_dialog)
    (unload_dialog dcl_cvgres2436)
    )
    ;END OF FILE

    --
    Servo
    "Kids love Robocop!"
    tservo100 at
    ameritech dot net
    Slow, fiery death to all spammers!!!
     
    Servo, Aug 10, 2004
    #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. how to get this lsp to work?

  2. Old CHTEXT.lsp Routine F1

  3. Help with this routine

  4. Help with this explode routine

  5. help with this lisp routine

  6. running lsp's inside an lsp

  7. Is it possible to arrange x.lsp from y.lsp

  8. need help with a lsp routine

Loading...