4/6加载MY字体搜索路径
4/6加载MY字体搜索路径Private Sub CommandButton20_Click()
' 增加字体搜索路径,注意字体文件夹是可以加载两个以上的，如果有相同的，以首先找到的为准
Dim ACADPref
Set ACADPref = ThisDrawing.Application.preferences.Files'文件
ACADPref.SupportPath = ACADPref.SupportPath & ";" & "D:\00邓细木CAD插件汇总\CAD每天都在用的字体文件Fonts文件夹" '添加文件支持路径
End Sub
页:
[1]