[求助]：LSP程序修改？

TLHMQH

我根据网上的程序修改了部分内容，使用时可以正常使用，但却出现以下提示：
命令: ; 错误: no function definition: nil
是什么意思，好象是有个不存在的变量或（？）怎样修改？
下面是我修改的LSP程序内容，请指点。

(defun c:ZMJ (/ s i nall ent entl i nmb nall mj zmj)
  (setq s (ssget '((0 . "TEXT")))
        i 0
        nall 0)
  (repeat (sslength s)
    (setq ent (ssname s i)
          entl (entget ent)
          i (1+ i)
          nmb (atof (cdr(assoc 1 entl)))
          nall (+ nmb nall)
    )
  )
  (setq mj (rtos nall 2))
  ( (progn
      (setq mj (rtos nall 2 1))
      (setq zmj (STRCAT "总面积:" mj "公顷"))
      (princ "\n请指定标注位置:")
      (command "text" pause "30" "90" zmj ^c)       
    )
  )
  (princ)
)
;;;;

haibinpro

[PHP](defun c:ZMJ (/ s i nall ent entl i nmb nall mj zmj)
(setq s (ssget '((0 . "TEXT")))
i 0
nall 0)
(repeat (sslength s)
(setq ent (ssname s i)
entl (entget ent)
i (1+ i)
nmb (atof (cdr(assoc 1 entl)))
nall (+ nmb nall)
)
)
(setq mj (rtos nall 2))
(progn
(setq mj (rtos nall 2 1))
(setq zmj (STRCAT "总面积:" mj "公顷"))
(princ "\n请指定标注位置:")
(command "text" pause "30" zmj ^c)
)
(princ)
)[/PHP]
是这样么？

TLHMQH

原来多了一对括号。谢谢指点！