Code Red > AutoLISP (Vanilla / Visual)

Parenthesis matching ... DUH!!!

(1/4) > >>

Kerry:

--- Code: ---  ...........
(ACTION_TILE "nyloc" "(_calextra)")
(ACTION_TILE "mk_pick" "(progn(_getparams)(DONE_DIALOG 9))")
(ACTION_TILE "replaceblock" "(progn (SETQ bolt:replace T) (check_eval)")
(ACTION_TILE "eval_length" "(_evallen)")
(ACTION_TILE "accept" "(check_eval)")
(ACTION_TILE "cancel" "(DONE_DIALOG 0)")
.......
--- End code ---

No prizes ...  but this had me chasing my tail for a while ...    :oops:

Mark:

--- Code: ---(ACTION_TILE "replaceblock" "(progn (SETQ bolt:replace T) (check_eval)")
--- End code ---

my guess ....

Kerry:
yep, and damn difficult to find.  ... locks up the routine, and ACAD, dead .. with no error message ..   

ElpanovEvgeniy:

--- Quote from: Kerry Brown on June 29, 2006, 08:00:29 AM ---yep, and damn difficult to find.  ... locks up the routine, and ACAD, dead .. with no error message ..   

--- End quote ---
:-)

--- Code: ---(ACTION_TILE "nyloc" (VL-PRIN1-TO-STRING '(_calextra)))
(ACTION_TILE "mk_pick" (VL-PRIN1-TO-STRING '(progn(_getparams)(DONE_DIALOG 9))))
(ACTION_TILE "replaceblock" (VL-PRIN1-TO-STRING '(progn (SETQ bolt:replace T) (check_eval))))
(ACTION_TILE "eval_length" (VL-PRIN1-TO-STRING '(_evallen)))
(ACTION_TILE "accept" (VL-PRIN1-TO-STRING '(check_eval)))
(ACTION_TILE "cancel" (VL-PRIN1-TO-STRING '(DONE_DIALOG 0)))

--- End code ---

Mark:
I cheated! :-)

Navigation

[0] Message Index

[#] Next page