为什么出现删不掉的情况？

dyjwyqz5221

天正“连续标注”尺寸炸开一次变成“对齐标注”，在文字中心位置画半径400的圆后，无法删除“对齐标注”。
单句测试后，与炸开无关，与取得“对齐标注”尺寸的文字中心点函数(xdrx_dimension_textPosition x)有关。为什么？
(defun c:tt ( / ss)
        (if (setq ss (ssget '((0 . "TCH_DIMENSION2"))))
                (progn
                        (xd::begin)
                        (xdrx_sysvar_push '("osmode" 0 "cmdecho" 0))
                        (setq ss (xdrx_entity_explode ss t))
                        (mapcar
                                '(lambda(x)
                                        (xdrx_circle_make (xdrx_dimension_textPosition x) 400)       
                                )
                                (xdrx_pickset->ents ss)
                        )
                        (xdrx_sysvar_pop)
                        (xd::end)
                );;;progn
        )
)

newer

请上传下图纸，里面标明下哪个删不掉。

dyjwyqz5221

改成这样就可以了：
(defun c:tt ( / ss pts)
        (if (setq ss (ssget '((0 . "TCH_DIMENSION2"))))
                (progn
                        (xd::begin)
                        (xdrx_sysvar_push '("osmode" 0 "cmdecho" 0))
                        (setq ss (xdrx_entity_explode ss t)
                                pts (xdrx_dimension_textbox ss)
                        );;;setq
                        (mapcar
                                '(lambda(x)
                                        (xdrx_circle_make (XD::Pnts:Centroid x) 400)
                                )
                                pts
                        )
                        (xdrx_sysvar_pop)
                        (xd::end)
                );;;progn
        );;;if
)

newer

dyjwyqz5221 发表于 2019-1-7 17:32
改成这样就可以了：
(defun c:tt ( / ss pts)
        (if (setq ss (ssget '((0 . "TCH_DIMENSION2")))) ...

上面的也可以改成这样

1. (defun c:tt ( / ss pts)
   
2.         (if (setq ss (ssget '((0 . "TCH_DIMENSION2"))))
   
3.                 (progn
   
4.                         (xd::begin)
   
5.                         (xdrx_sysvar_push '("osmode" 0 "cmdecho" 0))
   
6.                         (setq ss (xdrx_entity_explode ss t)
   
7.                                 pts (xdrx_dimension_textbox ss)
   
8.                         );;;setq
   
9.                         (mapcar
   
10.                                 '(lambda(x)
    
11.                                         (xdrx_circle_make (xd::geom:get9pt pts 5) 400)
    
12.                                 )
    
13.                                 pts
    
14.                         )
    
15.                         (xdrx_sysvar_pop)
    
16.                         (xd::end)
    
17.                 );;;progn
    
18.         );;;if
    
19. )
    

(defun c:tt ( / ss pts)<br />         (if (setq ss (ssget '((0 . "TCH_DIMENSION2"))))<br />                 (progn<br />                         (xd::begin)<br />                         (xdrx_sysvar_push '("osmode" 0 "cmdecho" 0))<br />                         (setq ss (xdrx_entity_explode ss t)<br />                                 pts (xdrx_dimension_textbox ss)<br />                         );;;setq<br />                         (mapcar<br />                                 '(lambda(x)<br />                                         (xdrx_circle_make (xd::geom:get9pt pts 5) 400)<br />                                 )<br />                                 pts<br />                         )<br />                         (xdrx_sysvar_pop)<br />                         (xd::end)<br />                 );;;progn<br />         );;;if<br /> )<br />