社区 › AutoLISP/Visual LISP 编程技术 › 复制递增-适合任意前缀（源码）

街角的幸福 发表于 2012-8-8 14:38:47

复制递增-适合任意前缀（源码）

本帖最后由 街角的幸福 于 2012-8-9 23:27 编辑

;;;(jun-dz 图元名 递增值 插入点)
(defun jun-dz(dname x zuobiao / dxh dxname dxs ndx)
    (setq dxname (entget dname)
            ndx (cdr (assoc 1 dxname))
            dxs (car (reverse (test ndx))))
    (if dxs
      (progn
          (setq dxh (strcat (substr ndx 1 (- (strlen ndx) (strlen (itoa dxs)))) (itoa (+dxs x)))
                dxname (subst (cons 72 0) (assoc 72 dxname) dxname)
               dxname (subst (cons 10 zuobiao) (assoc 10 dxname) dxname)
            dxname (subst (cons 11 zuobiao) (assoc 11 dxname) dxname)
                dxname (subst (cons 1 dxh) (assoc 1 dxname) dxname)
          )
          (entmake dxname)
)
    )
   
)
(defun c:tt( / en pointx)
(setq en (car (entsel "\n请选择文本：")))
(setq pointx (getpoint"\n输入插入点："))
(while pointx
(jun-dz en 1 pointx)
(setq en (entlast))
(setq pointx (getpoint pointx"\n输入插入点："))
)

)
;下面引用caoyin的一段源码（在此表示感谢）
;字符串处理（如果字符串中不含小数点）：
(defun TEST (STR)
(read (strcat "("(vl-list->string
(mapcar '(lambda (X) (if (<= 48 X 57) X 32))
          (vl-string->list STR)
))")"))
)

;;如有类同，纯属巧合。

461045462 发表于 2012-8-8 15:15:39

谢谢楼主的分享！
先收藏，试试学习学习。
谢谢！

461045462 发表于 2012-8-8 15:29:39

楼主您好：
源码很好，谢谢！
在2004试了试，递增的数据重贴在一起

街角的幸福 发表于 2012-8-8 17:08:08

楼上选择插入点了吗？

preone 发表于 2012-8-8 18:25:50

好像插入点都是一个点，在原位递增？

461045462 发表于 2012-8-8 20:51:45

本帖最后由 461045462 于 2012-8-8 21:38 编辑

楼主您好：
(cons 72 0)====>(cons 72 1)

adc 发表于 2012-8-8 21:11:57

这是怎么设置的？我怎么搞不出来

dakui 发表于 2012-8-8 21:53:03

???????????????????

街角的幸福 发表于 2012-8-8 22:46:01

461045462 发表于 2012-8-8 15:29 static/image/common/back.gif
楼主您好：
源码很好，谢谢！
在2004试了试，递增的数据重贴在一起

重新更新了一下，你再试试。组码问题

461045462 发表于 2012-8-9 08:35:24

不知为什么楼上显示如下，要怎样才能看见呢

查看完整版本: 复制递增-适合任意前缀（源码）