Help with DCL lisp

[mhy3sx.]

I update to this but give me this error

Error: An error has occurred inside the *error* function too many arguments

(DEFUN
   PI:GETFILEFORMAT (/ )

      (defun *error* ( / *error* dch dcl des)
        (if (and (= 'int (type dch)) (< 0 dch))
          (unload_dialog dch)
        )
        (if (= 'file (type des))
          (close des)
        )
        (if (and (= 'str (type dcl)) (findfile dcl))
          (vl-file-delete dcl)
        )

        (princ)
      ) ; end defun
     
      (cond
        ( (not
            (setq dcl (vl-filename-mktemp nil nil ".dcl")
                 des (open dcl "w")
            ) ; end setq
          ) ; end not
          (princ "\nUnable to open DCL for writing.")
        )
( (progn
            (foreach str '(
                            "ed : edit_box { alignment = left; width = 20; edit_width = 10; fixed_width = true;}"
                            ""
                            "pointsin : dialog { spacer; key = \"dcl\";"
                            " : boxed_column { label = \"Text Style\"; height = 1.0;}"
                            "      : radio_button { height = 1.0; width = 20; is_tab_stop = true;"
                            "        key = \"radio_button01\"; label = \"1. PNEZD (comma delimited)\";"
                            "    }" ; radio_button 
                            "      : radio_button  { height = 1.0; width = 20; is_tab_stop = true;"
                            "        key = \"radio_button02\"; label = \"2.  PNEZD (tab delimited)\";"
                            "    }" ; radio_button 
                            "      : radio_button  { height = 1.0; width = 20; is_tab_stop = true;"
                            "        key = \"radio_button03\"; label = \"3.PNEZD (white-space delimited)\";"
                            "    }" ; radio_button 
                            "      : radio_button  { height = 1.0; width = 20; is_tab_stop = true;"
                            "        key = \"radio_button04\"; label = \"4. PENZD (comma delimited)\";"
                            "    }" ; radio_button 
                            "      : radio_button  { height = 1.0; width = 20; is_tab_stop = true;"
                            "        key = \"radio_button05\"; label = \"5. PENZD (tab delimited)\";"
                            "    }" ; radio_button 
                            "      : radio_button { height = 1.0; width = 20; is_tab_stop = true;"
                            "        key = \"radio_button06\"; label = \"6. PENZD (white-space delimited)\";"
                            "    }" ; radio_button 
                            "    : row { width = 20;"
                            "      : button { key = \"OK\"; label = \"OK\"; is_default = true;"
                            "                 is_cancel = true; fixed_width = true; width = 10; }" 
                            "    }" ; end row
                            "  }" ; end dialog
                          ) ;end list
              (write-line str des)
            ) ; end foreach
            (setq des (close des)
                 dch (load_dialog dcl)
            ) ; end setq
            (<= dch 0)
          )
          (princ "\nUnable to load DCL file.")
        )
        (   (not (new_dialog "pointsin" dch))
            (princ "\nUnable to display 'pointsin' dialog.")
        )
        ( t
          (set_tile "dcl" "Select file")
		 (setq sngReturn 1)
          (action_tile "radio_button01" "(setq sngReturn 1))")
          (action_tile "radio_button02" "(setq sngReturn 2))")
          (action_tile "radio_button03" "(setq sngReturn 3))")
          (action_tile "radio_button04" "(setq sngReturn 4))")
          (action_tile "radio_button05" "(setq sngReturn 5))")
          (action_tile "radio_button06" "(setq sngReturn 6))")
          (action_tile "OK" "(progn (done_dialog 1) sngReturn)")
          (start_dialog)
        )
      ) ; end cond
      (*error* nil)
    (princ)
) ;_  end defun

Thanks

[mhy3sx.]

Can anyone fix the code?

Thanks

[mhy3sx.]

I update the code . The DCL load , gives me the option to select the coordination file and the gives me this error

Esc or Error Pressed...

Can any one help?

Thanks

[mhy3sx.]

Any ideas?

Thanks

[peter]

I would not try to fix someone else's code.

I write everything from scratch using structured programming techniques with good notes.

I try to write code that others can easily read.

The code I presented is to teach you to create a dialog box with radio buttons.

I would have you write a functional specification (write out what you need the code to do in steps)

1. Select data file
2. Present Dialog to select data format (with radio buttons).
3. Insert point block at specified location (from data) into the drawing.
4. Add data to attributes of each point block.

If this is what you want...

Can you select a data file using the 'getfiled' expression?

Can you insert a block with attributes using LISP?

Can you programmatically change the attributes of each block?

P=


This is really not a difficult program to write.

[BIG-AL]

My $0.05 try this make sure Multi radio buttons is saved in a support path so auto loads.

(if (not AH:Butts)(load "Multi Radio buttons.lsp"))

(setq ans (atoi(ah:butts 1 "V" '("Structural Holes"  "PNEZD (comma delimited)" "PNEZD (tab delimited)" "PNEZD (white-space delimited)" )))) ; ans holds the button picked as an integer value

screenshot453.png

A little hint is look at variable BUT it is button chosen eg 1 2 3

[mhy3sx.]

Hi BIG-AL the radio buttons load correct in the code, the problem is after choose the coordinate file the code stop. CAn you help me to fix the code ?

Thanks

[BIG-AL]

Forgot to post this can do the dcl for you look at examples in code.

[mhy3sx.]

The radio buttons in the code I post work fine , the DCL file open , I select the coordinate file type and the coordinate file but not insert the points. Perhaps something in the code is not corrrect. Can any one help?
Thanks

[BIG-AL]

Are you talking about my Radio buttons code or yours, in mine the code returns 2 answers a hidden Value of BUT which is the radio button selected and ans which is the radio button string. So do a cond and import points.

Have you checked that part of your code seperately, I dummy up values like "PENZD" and test bits of code. So after running dcl is it returning a known variable answer ?

For me with my experience never write lots of code but test portions as I go so make sure they are working, looking at DCL checking I write the dcl to a file but do not load rather open in Notepad++ and look at all the bracket pairings to make sure I did not have something missing or out of sequence. Checking stuff like labels and keys have double quotes.