字符串取值问题错在哪??

bearbear1 · 发表于 2010-6-25 10:59:00

(defun c:tt ()
(setq q (getreal "please one "))

  (if (= 0 (substr (rtos q) 2 1))
  (setq str (strcat "0" (substr (rtos q) 1 1 )));200取02 ?????????????可惜结果都是20
  (setq str (substr (rtos q) 1 2 )) ;350变35
  )

)

bearbear1 · 发表于 2010-6-25 10:59:00

输入200想出结果02

bearbear1 · 发表于 2010-6-25 11:37:00

(defun c:tt ( )

(setq tg (getreal "num")); 200,250

(if (/= 0 (substr (rtos tg) 2 1))
     (setq g (substr (rtos tg) 1 2))

     (progn
     (setq b (substr (rtos tg) 1 1))
     (setq b (strcat "0" b))
     )
     );endif
;(list b)
(princ)
)

; 输入200 结果子空值？？

Andyhon · 发表于 2010-6-25 12:58:00

(if (/= 0 (substr (rtos tg) 2 1))

=>

(if (/= "0" (substr (rtos tg) 2 1))

bearbear1 · 发表于 2010-6-25 14:06:00

总有好心人，非常感谢

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

[基础] 字符串取值问题 错在哪??

[基础] 字符串取值问题错在哪??