【已解决】CAD标注的文字为多行文字，如何设置为单行文字？

Mr.xu

CAD标注的文字为多行文字，如何设置为单行文字？

当我将标注用X炸开以后，发现文字为多行字，如何设置标注文字为单行文字呢？

newer

你要想炸开，炸开后，再炸开下文字就行了。
不想炸开标注，那标注文字是什么也就无所谓了。

王子

转换啊，，，，，没啥好办法

Mr.xu

大量的标注文字，需要炸开以后变成单行文字进行别的操作，现在需要炸开2次，第一次是把标注炸开，第二次是将标注炸开的多行字炸开为单行字  比较麻烦，所以先问问，有没有什么设置的方法将标注炸开以后直接变成单行字

newer

Mr.xu 发表于 2018-5-20 14:20
大量的标注文字，需要炸开以后变成单行文字进行别的操作，现在需要炸开2次，第一次是把标注炸开，第二次是 ...

直接说下你想要做什么？ 写程序就不用炸开。

Mr.xu

标注线段长度，然后将标注打开，只保留长度数字，并且是单行文字格式的。

LoveArx

Mr.xu 发表于 2018-5-20 19:38
标注线段长度，然后将标注打开，只保留长度数字，并且是单行文字格式的。

论坛前几天就有代码，找找

为什么要炸开呢，你把尺寸界限隐藏就行了。标注炸开不是好习惯。

WhoCanSay

估计标注是多行文字，想单行的话，只有找桌子公司了。

Mr.xu

已解决了！ 将标注文字设置颜色，然后用X炸开，然后根据颜色选择，在用X炸开一次。虽然比较麻烦，但是也没有别的办法了

newer

Mr.xu 发表于 2018-6-10 16:37
已解决了！ 将标注文字设置颜色，然后用X炸开，然后根据颜色选择，在用X炸开一次。虽然比较麻烦，但是也没 ...

你想要做什么呢？ 你这么做，他们还是标注吗？
你还是想得到那个文字，标注还在？

写个简单的代码就得到了，不用你这么麻烦。

Mr.xu

标注线段长度，我只需要标注的数字，并且是单行文字格式的数字。

newer

Mr.xu 发表于 2018-6-10 17:04
标注线段长度，我只需要标注的数字，并且是单行文字格式的数字。

说不清楚意思，
1、你是希望ACAD的标注命令，就给你标注出这样的东西，
2、还是通过程序，实现标注，只要单行的数字显示出来？

第一个，实现不了，CAD自身标注实体，文字和标注都在一起的。
第二个，N多种方法实现

说到底，你的问题是想ACAD标注出来的东西DIMENSION尺寸标注实体，炸开一次，就是单行文字吗？

没有二次开发写代码做不到的事情，
也改变不了ACAD自身实体数据类型的规定。

Mr.xu

第二种。。。。  

newer

Mr.xu 发表于 2018-6-10 17:35
第二种。。。。

一个例子，下面代码，标注直线的长度，字高50，间隙20，单行文字

1. (defun c:tt ()
   
2.   (if (setq e (car (xdrx_entsel "\n拾取直线<退出>:" '((0 . "LINE")))))
   
3.     (progn
   
4.       (setq len        (xdrx_getpropertyvalue e "length")
   
5.             vec        (xdrx_entity_getecs e)
   
6.             vec        (caddr vec)
   
7.       )
   
8.       (setq pt (xdrx_getpropertyvalue e "midpoint")
   
9.             pt (mapcar '+ pt (xdrx_vector_product vec 50.0))
   
10.       )
    
11.       (xdrx_text_make pt (rtos len 2 1) 20.0 (xdrx_getpropertyvalue e "angle"))
    
12.       (setq box (xdrx_text_box (entlast))
    
13.             pt1 (xd::geom:get9pt box 2))
    
14.       (xdrx_entity_move (entlast) pt1 pt)
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )
    
19. 
    

(defun c:tt ()<br />   (if (setq e (car (xdrx_entsel "\n拾取直线<退出>:" '((0 . "LINE")))))<br />     (progn<br />       (setq len        (xdrx_getpropertyvalue e "length")<br />             vec        (xdrx_entity_getecs e)<br />             vec        (caddr vec)<br />       )<br />       (setq pt (xdrx_getpropertyvalue e "midpoint")<br />             pt (mapcar '+ pt (xdrx_vector_product vec 50.0))<br />       )<br />       (xdrx_text_make pt (rtos len 2 1) 20.0 (xdrx_getpropertyvalue e "angle"))<br />       (setq box (xdrx_text_box (entlast))<br />             pt1 (xd::geom:get9pt box 2))<br />       (xdrx_entity_move (entlast) pt1 pt)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

newer

Mr.xu 发表于 2018-6-10 17:35
第二种。。。。

如果已经有标注了，想处理成只要一个单行文字，用下面的

1. (defun c:tt ()
   
2.   (if (and (xdrx_initssget "\n选取要处理的标注<退出>:")
   
3.            (setq ss (xdrx_ssget '((0 . "DIMENSION"))))
   
4.       )
   
5.     (progn
   
6.       (xdrx_setmark)
   
7.       (xdrx_entity_explode t ss)
   
8.       (setq ss (xdrx_getss))
   
9.       (setq ss (xd::pickset:getsub ss '((0 . "~text"))))
   
10.       (xdrx_entity_delete ss)
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    
15. 
    

(defun c:tt ()<br />   (if (and (xdrx_initssget "\n选取要处理的标注<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "DIMENSION"))))<br />       )<br />     (progn<br />       (xdrx_setmark)<br />       (xdrx_entity_explode t ss)<br />       (setq ss (xdrx_getss))<br />       (setq ss (xd::pickset:getsub ss '((0 . "~text"))))<br />       (xdrx_entity_delete ss)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />