求一个多行文本复制递增的LISP。。。。。。谢谢！

njut_prince

对于01要按02、03、04。。。。递增，10以上的按11、12.。。递增！！！！请告诉帮忙，谢谢！！




需可选择基点。。。。

自贡黄明儒

你可以参考http://bbs.mjtd.com/thread-102143-1-1.html

注册

cptxt，论坛收索

njut_prince

注册 发表于 2013-12-5 10:49
cptxt，论坛收索

给个网址呀，搜索不到啊！！！

njut_prince

自贡黄明儒 发表于 2013-12-5 10:18
你可以参考http://bbs.mjtd.com/thread-102143-1-1.html

不能用呀，帮我看下是不是这个！！

2. ;;---------------------------------另类拷贝AnotherCopy
   
3. ;; 末尾数字+1 自贡黄明儒
   
4. ;;ayEntSSHighLight见<a href="http://bbs.mjtd.com/thread-101674-1-1.html" target="_blank">http://bbs.mjtd.com/thread-101674-1-1.html</a>
   
5. (defun C:AC (/ P0 SS0)  
   
6.   ;;2  对象na之后所有实体产生的选择集
   
7.   (defun newsel        (na / ss e1)
   
8.     (if        na
   
9.       (setq na (entnext na))
   
10.       (setq na (entnext))
    
11.     )
    
12.     (setq ss (ssadd))
    
13.     (while na
    
14.       (setq e1 (entget na))
    
15.       (if (wcmatch (LI_item 0 e1) "VERTEX,SEQEND,ATTRIB")
    
16.         nil
    
17.         (setq ss (ssadd na ss))
    
18.       )
    
19.       (setq na (entnext na))
    
20.     )
    
21.     ss
    
22.   )
    
23.   ;;3  copy
    
24.   (defun do-copy (ss0 p0 / A BOOL PT SS SS1 SS2)
    
25.     (setq bool T)
    
26.     (setq ss ss0
    
27.           pt p0
    
28.     )
    
29.     (while bool
    
30.       (setq a (entlast))
    
31.       (princ "\n >>下一点或者输入距离:")
    
32.       (command "_.copy" ss "" pt pause)
    
33.       (setq ss1 (newsel a))
    
34.       (ayEntSSHighLight ss)
    
35.       (command "._Select" ss1 "")
    
36.       ;(if (setq ss2 (ssget "_p" '((0 . "*TEXT,ATTDEF,INSERT"))))(SA_change ss2))这句让文字尾数+1
    
37.       (if (equal pt (setq pt (getvar "lastpoint")) 0.001)
    
38.         (progn (command "undo" "2") (setq bool nil))
    
39.       )
    
40.       (setq ss ss1)
    
41.       ;;(princ (getvar 'errno))
    
42.     )
    
43.   )
    
44.   ;;4  主程序
    
45.   (command "undo" "be")
    
46.   (if (and (setq ss0 (ssget))
    
47.            (setq p0 (getpoint "\n >基点:"))
    
48.       )
    
49.     (do-copy ss0 p0)
    
50.   )
    
51. 
    
52. 
    
53. 不能用啊！！！
    
54.   (command "undo" "e")
    
55.   (princ)
    
56. )
    
57. 
    
58. 
    
59. ;;---------------------------------另类拷贝AnotherCopy

;;---------------------------------另类拷贝AnotherCopy<br /> ;; 末尾数字+1 自贡黄明儒<br /> ;;ayEntSSHighLight见<a href="http://bbs.mjtd.com/thread-101674-1-1.html" target="_blank">http://bbs.mjtd.com/thread-101674-1-1.html</a><br /> (defun C:AC (/ P0 SS0)  <br />   ;;2  对象na之后所有实体产生的选择集<br />   (defun newsel        (na / ss e1)<br />     (if        na<br />       (setq na (entnext na))<br />       (setq na (entnext))<br />     )<br />     (setq ss (ssadd))<br />     (while na<br />       (setq e1 (entget na))<br />       (if (wcmatch (LI_item 0 e1) "VERTEX,SEQEND,ATTRIB")<br />         nil<br />         (setq ss (ssadd na ss))<br />       )<br />       (setq na (entnext na))<br />     )<br />     ss<br />   )<br />   ;;3  copy<br />   (defun do-copy (ss0 p0 / A BOOL PT SS SS1 SS2)<br />     (setq bool T)<br />     (setq ss ss0<br />           pt p0<br />     )<br />     (while bool<br />       (setq a (entlast))<br />       (princ "\n >>下一点或者输入距离:")<br />       (command "_.copy" ss "" pt pause)<br />       (setq ss1 (newsel a))<br />       (ayEntSSHighLight ss)<br />       (command "._Select" ss1 "")<br />       ;(if (setq ss2 (ssget "_p" '((0 . "*TEXT,ATTDEF,INSERT"))))(SA_change ss2))这句让文字尾数+1<br />       (if (equal pt (setq pt (getvar "lastpoint")) 0.001)<br />         (progn (command "undo" "2") (setq bool nil))<br />       )<br />       (setq ss ss1)<br />       ;;(princ (getvar 'errno))<br />     )<br />   )<br />   ;;4  主程序<br />   (command "undo" "be")<br />   (if (and (setq ss0 (ssget))<br />            (setq p0 (getpoint "\n >基点:"))<br />       )<br />     (do-copy ss0 p0)<br />   )<br /> <br /> <br /> 不能用啊！！！<br />   (command "undo" "e")<br />   (princ)<br /> )<br /> <br /> <br /> ;;---------------------------------另类拷贝AnotherCopy

njut_prince

自己顶起来，帮忙解决下咋

njut_prince

各位版主帮忙下！！！