lvbin2ooo 发表于 2013-3-3 16:12:04

简短的几句话，就是不知道错在哪了。请大侠帮看看。

(defun c:tbp()         ;;
   (setq ss_tb" " )
   (setq ss_tb (cdr (assoc 8 (entget (car(entsel "\n选择图名或图号:"))))))
   (prompt ss_tb) ;;;   
   (prompt "\n 请选择调整全区域") ;;;
(setq ss_tbj (ssget   '((0 . "TEXT") (8 .ss_tb))))
(princ)
)


源代码如上，运行lsp能够运行，但是最后报错“错误: ssget 列表值错误”。。莫非ssget.后面的限制条件，，不能含有变量ss_tb？请大侠帮忙解决。谢谢。

阿然 发表于 2013-3-3 16:15:16

本帖最后由 阿然 于 2013-3-3 16:16 编辑

(setq ss_tbj (ssget   '((0 . "TEXT") (8 .ss_tb))))改为
(setq ss_tbj (ssget   (list '(0 . "TEXT") (cons 8   ss_tb) )))

lvbin2ooo 发表于 2013-3-3 16:21:14

果然高手。。。太感谢了。。
页: [1]
查看完整版本: 简短的几句话，就是不知道错在哪了。请大侠帮看看。