[求助]：判断字符LSP;请指教问题出在哪里

dhxf · 发表于 2005-4-26 18:31:11

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

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

×

(defun justyj ()
(setq ss1 (ssget '((0 . "*TEXT"))))
(setq n 0)
(setq k (sslength ss1))
(setq k1 0 )
(while (< n k)
(setq obj1 (vlax-ename->vla-object (ssname ss1 n)))
(setq obj2 (vla-get-textstring obj1))
(setq obj5 obj2)
(setq obj2 (atof obj2))
(if (= obj2 0)
(progn
(setq obj3 (substr obj5 4))
(setq obj3 (atof obj3))
)
)
(if (= obj3 0)
(setq k1 ( + 1 k1))
)
(setq n (1+ n))
)
)

;;;;;;;;;;;;;;;;;
test: 1, 2 ,3 ,4 ,a,b,c,rc/-2,kt/-3,kt/-4 ;
目标:1,2,3,4,rc/-2,kt/-3,kt/-4过滤掉,(字母开头去掉前3字符后为数字); k1=3 (即 a b c )
错误:k1=6
走不出来了;谢谢

eachy · 发表于 2005-4-26 19:23:22

(ssget '((1 . "*#*")))

dhxf · 发表于 2005-4-27 09:14:27

改过;
k1=0
不是目标;
;;;;;;;;;;;;;;;;;;;;;;;;;;
找到原因,是自己忽略有另外一段同名LSP
谢谢版主热心.

dhxf · 发表于 2005-4-27 14:41:15

是这样改过来的
(setq obj5 obj2)
(setq obj2 (atof obj2))
(if( and (= obj2 0) (/= (substr obj5 3 1) "/"))
(setq k1 ( + 1 k1)))

判断"/" ,为字符(a,b,c)且无"/"
有个bug:
rs/wc/kt/-2;
应该不计入K1;

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

[求助] [求助]：判断字符LSP;请指教问题出在哪里

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

相关帖子