我写了一段程序，为什么老是提示“语法错误”？请帮忙看看，谢谢！

zxc001975cvb

(defun C:SBFmain ()

  
  (setvar "cmdecho" 0)                       
  (setvar "blipmode" 0)

  
  (if (null dcl_pt)
    (setq dcl_pt '(-1 -1))
  )


  (setq dcl_id (load_dialog "sbfdcl.dcl"))

  (if (not (new_dialog "sbf" dcl_id))
    (exit)
  )

  
  (set_tile "lsb" "0")
  (set_tile "bsb" "0")
  (set_tile "llk" "0")
  (set_tile "bk" "0")
  (set_tile "ljc" "0")
  (set_tile "b2" "0")
  (set_tile "hjc" "0")
  (set_tile "ljc1" "0")
  (set_tile "lx" "0")
  (set_tile "b1" "0")
  (set_tile "b3" "0")
  (set_tile "ls" "0")

  (action_tile "lsb" "(setq lsb (atof (get_tile "lsb")))")
  (action_tile "bsb" "(setq bsb (atof (get_tile "bsb")))")
  (action_tile "llk" "(setq llk (atof (get_tile "llk")))")
  (action_tile "bk" "(setq  bk  (atof (get_tile "bk")))")
  (action_tile "ljc" "(setq ljc (atof (get_tile "ljc")))")
  (action_tile "b2" "(setq b2   (atof (get_tile "b2")))")
  (action_tile "hjc" "(setq hjc (atof (get_tile "hjc")))")
  
  (action_tile "ljc1" "(setq ljc1 (atof (get_tile "ljc1")))")
  (action_tile "lx" "(setq lx   (atof (get_tile "lx")))")
  (action_tile "b1" "(setq b1   (atof (get_tile "b1")))")
  (action_tile "b3" "(setq b3   (atof (get_tile "b3")))")
  (action_tile "ls" "(setq ls   (atof (get_tile "ls")))")
  

                                     
  (action_tile "accept" "(setq dcl_pt  (done_dialog 1))")                                        ; ?
                                       ; 对话框定义
  (action_tile "cancel" "(setq dcl_pt  (done_dialog 0))")                                        ; ?
                                       ; 框

  (setq dd (start_dialog))               
                                       
  (cond
    ((= dd 1)
      (main)
    )                                       
    ((= dd 0)
      (unload_dialog)
    )                                       
  )
  (prin1)
)

(defun main ()                               



)

(prin1)

laiz3000

(defun main ()                              



)
这里语法有问题

zxc001975cvb

是不是说程序里不能有空函数？谢谢！

Lisphk

zxc001975cvb 发表于 2018-11-20 11:29
是不是说程序里不能有空函数？谢谢！

至少里面你要加点内容
加行 (princ)

renyonghua2014

(defun main ()                              



)

(prin1)

fengyun7000

T
命令: (if (not (new_dialog "sbf" dcl_id)) (exit))
; 错误: quit / exit abort

kqqt6236

程序不完整。

tzfcn

试试看这样如何？
(defun C:SBFmain ()
  (setvar "cmdecho" 0)                       
  (setvar "blipmode" 0)
  (if (null dcl_pt)
    (setq dcl_pt '(-1 -1))
  )
  (setq dcl_id (load_dialog "sbfdcl.dcl"))
  (if (not (new_dialog "sbf" dcl_id))
    (exit)
  )
  (set_tile "lsb" "0")
  (set_tile "bsb" "0")
  (set_tile "llk" "0")
  (set_tile "bk" "0")
  (set_tile "ljc" "0")
  (set_tile "b2" "0")
  (set_tile "hjc" "0")
  (set_tile "ljc1" "0")
  (set_tile "lx" "0")
  (set_tile "b1" "0")
  (set_tile "b3" "0")
  (set_tile "ls" "0")
  (action_tile "lsb" "(setq lsb (atof (get_tile \"lsb\")))")
  (action_tile "bsb" "(setq bsb (atof (get_tile \"bsb\")))")
  (action_tile "llk" "(setq llk (atof (get_tile \"llk\")))")
  (action_tile "bk" "(setq  bk  (atof (get_tile \"bk\")))")
  (action_tile "ljc" "(setq ljc (atof (get_tile \"ljc\")))")
  (action_tile "b2" "(setq b2   (atof (get_tile \"b2\")))")
  (action_tile "hjc" "(setq hjc (atof (get_tile \"hjc\")))")
  (action_tile "ljc1" "(setq ljc1 (atof (get_tile \"ljc1\")))")
  (action_tile "lx" "(setq lx   (atof (get_tile \"lx\")))")
  (action_tile "b1" "(setq b1   (atof (get_tile \"b1\")))")
  (action_tile "b3" "(setq b3   (atof (get_tile \"b3\")))")
  (action_tile "ls" "(setq ls   (atof (get_tile \"ls\")))")
  (action_tile "accept" "(setq dcl_pt  (done_dialog 1))")
        ; ?; 对话框定义
  (action_tile "cancel" "(setq dcl_pt  (done_dialog 0))")
        ; ?; 框
  (setq dd (start_dialog))               
  (cond
    ((= dd 1)
      (main)
    )                                       
    ((= dd 0)
      (unload_dialog dcl_id)
    )                                       
  )
  (prin1)
)
(defun main ()                              
)
(prin1)

zxc001975cvb

非常感谢！

lisperado

set_tile & action_tile 可以简化成字串表

1. (setq keys '("lsb" "bsb" "llk" "bk" "ljc" "b2" "hjc" "ljc1" "lx" "b1" "b3" "ls"))
   
2. 
   
3. (foreach x keys (set_tile x "0"))
   
4. 
   
5. (foreach x keys
   
6.   (action_tile x (strcat "(setq "x" (atof (get_tile \""x"\")))"))
   
7.   )

(setq keys '("lsb" "bsb" "llk" "bk" "ljc" "b2" "hjc" "ljc1" "lx" "b1" "b3" "ls"))<br /> <br /> (foreach x keys (set_tile x "0"))<br /> <br /> (foreach x keys <br />   (action_tile x (strcat "(setq "x" (atof (get_tile \""x"\")))"))<br />   )