repeat中提示参数错误

forverd

(defun C:ff ( / &dis1 &dis2 &k1 &n1  &p1 p2 &ss1 &len os strtemp strtemp_ele ele k g)
         (if (null vlax-dump-object) (vl-load-com) )
         (setq &ss1 '("LINE" "LWPOLYLINE" "CIRCLE" "ARC" "HELIX" "ELLIPSE" "SPLINE" "POLYLINE")) ;曲线有起点：直线，多段线，圆，圆弧，螺旋对象，椭圆，样条曲线，二维多段线

                 (setq &k1 (entsel "\n请选择曲线"))
                         (while (= nil &k1)
                                 (setq &k1 (entsel "\n没有选择曲线，重新选择"))
                        )
                   (setq &k1 (car &k1))
        (member (cdr (assoc 0 (entget &k1))) &ss1);确认是曲线

                (setq &p1 (getpoint "\n选择曲线上第一点:"))
                        (while (not (vlax-curve-getDistAtPoint &k1 &p1))
                                (setq &p1 (getpoint "\n没有选在曲线上，重新选择："))
                        )        

                        (if(not lenth) ;设置全局变量lenth
                                (setq lenth 30);给全局变量lenth付初始值30
                        )
                        (setq &len (getstring (strcat "\n输入偏移长度:" )))
                        (cond
                             ((not &len) (setq &len lenth));把全局变量len的值传递给&len
                                  ((wcmatch &len "*+*") (setq strtemp (strsplit &len "+")))
          ((wcmatch &len "*x*") (setq strtemp (strsplit &len "x")))
                        )
    (setq lenth &len);把局部变量&len重新传递给全局变量lenth，以便下次使用
                                                        
    (setq &p1 (vlax-curve-getclosestpointto &k1 &p1));取得最近点        
    (setq &n1 (vlax-curve-getParamAtPoint &k1 &p1));取得参数
    (setq &dis1 (vlax-curve-getDistAtParam &k1 &n1));到起点距离


    (setq os (getvar "osmode"));记录对象捕捉参数
    (setvar "osmode" 0)；关闭对象捕捉
    (setq k 0)
    (setq g 1)
    (setq ele 0)
    (cond
          ((wcmatch &len "*+*")               
              (repeat (length strtemp)
                  (setq strtemp_ele(atof(nth k strtemp)))
                  (setq strtemp_ele(+ strtemp_ele ele))
                  (setq &dis2 (+ &dis1 strtemp_ele))
                  (setq p2 (vlax-curve-getPointAtDist &k1 &dis2))
                  (command "circle" p2 "1");命令行显示
                  (setq k(+ k 1))
                  (setq ele strtemp_ele)
              )
          )
          ((wcmatch &len "*x*")
              (repeat atoi(car strtemp)
                  (setq strtemp_ele(atof(cadr strtemp)))
                  (setq strtemp_ele(* strtemp_ele g))
                  (setq &dis2 (+ &dis1 strtemp_ele))
                  (setq p2 (vlax-curve-getPointAtDist &k1 &dis2))
                  (command "circle" p2 "1");命令行显示
                  (setq g(+ g 1))
              )
          )
      )  
    (setq &dis2 (+ &dis1 (atof &len)))
    (setq p2 (vlax-curve-getPointAtDist &k1 &dis2))
    (command "circle" p2 "1");命令行显示
                (setvar "osmode" os);还原对象捕捉设置
    (princ)
)
; user defined function strsplit.
; strsplit splits a string with delimiter, and return a list.
; example: (strsplit "1,22,333,4444" ",")    -->> ("1","22","333","4444")
;          (strsplit ",1,22,333,4444," ",")  -->> ("" "1" "22" "333" "4444" "")
(defun strsplit(datastr delimiter)
    (setq strlist '()
          str ""
    )
    (setq n (strlen datastr))
    (setq i 1)
    (repeat n
        ; s is a single letter, starts from the first to the end.
        (setq s (substr datastr i 1))
        ;
        (if (/= s delimiter)
            ; when s is't a delimiter
            (progn
                (setq str (strcat str s))
                ; if s is the last letter
                (if (= i n)
                    (setq strlist (cons str strlist))
                )
            )
            ; when s is a delimiter
            (progn
                (setq strlist (cons str strlist))
                (setq str "")
                ; if delimiter is the last letter
                (if (= i n)
                    (setq strlist (cons "" strlist))
                )
            )
        )
        (setq i (1+ i))
    )
    ; reverse list and retrun it
    (reverse strlist)
)


每次运行到红色字体处，提示参数错误，我知道repeat 后面的n需要的是整数且正数类型，难道atoi这个函数不对吗？

start4444

你的括号呢

烟盒迷唇

(repeat (atoi (car strtemp))

forverd

烟盒迷唇 发表于 2021-4-25 07:25
(repeat (atoi (car strtemp))

最近怎么老是出这种低级的问题，我还检查了好几遍 竟然没看出来

jun353835273

不严谨  执行这个操作(car strtemp)之前应该判断下  strtemp是不是为空，为空的在来个atoi也会报错。

forverd

jun353835273 发表于 2021-4-25 13:33
不严谨  执行这个操作(car strtemp)之前应该判断下  strtemp是不是为空，为空的在来个atoi也会报错。

这是cond下面的语句，如果为空，前面就跳过去了，到不了这一句