主程序正常但改为子函数后不能返回值

czcxxx · 发表于 2015-9-22 12:47

本帖最后由 czcxxx 于 2015-9-30 13:08 编辑

主程序正常运行，能获得想要的值，但改为子函数后返回值为NIL

当作主程序时的代码如下：

(defun bat_la (ss_mod ii / x)
(mapcar
'(lambda (x) (cdr (assoc ii (entget x))))
(vl-remove-if
'listp
(mapcar 'cadr (ssnamex ss_mod))
)
)
);;;;取关联表单项值
(PRINT "\n请选择两个具有部分相同内容的单行文字：")
(setq ss1 (ssget '((0 . "text"))))
(WHILE (/= (sslength ss1) 2)
(PRINT "\n请选择两个具有部分相同内容的单行文字：")
(setq ss1 (ssget '((0 . "text"))))
)
(setq tl_t (bat_la ss1 1))
(setq pos1 (getint "\n请选择相同内容的起始位置：<0>"))
(if (null pos1)
(setq pos1 0)
)
(setq str1 (car tl_t))
(if (setq leng1 (vl-string-mismatch str1 (cadr tl_t) pos1 pos1 t))
(setq strsub (substr str1 (+ 1 pos1) leng1))
(setq sstr (strcat "*" strsub "*"))
)
(setq sstr sstr)

sstr的值正常可得

当将主程序改为子函数后，再调用返回值为NIL

将主程序改为子函数并调用的代码如下：

(defun bat_la (ss_mod ii / x)
(mapcar
'(lambda (x) (cdr (assoc ii (entget x))))
(vl-remove-if
'listp
(mapcar 'cadr (ssnamex ss_mod))
)
)
);;;;取关联表单项值
(defun czc_eqt ( / ss1 tl_t pos1 str1 leng1 strsub sstr)
(PRINT "\n请选择两个具有部分相同内容的单行文字：")
(setq ss1 (ssget '((0 . "text"))))
(WHILE (/= (sslength ss1) 2)
(PRINT "\n请选择两个具有部分相同内容的单行文字：")
(setq ss1 (ssget '((0 . "text"))))
)
(setq tl_t (bat_la ss1 1))
(setq pos1 (getint "\n请选择相同内容的起始位置：<0>"))
(if (null pos1)
(setq pos1 0)
)
(setq str1 (car tl_t))
(if (setq leng1 (vl-string-mismatch str1 (cadr tl_t) pos1 pos1 t))
(setq strsub (substr str1 (+ 1 pos1) leng1))
(setq sstr (strcat "*" strsub "*"))
)
(setq sstr sstr)
)
(czc_eqt)

返回值为NIL，想不明白！！！
请高手给看看！！
谢谢！！

chg · 发表于 2015-9-22 13:07

(defun czc_eqt ( / ss1 tl_t pos1 str1 leng1 strsub sstr)
  (PRINT "\n请选择两个具有部分相同内容的单行文字：")
  (setq ss1 (ssget '((0 . "text"))))
  (WHILE (/= (sslength ss1) 2)
(PRINT "\n请选择两个具有部分相同内容的单行文字：")
(setq ss1 (ssget '((0 . "text"))))
  )
  (setq tl_t (bat_la ss1 1))
  (setq pos1 (getint "\n请选择相同内容的起始位置：<0>"))
  (if (null pos1)
(setq pos1 0)
  )
  (setq str1 (car tl_t))
  (if (setq leng1 (vl-string-mismatch str1 (cadr tl_t) pos1 pos1 t))
(setq strsub (substr str1 (+ 1 pos1) leng1))
(setq sstr (strcat "*" strsub "*"))
  )
  (setq sstr sstr)
  sstr
)
或者把sstr作为全局变量使用

mmmmmm · 发表于 2015-9-22 13:08

(if (setq leng1 (vl-string-mismatch str1 (cadr tl_t) pos1 pos1 t))
(setq strsub (substr str1 (+ 1 pos1) leng1))
(setq sstr (strcat "*" strsub "*"))
)
有问题，当(setq leng1 (vl-string-mismatch str1 (cadr tl_t) pos1 pos1 t))成立时，没有计算sstr，所以就是nil了，不成立时，strsub没有赋值，估计也会报错。
看程序的意思，应该不用这个if判断，直接三行赋值。
(setq leng1 (vl-string-mismatch str1 (cadr tl_t) pos1 pos1 t))
(setq strsub (substr str1 (+ 1 pos1) leng1))
(setq sstr (strcat "*" strsub "*"))

czcxxx · 发表于 2015-9-22 14:04

谢谢mmmmmm 及chg ！
(if (setq leng1 (vl-string-mismatch str1 (cadr tl_t) pos1 pos1 t))
   (setq strsub (substr str1 (+ 1 pos1) leng1))
   (setq sstr (strcat "*" strsub "*"))
)
这段代码确实有问题。
应为
(if (setq leng1 (vl-string-mismatch str1 (cadr tl_t) pos1 pos1 t))
(progn
   (setq strsub (substr str1 (+ 1 pos1) leng1))
   (setq sstr (strcat "*" strsub "*"))
)
  )

谢谢两位的答复！！
当作主程序时代码原为
(setq leng1 (vl-string-mismatch str1 (cadr tl_t) pos1 pos1 t))
   (setq strsub (substr str1 (+ 1 pos1) leng1))
   (setq sstr (strcat "*" strsub "*"))
改为子函数后为了安全加了个IF 限制
不认真，没有加全，麻烦不断！！
教训啊！！！！！！！！！！

USER2128 · 发表于 2015-9-22 16:33

楼主的程序不错，可惜不支持“中文”。

czcxxx · 发表于 2015-9-23 09:30

本帖最后由 czcxxx 于 2015-9-23 09:45 编辑

USER2128 老师，不支持“中文”中的“中文”指的是什么？
这个子程序就是用于批量删除不想要的中文文字的子函数

当然英文也可以

llsheng_73 · 发表于 2015-9-23 10:16

本帖最后由 llsheng_73 于 2015-9-23 10:18 编辑

两个文本的相同部分应该由程序求出：包括其起始位置，不然程序的作用大打折扣，甚至可以考虑支持MTEXT

czcxxx · 发表于 2015-9-23 17:18

感谢xianaihua 让我知道汉字字符串是如何获取的！！
http://bbs.mjtd.com/thread-111852-1-1.html
感谢llsheng_73 的建议！！！
两个文本的相同部分应该由程序求出仍可用(vl-string-mismatch str1 str2 [pos1 pos2 ignore-case-p])完成
包括位置，不用将汉字字符串分割。
谢谢各位！！！

USER2128 · 发表于 2015-9-24 09:59

比如：
(vl-string-mismatch "边梁" "中梁" 0 0 t) ; ==> 4
(vl-string-mismatch "A边梁BCD" "A中梁B" 0 0 t) ; ==> 6
(vl-string-mismatch "A边梁BCD" "A中梁B" 1 1 t) ; ==> 5
(vl-string-mismatch "A边梁BCD" "A中梁B" 2 2 t) ; ==> 4

czcxxx · 发表于 2015-9-24 11:22

本帖最后由 czcxxx 于 2015-9-24 11:59 编辑

首先：谢谢USER2128 ！

测试确实如此！！
(vl-string-mismatch  "边梁"    "中梁"  0 0 t) ; ==> 4
(vl-string-mismatch "A边梁BCD" "A中梁B" 0 0 t) ; ==> 6
(vl-string-mismatch "A边梁BCD" "A中梁B" 1 1 t) ; ==> 5
(vl-string-mismatch "A边梁BCD" "A中梁B" 2 2 t) ; ==> 4
改变一下正确：
(vl-string-mismatch  "边梁"       "中梁"  0 0 ) ; ==> 0
(vl-string-mismatch  "边梁"       "中梁"  2 2 ) ; ==>2
(vl-string-mismatch  "边梁"       "中梁"  3 3 ) ; ==>1
(vl-string-mismatch "A边梁BCD" "A中梁B" 0 0 ) ; ==> 1
(vl-string-mismatch "A边梁BCD" "A中梁B" 1 1 ) ; ==> 0
(vl-string-mismatch "A边梁BCD" "A中梁B" 2 2 ) ; ==> 0
(vl-string-mismatch "A边梁BCD" "A中梁B" 3 3 ) ; ==> 3
(vl-string-mismatch "A边梁BCD" "A中梁B" 4 4 ) ; ==> 2
(vl-string-mismatch "A边梁BCD" "A中梁B" 5 5 ) ; ==> 1
(vl-string-mismatch "A边梁BCD" "A中梁B" 6 6 ) ; ==> 0
ASCII如下：
vl-string->list "边梁")
(177 223 193 186)
_$ (vl-string->list "中梁")
(214 208 193 186)
_$ (vl-string->list "A边梁BCD")
(65 177 223 193 186 66 67 68)
_$ (vl-string->list "A中梁B")
(65 214 208 193 186 66)
_$
看来vl-string-mismatch 按ascii码为基础进行单字节比较的，
即使单字节比较也能得到正确结果，当然有字符被分割的情况，但要找出来正确的！！

若分割汉字（含英文）字符串成表，要两层循环，并加个表处理也可找到最大相同部分及起始位置。

很有些麻烦！

区分大小写究竟发生了什么？
或者说对于汉字所谓的大小写的区别是什么？？？
高手们请指教！！！
谢谢！！！

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

[已解答] 主程序正常但改为子函数后不能返回值

相关帖子

评分