请问这个程序为什么总是出现列表错误

onlyonewolf · 发表于 2011-6-7 21:56:25

(defun c:ct (/ ss e en ed  n ln m  mm string string0  string1 string2 string3)
   (setq ss (ssget))
   (setq n 0)
   (setq m 1)
   (repeat (sslength ss)
            (setq e (ssname ss n))
            (setq en (cdr (assoc 1 (setq ed (entget e)))))
            (setq ln (strlen en))
            (setq m 1)
            (setq string nil)
            (while (and (/= m ln) (> ln 0))
                  (if (= (substr en m 1) "-")
                     (progn
                              (setq mm m)
                              (while (/= mm ln)
                                    (if (= (substr en  (+ mm 1) 1) "-")
                                          (progn
                                                (setq string (substr en (+ mm 2))
                                                (setq string0 (atof  string))
(setq string1 (rtos string0 2 2))
      (setq string2 (substr en 1 (+ mm 1)))

            (setq string3 (strcat string1 string2))
      )
                                       )
                                       (setq mm (+ mm 1))
                              )
                        )
                     )
                     (setq m (+ m 1))
            )
            (setq ed (subst (cons 1 sting3) (assoc 1 ed) ed ))
            (entmod ed)
      )
  )

Gu_xl · 发表于 2011-6-7 21:59:17

回复 onlyonewolf 的帖子

括号不匹配
(setq string (substr en (+ mm 2)) )

onlyonewolf · 发表于 2011-6-7 22:50:34

为甚么我的rtos函数返回的总是小数点后的位数没有呢

onlyonewolf · 发表于 2011-6-7 22:51:29

rtos 函数返回的数据总是没有小数的不知道是什么原因

Andyhon · 发表于 2011-6-7 22:53:25

Check Sytem variables
Luprec
DimZin

onlyonewolf · 发表于 2011-6-7 22:57:28

请高手指点一下怎么应该设置成什么呢

onlyonewolf · 发表于 2011-6-7 23:00:32

多谢了成功了

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

[讨论] 请问这个程序为什么总是出现列表错误