[编程申请]：软件生成的尺寸修改成真正的dim！

石头哥

软件Mst生成的尺寸实际上是线和文字画出来的，差不多类似炸开的尺寸线，我想实现框选变成真正的尺寸！
想法如下：
   过滤text，图层3,颜色为7的文字，获得文字的大小，根据文字值，在文字的相应位置生成尺寸。最后删除软件画出的尺寸线！

石头哥

以下为dwg图纸！
谢谢！

狂刀

理论上是可以做到的

eachy

使用 Qdim 选择圆圈重新标注

石头哥

最初由 eachy 发布
[B]使用 Qdim 选择圆圈重新标注 [/B]

原来我也是这样做的，但要经过多次调整，而且有时候过滤圆也不方便，不是平面，可能是曲线的。
所以我还是想通过lisp实现，现在就是如何通过textbox获得文字的中心点卡住了，请大家给我点提示，如何得到text的中心位置的坐标，谢谢！

eachy

联机帮助中有详细的例子获取Text的Box

coolzhb

最初由 石头哥 发布
[B]软件Mst生成的尺寸实际上是线和文字画出来的，差不多类似炸开的尺寸线，我想实现框选变成真正的尺寸！
想法如下：
   过滤text，图层3,颜色为7的文字，获得文字的大小，根据文字值，在文字的相应位置生成尺寸。最?.. [/B]

程序如下，拿去用！

2. 
   
3.   [FONT=courier new]
   
4. (defun c:text2dim (/ a an ang b bn c cn e en j name p1 p2 p3 p4 ss p0)
   
5.   (defun midp (p1 p2 / p0)
   
6.     (setq p0 (list (/ (+ (car p1) (car p2)) 2.0) (/ (+ (cadr p1)
   
7.                                                        (cadr p2)
   
8.                                                     ) 2.0
   
9.                                                  )
   
10.              )
    
11.     )
    
12.   )
    
13.   (setvar "osmode" 0)
    
14.   (prompt "\n请选取要处理成尺寸的文字<全选>:")
    
15.   (setq ss (ssget "x" '((0 . "Text") (8 . "3"))))
    
16.   (setq j 0)
    
17.   (command "undo" "group")
    
18.   (repeat (sslength ss)
    
19.     (setq e (ssname ss j)
    
20.           en (entget e)
    
21.           p0 (cdr (assoc 10 en))
    
22.           name (cdr (assoc 1 en))
    
23.           ang (cdr (assoc 50 en))
    
24.           sinrot (sin ang)
    
25.           cosrot (cos ang)
    
26.           t1 (car (textbox en))
    
27.           t2 (cadr (textbox en))
    
28.           p1 (list (+ (car p0) (- (* (car t1) cosrot) (* (cadr t1) sinrot)))
    
29.                    (+ (cadr p0) (+ (* (car t1) sinrot) (* (cadr t1) cosrot)))
    
30.              )
    
31.           p2 (list (+ (car p0) (- (* (car t2) cosrot) (* (cadr t1) sinrot)))
    
32.                    (+ (cadr p0) (+ (* (car t2) sinrot) (* (cadr t1) cosrot)))
    
33.              )
    
34.           p3 (list (+ (car p0) (- (* (car t2) cosrot) (* (cadr t2) sinrot)))
    
35.                    (+ (cadr p0) (+ (* (car t2) sinrot) (* (cadr t2) cosrot)))
    
36.              )
    
37.           p4 (list (+ (car p0) (- (* (car t1) cosrot) (* (cadr t2) sinrot)))
    
38.                    (+ (cadr p0) (+ (* (car t1) sinrot) (* (cadr t2) cosrot)))
    
39.              )
    
40. 
    
41.           pt (midp p1 p3)
    
42.     )
    
43.     (setq dimp11 (polar pt (+ ang pi) (/ (atof name) 2.0))
    
44.           dimp22 (polar pt ang (/ (atof name) 2.0))
    
45.     )
    
46.     (setq dimp1 (polar dimp11 (+ ang (* 0.5 pi)) 800)
    
47.           dimp2 (polar dimp22 (+ ang (* 0.5 pi)) 800)
    
48.     )
    
49.     (command "dim" "rot" (* (/ ang pi) 180.) dimp1 dimp2 pt "" "e")
    
50.     (setq j (1+ j))
    
51.   )
    
52.   (setq ss (ssget "x" '((8 . "3") (62 . 7))))
    
53.   (command "ERASE" ss "")
    
54.   (command "undo" "end")
    
55.   (princ)
    
56. )
    
57. 
    
58. (prompt "\nText2Dim By coolzhb [[url]www.xdcad.net[/url]]")
    
59. 
    
60.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:text2dim (/ a an ang b bn c cn e en j name p1 p2 p3 p4 ss p0)<br />   (defun midp (p1 p2 / p0)<br />     (setq p0 (list (/ (+ (car p1) (car p2)) 2.0) (/ (+ (cadr p1)<br />                                                        (cadr p2)<br />                                                     ) 2.0<br />                                                  )<br />              )<br />     )<br />   )<br />   (setvar "osmode" 0)<br />   (prompt "\n请选取要处理成尺寸的文字<全选>:")<br />   (setq ss (ssget "x" '((0 . "Text") (8 . "3"))))<br />   (setq j 0)<br />   (command "undo" "group")<br />   (repeat (sslength ss)<br />     (setq e (ssname ss j)<br />           en (entget e)<br />           p0 (cdr (assoc 10 en))<br />           name (cdr (assoc 1 en))<br />           ang (cdr (assoc 50 en))<br />           sinrot (sin ang)<br />           cosrot (cos ang)<br />           t1 (car (textbox en))<br />           t2 (cadr (textbox en))<br />           p1 (list (+ (car p0) (- (* (car t1) cosrot) (* (cadr t1) sinrot)))<br />                    (+ (cadr p0) (+ (* (car t1) sinrot) (* (cadr t1) cosrot)))<br />              )<br />           p2 (list (+ (car p0) (- (* (car t2) cosrot) (* (cadr t1) sinrot)))<br />                    (+ (cadr p0) (+ (* (car t2) sinrot) (* (cadr t1) cosrot)))<br />              )<br />           p3 (list (+ (car p0) (- (* (car t2) cosrot) (* (cadr t2) sinrot)))<br />                    (+ (cadr p0) (+ (* (car t2) sinrot) (* (cadr t2) cosrot)))<br />              )<br />           p4 (list (+ (car p0) (- (* (car t1) cosrot) (* (cadr t2) sinrot)))<br />                    (+ (cadr p0) (+ (* (car t1) sinrot) (* (cadr t2) cosrot)))<br />              )<br /> <br />           pt (midp p1 p3)<br />     )<br />     (setq dimp11 (polar pt (+ ang pi) (/ (atof name) 2.0))<br />           dimp22 (polar pt ang (/ (atof name) 2.0))<br />     )<br />     (setq dimp1 (polar dimp11 (+ ang (* 0.5 pi)) 800)<br />           dimp2 (polar dimp22 (+ ang (* 0.5 pi)) 800)<br />     )<br />     (command "dim" "rot" (* (/ ang pi) 180.) dimp1 dimp2 pt "" "e")<br />     (setq j (1+ j))<br />   )<br />   (setq ss (ssget "x" '((8 . "3") (62 . 7))))<br />   (command "ERASE" ss "")<br />   (command "undo" "end")<br />   (princ)<br /> )<br /> <br /> (prompt "\nText2Dim By coolzhb [[url]www.xdcad.net[/url]]")<br /> <br />   [/FONT]<br />

yzr20020626

老大用不起，在2002中是参数错误，在2006中一闪就没的了。不让你选择文字

它山之石

最初由 yzr20020626 发布
[B]老大用不起，在2002中是参数错误，在2006中一闪就没的了。不让你选择文字 [/B]

首先要保证你要改的数字在图层“3”上。
修改后再试试。

xyp1964

最初由 yzr20020626 发布
[B]老大用不起，在2002中是参数错误，在2006中一闪就没的了。不让你选择文字 [/B]

试试：

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. ;;;数字文本改尺寸标注
    
16. (defun c:test ()
    
17.   (CMDLASC0)
    
18.   (mkla "标注" 3)
    
19.   (setvar "osmode" 0)  
    
20.   (prompt "\n选择数字文本 : ")
    
21.   (setq        ss (ssget '((0 . "TEXT")))
    
22.         i  -1
    
23.   )
    
24.   (repeat (sslength ss)
    
25.     (setq S1 (ssname ss (setq i (1+ i))))
    
26.     (command "ucs" "Entity" S1)
    
27.     (setq SE (entget S1)
    
28.           tx (dxf 1 SE)
    
29.     )
    
30.     (if        (setq leng (distof tx))
    
31.       (progn
    
32.         (setq rad  (dxf 50 SE)
    
33.               th   (dxf 40 SE)
    
34.               M           (textbox (list (cons -1 S1)))
    
35.               pt1  (car M)
    
36.               pt2  (cadr M)
    
37.               pt00 (_midp pt1 pt2)
    
38.               pt0  (polar pt00 (- rad (* pi 0.5)) (+ (* th 0.5) (* 100 sc)))
    
39.               pt01 (polar pt0 (+ rad (* pi 0.5)) (* 1500 sc))
    
40.               pt1  (polar pt01 rad (* leng 0.5))
    
41.               pt2  (polar pt01 rad (* leng -0.5))
    
42.         )
    
43.         (entdel s1)
    
44.         (command "dim1" "rot" pt1 pt2 pt1 pt2 pt0 "")
    
45.       )
    
46.     )
    
47.   )
    
48.   (CMDLA1)
    
49. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> ;;;数字文本改尺寸标注<br /> (defun c:test ()<br />   (CMDLASC0)<br />   (mkla "标注" 3)<br />   (setvar "osmode" 0)  <br />   (prompt "\n选择数字文本 : ")<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         i  -1<br />   )<br />   (repeat (sslength ss)<br />     (setq S1 (ssname ss (setq i (1+ i))))<br />     (command "ucs" "Entity" S1)<br />     (setq SE (entget S1)<br />           tx (dxf 1 SE)<br />     )<br />     (if        (setq leng (distof tx))<br />       (progn<br />         (setq rad  (dxf 50 SE)<br />               th   (dxf 40 SE)<br />               M           (textbox (list (cons -1 S1)))<br />               pt1  (car M)<br />               pt2  (cadr M)<br />               pt00 (_midp pt1 pt2)<br />               pt0  (polar pt00 (- rad (* pi 0.5)) (+ (* th 0.5) (* 100 sc)))<br />               pt01 (polar pt0 (+ rad (* pi 0.5)) (* 1500 sc))<br />               pt1  (polar pt01 rad (* leng 0.5))<br />               pt2  (polar pt01 rad (* leng -0.5))<br />         )<br />         (entdel s1)<br />         (command "dim1" "rot" pt1 pt2 pt1 pt2 pt0 "")<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

yzr20020626

用起了，谢谢。但我想问下你这程序是以文字的中心为准的?原来的标注文字移了的话，标出来的就不对了.

zjfcumt

如果我标注的文字不是按照比例画的，而是手动修改的，上面的程序好象就标不对了

xyp1964

最初由 zjfcumt 发布
[B]如果我标注的文字不是按照比例画的，而是手动修改的，上面的程序好象就标不对了 [/B]

万用程序是不存在的！
一般程序只适于某种特定的用途。

6623674

广厦结构cad生成的图纸,文字不是对中的，这程序就没用了。

eachy

最初由 zjfcumt 发布
[B]如果我标注的文字不是按照比例画的，而是手动修改的，上面的程序好象就标不对了 [/B]

打开MST生成的图，先改成Dim，然后再修改。