批量把文字中心对齐到圆心

marting

1. (defun c:xdtb_txtatcen (/ ss x info cen pts ss1 e)
   
2.   (if (setq ss (xdrx-ssget
   
3.                  "\n选择圆<退出>:"
   
4.                  '((0 . "spline,circle,ellipse,*polyline"))
   
5.                )
   
6.       )
   
7.     (progn
   
8.       (xdrx-begin)
   
9.       (mapcar
   
10.         '(lambda (x)
    
11.            (if
    
12.              (and
    
13.                (xdrx-curve-isclosed x)
    
14.                (setq info (XD::Curve:IsCircArc x 0.01))
    
15.              )
    
16.               (progn
    
17.                 (setq cen (xdrx-getpropertyvalue (cadr info) "center"))
    
18.                 (setq pts (xdrx-getpropertyvalue
    
19.                             (cadr info)
    
20.                             "getsamplepoints"
    
21.                             (/ (xd::doc:getpickboxheight) 10.0)
    
22.                           )
    
23.                 )
    
24.                 (if (setq ss1 (ssget "cp" (xdrx-points-wcs2ucs (xd::pnts:open pts)) '((0 . "*text"))))
    
25.                   (progn
    
26.                     (setq e (ssname ss1 0))
    
27.                     (xdrx-entity-move e (xd::geom:get9pt e 5) cen)))
    
28.               )
    
29.            )
    
30.          )
    
31.         (xdrx-pickset->ents ss)
    
32.       )
    
33.       (xdrx-end)
    
34.     )
    
35.   )
    
36.   (princ)
    
37. )
    
38. 
    

(defun c:xdtb_txtatcen (/ ss x info cen pts ss1 e)<br />   (if (setq ss (xdrx-ssget<br />                  "\n选择圆<退出>:"<br />                  '((0 . "spline,circle,ellipse,*polyline"))<br />                )<br />       )<br />     (progn<br />       (xdrx-begin)<br />       (mapcar<br />         '(lambda (x)<br />            (if<br />              (and<br />                (xdrx-curve-isclosed x)<br />                (setq info (XD::Curve:IsCircArc x 0.01))<br />              )<br />               (progn<br />                 (setq cen (xdrx-getpropertyvalue (cadr info) "center"))<br />                 (setq pts (xdrx-getpropertyvalue<br />                             (cadr info)<br />                             "getsamplepoints"<br />                             (/ (xd::doc:getpickboxheight) 10.0)<br />                           )<br />                 )<br />                 (if (setq ss1 (ssget "cp" (xdrx-points-wcs2ucs (xd::pnts:open pts)) '((0 . "*text"))))<br />                   (progn<br />                     (setq e (ssname ss1 0))<br />                     (xdrx-entity-move e (xd::geom:get9pt e 5) cen)))<br />               )<br />            )<br />          )<br />         (xdrx-pickset->ents ss)<br />       )<br />       (xdrx-end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

a117034423

这个重要更懂你一些

Michael527

这个更有用，谢谢楼主的分享

chaozi5756

这个可以有。

香远益清

不错，很实用。

1028882406@qq.c

谢谢楼主  不错  很实用

showmyself

很好的工具，以后可以批量操作了

13678642166

好，实用，感谢分享

13174545660

感谢分享，非常实用