各位大佬看一下。有圆圈围成的文字，能不能框选这些，合并圆圈内的文字，原来的文...

664571221

各位大佬看一下。有圆圈围成的文字，能不能框选这些，合并圆圈内的文字，原来的文字不变，在边上生成一个新的合并的文字  比如P  1这个文字，在边上生成一个P*1这样的文字,批量选择这些圆和文字

vitalgg

如果无法播放，请点击此处在新窗口打开

能。
步骤：
1、批量选圆
2、生成圆上8点。ssget 围栏选文字。
3、文字从上到下排序，合并文字

1. (setq ents-circle (pickset:to-list (ssget '((0 . "circle")))))
   
2. (foreach
   
3. circle% ents-circle
   
4. ;;  生成8分围栏点
   
5. (setq pts (curve:circle2pts circle% 8))
   
6. ;; 合并文字
   
7. (if (setq txts(pickset:to-list (ssget "cp" pts '((0 . "text")))))
   
8.      (progn
   
9.        (entity:make-text
   
10.   (string:from-list
    
11.    (mapcar '(lambda(x)
    
12.        (entity:getdxf x 1))
    
13.      (pickset:sort
    
14.       txts
    
15.       "Yx"
    
16.       0))
    
17.    "-")
    
18.   (polar
    
19.    (entity:getdxf circle% 10)
    
20.    0
    
21.    (entity:getdxf circle% 40))
    
22.   (* 0.3  (entity:getdxf circle% 40))
    
23.   0 0.72 0 "lb")
    
24.   )))

(setq ents-circle (pickset:to-list (ssget '((0 . "circle")))))<br /> (foreach<br /> circle% ents-circle<br /> ;;  生成8分围栏点<br /> (setq pts (curve:circle2pts circle% 8))<br /> ;; 合并文字<br /> (if (setq txts(pickset:to-list (ssget "cp" pts '((0 . "text")))))<br />      (progn<br />        (entity:make-text<br />   (string:from-list<br />    (mapcar '(lambda(x)<br />        (entity:getdxf x 1))<br />      (pickset:sort<br />       txts<br />       "Yx"<br />       0))<br />    "-")<br />   (polar<br />    (entity:getdxf circle% 10)<br />    0<br />    (entity:getdxf circle% 40))<br />   (* 0.3  (entity:getdxf circle% 40))<br />   0 0.72 0 "lb")<br />   )))

运行以上代码，需@lisp函数库支持，扫码了解更多。

韩飞翔

嗯，你说的是圆结果是多段线并非真的圆

韩飞翔

(defun c:tt(/ a1 a2 a3 i lst lst1 s1 ss ssa)
        (xyp-start)
        (setq
                ss (ssget '((0 . "CIRCLE,LWPOLYLINE")))
                lst (xyp-ss2list ss)
                i -1
        )
        (while (< (setq i (1+ i)) (length lst))
                (setq
                        s1 (nth i lst)
                        p (polar (xyp-9pt s1 6) 0 200)
                        ssa (ssget "c" (xyp-9pt s1 1) (xyp-9pt s1 9) '((0 . "TEXT")))
                )
                (cond
                        ((and (= 2 (sslength ssa)) (= "CIRCLE" (xyp-dxf 0 s1)))
                                (setq
                                        lst1 (xyp-ss2list ssa)
                                        lst1 (vl-sort lst1 '(lambda(x y) (> (cadr (xyp-dxf 10 x)) (cadr (xyp-dxf 10 y)))))
                                        a1 (xyp-dxf 1 (car lst1))
                                        a2 (xyp-dxf 1 (cadr lst1))
                                        a3 (strcat a1 "-" a2)
                                )
                                (xyp-Add-Text a3 p (xyp-dxf 40 (car lst1)))
                        )       
                        ((and (= 2 (sslength ssa)) (= "LWPOLYLINE" (xyp-dxf 0 s1)) (= 1 (xyp-dxf 70 s1)))
                                (setq
                                        lst1 (xyp-ss2list ssa)
                                        lst1 (vl-sort lst1 '(lambda(x y) (> (cadr (xyp-dxf 10 x)) (cadr (xyp-dxf 10 y)))))
                                        a1 (xyp-dxf 1 (car lst1))
                                        a2 (xyp-dxf 1 (cadr lst1))
                                        a3 (strcat a1 "-" a2)
                                )
                                (xyp-Add-Text a3 p (xyp-dxf 40 (car lst1)))
                        )
                )
        )
        (xyp-end)
)

韩飞翔

用院长函数，给院长宣传一下
没有最好，只有更好；
E派工具群号：24942984