悬赏30币，求一个如下的功能

664571221

梁集中标注，输入命令  JZBZ   后选择集中标注后， 标注变为如下状态，三个文字是独立的

Gu_xl

664571221 发表于 2016-3-26 12:06
G版你好，能不能改成可以批量框选的

1. (defun c:jzbz (/ e el n n1 str1 str2)
   
2.   (if (setq ss (ssget '((0 . "text"))))
   
3.     (repeat (setq k (sslength ss))
   
4.       (setq e (ssname ss (setq k (1- k))))
   
5.       (setq txt (cdr (assoc 1 (setq el (entget e)))))
   
6.       (if (and
   
7.             (setq n (VL-STRING-SEARCH ")" txt 0))
   
8.             (or
   
9.               (setq n1 (VL-STRING-SEARCH "x" txt 0))
   
10.               (setq n1 (VL-STRING-SEARCH "X" txt 0))
    
11.             )
    
12.           )
    
13.         (progn
    
14.           (setq        str1
    
15.                  (rtos (* 0.001 (atof (substr txt (+ 2 n) (- n1 n 1))))
    
16.                        2
    
17.                        2
    
18.                  )
    
19.           )
    
20.           (setq str2 (rtos (* 0.001 (atof (substr txt (+ 2 n1)))) 2 2))
    
21.           (command "_copy" e "" "0,0,0" "5000,0,0")
    
22.           (entmod (subst (cons 1 str1)
    
23.                          (assoc 1 (Setq el (entget (entlast))))
    
24.                          el
    
25.                   )
    
26.           )
    
27.           (command "_copy" (entlast) "" "0,0,0" "2000,0,0")
    
28.           (entmod (subst (cons 1 str2)
    
29.                          (assoc 1 (Setq el (entget (entlast))))
    
30.                          el
    
31.                   )
    
32.           )
    
33.         )
    
34.       )
    
35.     )
    
36.   )
    
37.   (princ)
    
38. )

(defun c:jzbz (/ e el n n1 str1 str2)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (repeat (setq k (sslength ss))<br />       (setq e (ssname ss (setq k (1- k))))<br />       (setq txt (cdr (assoc 1 (setq el (entget e)))))<br />       (if (and<br />             (setq n (VL-STRING-SEARCH ")" txt 0))<br />             (or<br />               (setq n1 (VL-STRING-SEARCH "x" txt 0))<br />               (setq n1 (VL-STRING-SEARCH "X" txt 0))<br />             )<br />           )<br />         (progn<br />           (setq        str1<br />                  (rtos (* 0.001 (atof (substr txt (+ 2 n) (- n1 n 1))))<br />                        2<br />                        2<br />                  )<br />           )<br />           (setq str2 (rtos (* 0.001 (atof (substr txt (+ 2 n1)))) 2 2))<br />           (command "_copy" e "" "0,0,0" "5000,0,0")<br />           (entmod (subst (cons 1 str1)<br />                          (assoc 1 (Setq el (entget (entlast))))<br />                          el<br />                   )<br />           )<br />           (command "_copy" (entlast) "" "0,0,0" "2000,0,0")<br />           (entmod (subst (cons 1 str2)<br />                          (assoc 1 (Setq el (entget (entlast))))<br />                          el<br />                   )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

被承包的东子

没懂什么意思，可以表达的更详细一点

664571221

被承包的东子 发表于 2016-3-25 23:38
没懂什么意思，可以表达的更详细一点

老师就是开始的文字是第一张图片WKL17(1) 240*450
执行命令后变成  WKL17(1) 240*450       0.24    0.45,其中下面那个是文字的距离，三个文字是独立的，不过在同一水平

Gu_xl

1. (defun c:jzbz (/ e el n n1 str1 str2)
   
2.   (while (and (setq e (car (entsel "\n选择标注文字:")))
   
3.               (= "TEXT" (cdr (assoc 0 (setq el (entget e)))))
   
4.          )
   
5.     (setq txt (cdr (assoc 1 el)))
   
6.     (if (and
   
7.           (setq n (VL-STRING-SEARCH ")" txt 0))
   
8.           (or
   
9.             (setq n1 (VL-STRING-SEARCH "x" txt 0))
   
10.             (setq n1 (VL-STRING-SEARCH "X" txt 0))
    
11.             )
    
12.           )
    
13.       (progn
    
14.         (setq str1 (rtos (* 0.001 (atof (substr txt (+ 2 n) (- n1 n 1 )))) 2 2))
    
15.         (setq str2 (rtos (* 0.001 (atof (substr txt (+ 2 n1)))) 2 2))
    
16.         (command "_copy" e "" "0,0,0" "5000,0,0")
    
17.         (entmod (subst (cons 1 str1) (assoc 1 (Setq el (entget (entlast)))) el))
    
18.         (command "_copy" (entlast) "" "0,0,0" "2000,0,0")
    
19.         (entmod (subst (cons 1 str2) (assoc 1 (Setq el (entget (entlast)))) el))
    
20.         )
    
21.       )
    
22.   )
    
23.   (princ)
    
24. )

(defun c:jzbz (/ e el n n1 str1 str2)<br />   (while (and (setq e (car (entsel "\n选择标注文字:")))<br />               (= "TEXT" (cdr (assoc 0 (setq el (entget e)))))<br />          )<br />     (setq txt (cdr (assoc 1 el)))<br />     (if (and<br />           (setq n (VL-STRING-SEARCH ")" txt 0))<br />           (or<br />             (setq n1 (VL-STRING-SEARCH "x" txt 0))<br />             (setq n1 (VL-STRING-SEARCH "X" txt 0))<br />             )<br />           )<br />       (progn<br />         (setq str1 (rtos (* 0.001 (atof (substr txt (+ 2 n) (- n1 n 1 )))) 2 2))<br />         (setq str2 (rtos (* 0.001 (atof (substr txt (+ 2 n1)))) 2 2))<br />         (command "_copy" e "" "0,0,0" "5000,0,0")<br />         (entmod (subst (cons 1 str1) (assoc 1 (Setq el (entget (entlast)))) el))<br />         (command "_copy" (entlast) "" "0,0,0" "2000,0,0")<br />         (entmod (subst (cons 1 str2) (assoc 1 (Setq el (entget (entlast)))) el))<br />         )<br />       )<br />   )<br />   (princ)<br /> )

664571221

Gu_xl 发表于 2016-3-26 11:37

G版你好，能不能改成可以批量框选的