天正高版本转t3，CAD云服务

树櫴希德

CAD云服务是一款免费的CAD云服务平台，支持转换天正T3格式的电子图纸，轻松解决天正图纸和CAD文件不同的问题，使用也非常的简单，不需要多余的工具。

1. ;获取所有字体样式
   
2. (defun EF:Style-getAllTextStyles (
   
3.                                    /
   
4.                                    TextStyles lstFonts
   
5.                                    Typeface Bold Italic CharSet PitchAndFamily
   
6.                                  )
   
7.   (setq TextStyles (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'TextStyles))
   
8.   (vlax-for TextStyle TextStyles
   
9.     (vla-getFont TextStyle 'Typeface 'Bold 'Italic 'CharSet 'PitchAndFamily)
   
10.     (setq lstFonts (cons
    
11.                      (list
    
12.                            (vla-get-Name TextStyle)
    
13.                            (vla-get-FontFile TextStyle)
    
14.                            (vla-get-BigFontFile TextStyle)
    
15.                            Typeface
    
16.                            (vla-get-Height TextStyle)
    
17.                            (vla-get-Width TextStyle)
    
18.                            (vla-get-ObliqueAngle TextStyle)
    
19.                          )
    
20.                      lstFonts
    
21.                    )
    
22.     )
    
23.   )
    
24.   (reverse lstFonts)
    
25. )
    
26. 
    
27. ;;167.7 [功能] Entmake居中单行文字
    
28. (defun EntmakeText (PT STR Textheigh style)
    
29.   (entmakeX
    
30.     (list '(0 . "TEXT")
    
31.    (cons 1 str)
    
32.    (cons 10 pt)
    
33.    (cons 40 Textheigh)
    
34.    (cons 11 pt)
    
35.     (cons 7 style)
    
36.    (cons 72 1)
    
37.    (cons 73 2)
    
38.     )
    
39.   )
    
40. )
    
41. 
    
42. (foreach a (EF:Style-getAllTextStyles)
    
43. 
    
44. 
    
45. (EntmakeText (getpoint"\n请点击位置：") "区123" 30 (car a))
    
46. 
    
47. 
    
48. 
    
49.   )
    
50. 
    
51. ;(nth 20 (EF:Style-getAllTextStyles))

;获取所有字体样式<br /> (defun EF:Style-getAllTextStyles (<br />                                    /<br />                                    TextStyles lstFonts<br />                                    Typeface Bold Italic CharSet PitchAndFamily<br />                                  )<br />   (setq TextStyles (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'TextStyles))<br />   (vlax-for TextStyle TextStyles<br />     (vla-getFont TextStyle 'Typeface 'Bold 'Italic 'CharSet 'PitchAndFamily)<br />     (setq lstFonts (cons<br />                      (list<br />                            (vla-get-Name TextStyle)<br />                            (vla-get-FontFile TextStyle)<br />                            (vla-get-BigFontFile TextStyle)<br />                            Typeface<br />                            (vla-get-Height TextStyle)<br />                            (vla-get-Width TextStyle)<br />                            (vla-get-ObliqueAngle TextStyle)<br />                          )<br />                      lstFonts<br />                    )<br />     )<br />   )<br />   (reverse lstFonts)<br /> )<br /> <br /> ;;167.7 [功能] Entmake居中单行文字<br /> (defun EntmakeText (PT STR Textheigh style)<br />   (entmakeX<br />     (list '(0 . "TEXT")<br />    (cons 1 str)<br />    (cons 10 pt)<br />    (cons 40 Textheigh)<br />    (cons 11 pt)<br />     (cons 7 style)<br />    (cons 72 1)<br />    (cons 73 2)<br />     )<br />   )<br /> )<br /> <br /> (foreach a (EF:Style-getAllTextStyles)<br /> <br /> <br /> (EntmakeText (getpoint"\n请点击位置：") "区123" 30 (car a))<br /> <br /> <br /> <br />   )<br /> <br /> ;(nth 20 (EF:Style-getAllTextStyles))

cghdy

代码和描述的不是同一个东西吗，怎么用