请帮忙查错！！！！

wyu · 发表于 2002-8-12 09:36:00

请帮忙查错！！！！
如下一统计所选区域一个块的数量的程序：

(defun c:tjB (/ num pt1 pt2 pt3 SS1)

  (setq pt1 (getpoint "方框第一点: "))
  (setq pt2 (getpoint "方框第二点: "))
(setq ss1 (ssget "w" pt1 pt2 '((0 . "block") (2 . "路标))))

(setq num (sslength ss1))
(setq pt3 (getpoint "\n标注位置: "))

(command ".text" pt3 "" "" (rtos num 2 0) "")

   (setq SS1 nil)


  (princ)
)

加载时出现如下错误，
; error: extra cdrs in dotted pair on input
用(GETVAR "ERRNO")检查错误时，显示错误代码为“0”，即没有错误，
请高手帮忙检查一下错误，谢谢！！！！！！！！

leeyeafu · 发表于 2002-8-12 10:23:00

wyu · 发表于 2002-8-12 10:29:00

还有错误

leeyeafu · 发表于 2002-8-12 10:41:00

本帖最后由作者于 2002-8-12 10:41:30 编辑

(setq ss1 (ssget "w" pt1 pt2 '((0 . "block")(2 . "路标") )))有误[br](setq ss1 (ssget "w" pt1 pt2 '((0 . "block")(2 . "路标") )))有误
好象是"block"命名不对，我试过，但不知道用什么名称，"blockref"和　"blockreference"都不对，不过，去掉(0,"block")，即下面的语句可通过而且不会出错：
（setq ss1 (ssget "w" pt1 pt2 '（(2 . "路标") )))
你试试。

wyu · 发表于 2002-8-12 10:59:00

现在可以了，谢谢了！！！！！！！！！！

mccad · 发表于 2002-8-13 21:48:00

账号		自动登录	找回密码
密码			注册

请帮忙查错！！！！

(2 . "路标) 少了右引号

还有错误

(setq ss1 (ssget "w" pt1 pt2 '((0 .&nbs

谢谢了！！！！！！！！

应该是(0 . "INSERT")