求大神帮忙看下这个一直提示参数错误

孤云寒霜 · 发表于 2018-6-8 17:23:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

写入扩展属性一直提示string参数错误求大神指导一下谢谢

孤云寒霜 · 发表于 2018-6-8 17:24:53

(defun C:zm()
(SETQ ZM (GETSTRING"\n 输入组名:"))
)
(defun c:sz1()
(regapp "DONGZHI" )
(setq zd_in3 (entget
                  (setq zd_in2 (car
                                    (setq zd_in1 (entsel))))));选取权属线
(setq zd_sx (cadr(assoc -3(entget ZD_IN2'("SOUTH")))));获取宗地属性
(setq zb_in3 (entget
                  (setq zb_in2 (car
                                    (setq zb_in1 (entsel))))))
(setq zb_sx (cdr(cadadr(assoc -3(entget Zb_IN2'("SOUTH"))))));获取植被属性
(if(= (atof zb_sx)(atof"211201"))
(setq dongzhi1 (list -3 ("DONGZHI" (list(cons 1000 (strcat zm "旱地")))))))
)

marting · 发表于 2018-6-8 18:58:49

孤云寒霜发表于 2018-6-8 17:24
(defun C:zm()
(SETQ ZM (GETSTRING"\n 输入组名:"))
)

你自己得找出是哪行有错误啊，你这是CASS吧，没这个环境，没法试你的代码。

孤云寒霜 · 发表于 2018-6-8 20:09:26

marting 发表于 2018-6-8 18:58
你自己得找出是哪行有错误啊，你这是CASS吧，没这个环境，没法试你的代码。

我一句一句的输入到命令行没有问题

孤云寒霜 · 发表于 2018-6-8 20:11:02

marting 发表于 2018-6-8 18:58
你自己得找出是哪行有错误啊，你这是CASS吧，没这个环境，没法试你的代码。

我一句一句的输入到命令行没有问题

孤云寒霜 · 发表于 2018-6-8 20:12:53

孤云寒霜发表于 2018-6-8 20:11
我一句一句的输入到命令行没有问题

选择对象: ; 错误: 参数类型错误: stringp nil

marting · 发表于 2018-6-8 20:30:26

孤云寒霜发表于 2018-6-8 20:12
选择对象: ; 错误: 参数类型错误: stringp nil

你自己一行一行输入没错误提示，那能完成你想做的吗？
如果完成了，最后还有错误提示，那是不是你用反应器什么的了？

你在程序最后一行写上打印代码，随便打印点什么，如果错误提示是在打印内容后面出来的，那说明和你这个程序无关了，肯定有反应器什么的自动执行了，有错误数据。

aeo · 发表于 2018-6-8 22:05:40

变量 zm 是 c:zm命令里面得到的。可能是 nil

到了c:sz1 里面 (strcat zm "旱地") ,如果你没先执行zm命令就不对。你应该先判断zm是不是nil

kqqt6236 · 发表于 2018-6-9 07:34:28

字符串有问题。

王子 · 发表于 2018-6-9 11:04:20

学编程，一定要学会自查错误。

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

[求助] 求大神帮忙看下这个一直提示参数错误

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评