caoyin 版主进来帮忙

啵浪鼓

caoyin版主你上次帮我写了个遍历层图层表得到的EC+日期挺好用,可惜我只懂得一点lisp,vlisp不懂语法,现在工作改变图层改成了change+数字了

现图层里有change1,change2,change11,怎样让程序自动分辨最大的数字,然后就自动生成最大的图层+1生成一个新层

也就是上面的3个图层change11是最大,运行程序后自动生成change12

上次你帮我写的遍历层图层表地址:

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78558&replyID=&skin=1

caoyin

(defun c:TT1(/ LAYS I)
  (setq LAYS (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))))
  (vlax-for N LAYS
    (if (and (wcmatch (setq N (vla-get-name N)) "change*")
             (setq N (atoi (substr N 7)))
             (or I (setq N I))
             (> N I))
      (setq I N)
    )
  )
  (vl-catch-all-apply 'vla-add (list LAYS (strcat "change" (itoa (1+ I)))))
  (princ)
)

啵浪鼓

Command: (setq LAYS (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))))

#<VLA-OBJECT IAcadLayers2 1b9bbe74>

Command: (vlax-for N LAYS
(_>     (if (and (wcmatch (setq N (vla-get-name N)) "change*")
(((_>              (setq N (atoi (substr N 7)))
(((_>              (or I (setq N I))
(((_>              (> N I))
((_>       (setq I N)
((_>     )
(_>   )
nil

Command: (vl-catch-all-apply 'vla-add (list LAYS (strcat "change" (itoa (1+ I)))))
; error: bad argument type: numberp: nil

最後一句調入cad後提示錯誤了！

龙龙仔

  (setq LAYS (vla-get-layers
        (vla-get-activedocument (vlax-get-acad-object))
      )
 I    0
  )