社区 › AutoCAD与GIS测绘 › 天正高版本转t3，CAD云服务

树櫴希德 发表于 2021-1-28 17:32

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

CAD云服务是一款免费的CAD云服务平台，支持转换天正T3格式的电子图纸，轻松解决天正图纸和CAD文件不同的问题，使用也非常的简单，不需要多余的工具。
;获取所有字体样式
(defun EF:Style-getAllTextStyles (
                                 /
                                 TextStyles lstFonts
                                 Typeface Bold Italic CharSet PitchAndFamily
                                 )
(setq TextStyles (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'TextStyles))
(vlax-for TextStyle TextStyles
    (vla-getFont TextStyle 'Typeface 'Bold 'Italic 'CharSet 'PitchAndFamily)
    (setq lstFonts (cons
                     (list
                           (vla-get-Name TextStyle)
                           (vla-get-FontFile TextStyle)
                           (vla-get-BigFontFile TextStyle)
                           Typeface
                           (vla-get-Height TextStyle)
                           (vla-get-Width TextStyle)
                           (vla-get-ObliqueAngle TextStyle)
                         )
                     lstFonts
                   )
    )
)
(reverse lstFonts)
)

;;167.7 [功能] Entmake居中单行文字
(defun EntmakeText (PT STR Textheigh style)
(entmakeX
    (list '(0 . "TEXT")
   (cons 1 str)
   (cons 10 pt)
   (cons 40 Textheigh)
   (cons 11 pt)
    (cons 7 style)
   (cons 72 1)
   (cons 73 2)
    )
)
)

(foreach a (EF:Style-getAllTextStyles)


(EntmakeText (getpoint"\n请点击位置：") "区123" 30 (car a))



)

;(nth 20 (EF:Style-getAllTextStyles))

cghdy 发表于 2021-1-29 09:04

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

查看完整版本: 天正高版本转t3，CAD云服务