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

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

(defun c:ct (/ ss e en edn ln mmm string string0string1 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 (atofstring))
                                                        (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

多谢了 成功了
页: [1]
查看完整版本: 请问这个程序为什么总是出现列表错误