文字批量替换，数字递增 （有些小问题，但是程序可以正常用）

zhb236623

问题有三个：SSGET选择,  
一 、SSGET :;(setq dff "302002")
;(setq ss (ssget  (list (list -3 ( list "south" (cons 1000 dff))))))  这句要怎么写？因为图纸中有很多文字，直接用这句不好框选(setq ss (ssget  '((0 . "*TEXT"))))

。
(setq ss (ssget "x" (list (list -3 ( list "south" (cons 1000 dff))))))如果不要整个图形选，要框选要怎么改呢。？
二 、getstring
(if (not  (setq dh_n (getstring "\n请输入地号（前缀）四位数 <0001>: ")))
      (setq dh_n "0001")
  )
这里直接按回车dh_n值 为空，要怎样才能按空格使(setq dh_n "0001")这句生效。

三 、entmake   用法不太会，盼高手解答下
有这三个)(cons 71 1)(cons 72 1)(cons 73 1)就要加(cons 11 insertp_mid)(cons 10 insertp_mid) 那生成的时候用的哪个坐标

;;(entmake (list '(0 . "TEXT") (cons 1 wz) (cons 7  "仿宋体") (cons 11 insertp_mid)(cons 10 insertp_mid) (cons 40 0.5)(cons 41 0.8)(cons 71 1)(cons 72 1)(cons 73 1)(cons 8 "jj")))
只好用这个方法生成文字
(command ".style" "仿宋体" "仿宋_GB2312" wz_dx 0.8 0 "" "")
(command ".text" "j" "bc" insertp_mid 0 wz)

测试图纸发上来了。
之前发过的一个帖子。http://bbs.mjtd.com/thread-106952-1-1.html

2. 
   
3. (defun c:tt()
   
4. 
   
5. (if (= (tblobjname "layer" "JMD_zd01") nil)
   
6. (progn
   
7.    (command ".layer" "n" "JMD_zd01" "s" "JMD_zd01" "")
   
8. )
   
9. (progn
   
10. (command "layer" "s" "JMD_zd01" "")
    
11.    )
    
12. )
    
13. 
    
14. 
    
15. (vl-load-com)
    
16. (setq ss (ssget  '((0 . "*TEXT"))))
    
17. ;(regapp "south")
    
18. 
    
19. 
    
20. ;(setq dff "302002")
    
21. ;(setq ss (ssget  (list (list -3 ( list "south" (cons 1000 dff))))))
    
22. ;(ssget (list (list -3(list "SOUTH"))))
    
23. ;(setq ss (ssget   (list -3 ( list "south" (cons 1000 dff)))))
    
24. 
    
25. (if (not  (setq dh_n (getstring "\n请输入地号（前缀）四位数 <0001>: ")))
    
26.       (setq dh_n "0001")
    
27.   )   
    
28. 
    
29. 
    
30. 
    
31. (if (not (setq n1 (getint "\n请输入尾数起始顺序号 <1>: ")))
    
32.     (setq n1 1)
    
33.   )
    
34.   
    
35.   (if (not (setq wz_dx (getdist "\n请输入文字大小 <0.6>: ")))
    
36.     (setq wz_dx 0.6)
    
37.   )
    
38.   
    
39. ;;地号最后三位数不够补0，例3＝003，34＝034，189＝189
    
40. ;(command ".style" "仿宋体" "仿宋_GB2312" wzstyle 1 0 "" "")
    
41.   (setq slist nil)
    
42.   (setq i 0)
    
43. 
    
44.     (repeat (sslength ss)
    
45.     (setq en (ssname ss i))                                    ;(setq en (entget ssn))
    
46.    
    
47.     ;| (vla-getboundingbox        (vlax-ename->vla-object en)
    
48.                         'minpoint
    
49.                         'maxpoint
    
50.     )
    
51.     (setq pmax (vlax-safearray->list maxpoint)
    
52.           pmin (vlax-safearray->list minpoint)
    
53.     )
    
54.     (setq xmin (car pmin))
    
55.     (setq xmax (car pmax))
    
56.     (setq ymin (cadr pmin))
    
57.     (setq ymax (cadr pmax))
    
58.     (setq xmid (/ (+ xmin xmax) 2))
    
59.     ;;(setq ymid ( / ( + ymin ymax) 2))
    
60.     (setq xmid_ymax (list xmid ymin)) |;
    
61.    
    
62.      (setq ept (entget en))
    
63.     (setq lxyz (cdr (assoc 11  ept)))
    
64.     (setq xx (car lxyz))
    
65.     (setq yy (cadr lxyz))
    
66.     (setq xmid_ymax (list xx yy))
    
67.    
    
68.    
    
69.     (setq slist (cons xmid_ymax slist))
    
70.         (setq i (1+ i))
    
71.   )  
    
72. ;;;关键就是这里了，排序，1e-6为容差，意思是1乘以10的负6次方。你可以自己改  
    
73. ;;(setq tmp_slist (dh_zhy_sort_pt slist 1e-6))
    
74.   (setq tmp_slist (dh_zhy_sort_pt slist 3))
    
75.   (foreach insertp_mid tmp_slist
    
76.     ;;(setq insertp_move (pmove insertp_mid 0 wz_insertp_move_down))   ;;;最后一位为向下移动距离
    
77.                
    
78. (cond
    
79.     (  (< n1 10)
    
80.      (setq wz_n  (strcat "00" (itoa n1)))
    
81.                 )
    
82.     ( (< 9 n1 100)
    
83.            
    
84.                                 (setq wz_n  (strcat "0" (itoa n1)))
    
85.     )
    
86.     ( (> n1 99)
    
87.            
    
88.                                 (setq wz_n (itoa n1))         
    
89.     )
    
90. )
    
91. 
    
92. ;;;;;;;;;;
    
93. ;(princ insertp_mid   )
    
94. ;(setq insertp_mid_tt (list 100 300))
    
95. ;(princ insertp_mid_tt   )
    
96.    ;(entmake (list '(0 . "TEXT") (cons 1 "me1") (cons 7  "仿宋体") (cons 11 insertp_mid_tt) (cons 10 insertp_mid_tt)(cons 40 0.5)(cons 41 0.8)(cons 71 1)(cons 72 1)(cons 73 1)(cons 8 "jj")))
    
97. 
    
98.    ;;;;;;;;;;;;;            
    
99.                
    
100.           (setq wz (strcat dh_n wz_n))          ;;;  
     
101. ;;;就是要如何才能更改这个坐标点对应的文字呢？
     
102. ;;直接生成文字可能还更容易……
     
103. ;;(setq P_center_fz_nn_d1 (list 3 5))
     
104. 
     
105. ;;(entmake (list '(0 . "TEXT") (cons 1 wz) (cons 7  "仿宋体") (cons 11 insertp_mid)(cons 10 insertp_mid) (cons 40 0.5)(cons 41 0.8)(cons 71 1)(cons 72 1)(cons 73 1)(cons 8 "jj")))
     
106. (command ".style" "仿宋体" "仿宋_GB2312" wz_dx 0.8 0 "" "")
     
107. (command ".text" "j" "bc" insertp_mid 0 wz)
     
108.    (setq n1 (+ n1 1))
     
109.   )
     
110.   
     
111.   
     
112.   (command "erase" ss "")
     
113. 
     
114.   (setq ss1 (ssget "x" '((0 . "text")(8 . "JMD_zd01"))))
     
115.   
     
116. (command "putp" "c" "302002"  ss1 "")
     
117. (command "layer" "s" "0" "")
     
118.   )
     
119. 
     
120. 
     
121. 
     
122. 
     
123. 
     
124. 
     
125. 
     
126. ;;;;取得点集行数，将每行的y坐标列表，lst为点坐标表，rc为容差
     
127. (defun y_lst (lst rc / it lst2)
     
128.   (while (setq lst2 (cons (setq it (cadr (car lst))) lst2)
     
129.                lst  (vl-remove-if '(lambda (x) (equal it (cadr x) rc)) lst)
     
130.          )
     
131.   )
     
132.   (vl-sort lst2 (function (lambda (e1 e2) (> e1 e2))))
     
133. )
     
134. ;;;将点集按从上到下，从左到右的顺序排序。pt_lst为点坐标表，rc为容差
     
135. (defun dh_zhy_sort_pt (pt_lst rc /        pt_y lst1 pt_lst_new n1        n2 m1 m2 pt_y_a        pt_lst_a lst2)
     
136.   (setq pt_y (y_lst pt_lst rc))
     
137.   (setq pt_lst_new '())
     
138.   (setq lst1 '())
     
139.   (setq m1 0)
     
140.   (setq n1 (length pt_y))
     
141.   (setq n2 (length pt_lst))
     
142.   (while (/= m1 n1)
     
143.     (setq pt_y_a (nth m1 pt_y))
     
144.     (setq m2 0)
     
145.     (while (/= m2 n2)
     
146.       (setq pt_lst_a (nth m2 pt_lst))
     
147.       (if (equal pt_y_a (cadr pt_lst_a) rc)
     
148.         (setq lst1 (cons pt_lst_a lst1))
     
149.       )
     
150.       (setq m2 (1+ m2))
     
151.     )
     
152.     (if        (/= (length lst1) 1)
     
153.       (setq lst1 (vl-sort lst1
     
154.                           (function (lambda (e1 e2) (< (car e1) (car e2))))
     
155.                  )
     
156.       )
     
157.     )
     
158.     (setq pt_lst_new (cons lst1 pt_lst_new))
     
159.     (setq lst1 '())
     
160.     (setq m1 (1+ m1))
     
161.   )
     
162.   (setq pt_lst_new (reverse pt_lst_new))
     
163.   (setq n1 (length pt_lst_new))
     
164.   (setq m1 0)
     
165.   (setq lst2 '())
     
166.   (while (/= m1 n1)
     
167.     (setq lst1 (nth m1 pt_lst_new))
     
168.     (setq n2 (length lst1))
     
169.     (setq m2 0)
     
170.     (while (/= m2 n2)
     
171.       (setq lst (nth m2 lst1))
     
172.       (setq lst2 (cons lst lst2))
     
173.       (setq m2 (1+ m2))
     
174.     )
     
175.     (setq m1 (1+ m1))
     
176.   )
     
177.   (reverse lst2)
     
178. )

<br /> (defun c:tt()<br /> <br /> (if (= (tblobjname "layer" "JMD_zd01") nil)<br /> (progn<br />    (command ".layer" "n" "JMD_zd01" "s" "JMD_zd01" "")<br /> )<br /> (progn<br /> (command "layer" "s" "JMD_zd01" "")<br />    )<br /> )<br /> <br /> <br /> (vl-load-com)<br /> (setq ss (ssget  '((0 . "*TEXT"))))<br /> ;(regapp "south")<br /> <br /> <br /> ;(setq dff "302002")<br /> ;(setq ss (ssget  (list (list -3 ( list "south" (cons 1000 dff))))))<br /> ;(ssget (list (list -3(list "SOUTH")))) <br /> ;(setq ss (ssget   (list -3 ( list "south" (cons 1000 dff)))))<br /> <br /> (if (not  (setq dh_n (getstring "\n请输入地号（前缀）四位数 <0001>: ")))<br />       (setq dh_n "0001")<br />   )    <br /> <br /> <br /> <br /> (if (not (setq n1 (getint "\n请输入尾数起始顺序号 <1>: ")))<br />     (setq n1 1)<br />   )<br />   <br />   (if (not (setq wz_dx (getdist "\n请输入文字大小 <0.6>: ")))<br />     (setq wz_dx 0.6)<br />   )<br />   <br /> ;;地号最后三位数不够补0，例3＝003，34＝034，189＝189<br /> ;(command ".style" "仿宋体" "仿宋_GB2312" wzstyle 1 0 "" "")<br />   (setq slist nil)<br />   (setq i 0)<br /> <br />     (repeat (sslength ss)<br />     (setq en (ssname ss i))                                    ;(setq en (entget ssn))<br />     <br />     ;| (vla-getboundingbox        (vlax-ename->vla-object en)<br />                         'minpoint<br />                         'maxpoint<br />     )<br />     (setq pmax (vlax-safearray->list maxpoint)<br />           pmin (vlax-safearray->list minpoint)<br />     )<br />     (setq xmin (car pmin))<br />     (setq xmax (car pmax))<br />     (setq ymin (cadr pmin))<br />     (setq ymax (cadr pmax))<br />     (setq xmid (/ (+ xmin xmax) 2))<br />     ;;(setq ymid ( / ( + ymin ymax) 2))<br />     (setq xmid_ymax (list xmid ymin)) |;<br />     <br />      (setq ept (entget en))<br />     (setq lxyz (cdr (assoc 11  ept)))<br />     (setq xx (car lxyz))<br />     (setq yy (cadr lxyz))<br />     (setq xmid_ymax (list xx yy))<br />     <br />     <br />     (setq slist (cons xmid_ymax slist))<br />         (setq i (1+ i))<br />   )  <br /> ;;;关键就是这里了，排序，1e-6为容差，意思是1乘以10的负6次方。你可以自己改  <br /> ;;(setq tmp_slist (dh_zhy_sort_pt slist 1e-6))<br />   (setq tmp_slist (dh_zhy_sort_pt slist 3))<br />   (foreach insertp_mid tmp_slist<br />     ;;(setq insertp_move (pmove insertp_mid 0 wz_insertp_move_down))   ;;;最后一位为向下移动距离<br />                 <br /> (cond<br />     (  (< n1 10)<br />      (setq wz_n  (strcat "00" (itoa n1)))<br />                 )<br />     ( (< 9 n1 100)<br />            <br />                                 (setq wz_n  (strcat "0" (itoa n1)))<br />     )<br />     ( (> n1 99)<br />            <br />                                 (setq wz_n (itoa n1))         <br />     )<br /> )<br /> <br /> ;;;;;;;;;;<br /> ;(princ insertp_mid   )<br /> ;(setq insertp_mid_tt (list 100 300))<br /> ;(princ insertp_mid_tt   )<br />    ;(entmake (list '(0 . "TEXT") (cons 1 "me1") (cons 7  "仿宋体") (cons 11 insertp_mid_tt) (cons 10 insertp_mid_tt)(cons 40 0.5)(cons 41 0.8)(cons 71 1)(cons 72 1)(cons 73 1)(cons 8 "jj")))<br /> <br />    ;;;;;;;;;;;;;             <br />                 <br />           (setq wz (strcat dh_n wz_n))          ;;;  <br /> ;;;就是要如何才能更改这个坐标点对应的文字呢？<br /> ;;直接生成文字可能还更容易……<br /> ;;(setq P_center_fz_nn_d1 (list 3 5))<br /> <br /> ;;(entmake (list '(0 . "TEXT") (cons 1 wz) (cons 7  "仿宋体") (cons 11 insertp_mid)(cons 10 insertp_mid) (cons 40 0.5)(cons 41 0.8)(cons 71 1)(cons 72 1)(cons 73 1)(cons 8 "jj")))<br /> (command ".style" "仿宋体" "仿宋_GB2312" wz_dx 0.8 0 "" "")<br /> (command ".text" "j" "bc" insertp_mid 0 wz)<br />    (setq n1 (+ n1 1))<br />   )<br />   <br />   <br />   (command "erase" ss "")<br /> <br />   (setq ss1 (ssget "x" '((0 . "text")(8 . "JMD_zd01"))))<br />   <br /> (command "putp" "c" "302002"  ss1 "")<br /> (command "layer" "s" "0" "")<br />   )<br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> ;;;;取得点集行数，将每行的y坐标列表，lst为点坐标表，rc为容差 <br /> (defun y_lst (lst rc / it lst2)<br />   (while (setq lst2 (cons (setq it (cadr (car lst))) lst2)<br />                lst  (vl-remove-if '(lambda (x) (equal it (cadr x) rc)) lst)<br />          )<br />   )<br />   (vl-sort lst2 (function (lambda (e1 e2) (> e1 e2))))<br /> )<br /> ;;;将点集按从上到下，从左到右的顺序排序。pt_lst为点坐标表，rc为容差<br /> (defun dh_zhy_sort_pt (pt_lst rc /        pt_y lst1 pt_lst_new n1        n2 m1 m2 pt_y_a        pt_lst_a lst2)<br />   (setq pt_y (y_lst pt_lst rc))<br />   (setq pt_lst_new '())<br />   (setq lst1 '())<br />   (setq m1 0)<br />   (setq n1 (length pt_y))<br />   (setq n2 (length pt_lst))<br />   (while (/= m1 n1)<br />     (setq pt_y_a (nth m1 pt_y))<br />     (setq m2 0)<br />     (while (/= m2 n2)<br />       (setq pt_lst_a (nth m2 pt_lst))<br />       (if (equal pt_y_a (cadr pt_lst_a) rc)<br />         (setq lst1 (cons pt_lst_a lst1))<br />       )<br />       (setq m2 (1+ m2))<br />     )<br />     (if        (/= (length lst1) 1)<br />       (setq lst1 (vl-sort lst1<br />                           (function (lambda (e1 e2) (< (car e1) (car e2))))<br />                  )<br />       )<br />     )<br />     (setq pt_lst_new (cons lst1 pt_lst_new))<br />     (setq lst1 '())<br />     (setq m1 (1+ m1))<br />   )<br />   (setq pt_lst_new (reverse pt_lst_new))<br />   (setq n1 (length pt_lst_new))<br />   (setq m1 0)<br />   (setq lst2 '())<br />   (while (/= m1 n1)<br />     (setq lst1 (nth m1 pt_lst_new))<br />     (setq n2 (length lst1))<br />     (setq m2 0)<br />     (while (/= m2 n2)<br />       (setq lst (nth m2 lst1))<br />       (setq lst2 (cons lst lst2))<br />       (setq m2 (1+ m2))<br />     )<br />     (setq m1 (1+ m1))<br />   )<br />   (reverse lst2)<br /> )

kitefall

顶一下

偏爱云~小吴

顶一下只是数字递增么

清风明月名字

上面代码和我用VBA写的编制页码的程序是相似的，一个是VBA，一个是LISP。谢谢楼主分享

yxl88168

这个搞好了吗，能发个源程序给我不，我的邮箱是yxl33168@163.com 谢谢你