如何做一个自动设置字体样式的程序

fawn_lgc

问题尚未解决,具体请看第10贴
我想做一个自动设置字体样式的程序.但却遇到下列问题不知如何解决:
不知道如何将搜索windows字体文件夹,并将字体setq到list中:
需要解决的问题1.如何获得当前操作系统的字体文件所在的文件夹;
需要解决的问题1.字体宋体的文件名是simsun.ttf.如何获得文件名所对应的字体名.

cy956

其实不是特殊需要，应该固定style、dimstyle、linetype。。。

Qlin

问题1：可以用DosLib的dos_specialdir 函数获得，它的用法附录在后面；
第二个问题1：可以使用ODCL的ComboBox控件，把它的style设为8，即
font drop list就行了，不用你自己编程。

dos_specialdir 函数用法：

1. 
   
2. Syntax
   
3. (dos_specialdir item)
   
4. Parameters
   
5. item
   
6. An integer specifying a special directory. Valid values are as follows:
   
7. 
   
8. 0
   
9. Windows desktop
   
10. 
    
11. 1
    
12. Internet Explorer (icon on desktop)
    
13. 
    
14. 2
    
15. Start Menu\Programs
    
16. 
    
17. 3
    
18. My Computer\Control Panel
    
19. 
    
20. 4
    
21. My Computer\Printers
    
22. 
    
23. 5
    
24. My Documents
    
25. 
    
26. 6
    
27. <user name>\Favorites
    
28. 
    
29. 7
    
30. Start Menu\Programs\Startup
    
31. 
    
32. 8
    
33. <user name>\Recent
    
34. 
    
35. 9
    
36. <user name>\SendTo
    
37. 
    
38. 10
    
39. <desktop>\Recycle Bin
    
40. 
    
41. 11
    
42. <user name>\Start Menu
    
43. 
    
44. 12
    
45. Logical "My Documents" desktop icon
    
46. 
    
47. 13
    
48. "My Music" folder
    
49. 
    
50. 14
    
51. "My Videos" folder
    
52. 
    
53. 16
    
54. <user name>\Desktop
    
55. 
    
56. 17
    
57. My Computer
    
58. 
    
59. 18
    
60. Network Neighborhood (My Network Places)
    
61. 
    
62. 19
    
63. <user name>\nethood
    
64. 
    
65. 20
    
66. Windows\fonts
    
67. 
    
68. 21
    
69. Templates
    
70. 
    
71. 22
    
72. All Users\Start Menu
    
73. 
    
74. 23
    
75. All Users\Start Menu\Programs
    
76. 
    
77. 24
    
78. All Users\Startup
    
79. 
    
80. 25
    
81. All Users\Desktop
    
82. 
    
83. 26
    
84. <user name>\Application Data
    
85. 
    
86. 27
    
87. <user name>\PrintHood
    
88. 
    
89. 28
    
90. <user name>\Local Settings\Application Data (non roaming)
    
91. 
    
92. 29
    
93. Non localized startup
    
94. 
    
95. 30
    
96. Non localized common startup
    
97. 
    
98. 31
    
99. Non localized favorites
    
100. 
     
101. 32
     
102. Internet cache
     
103. 
     
104. 33
     
105. Internet cookies
     
106. 
     
107. 34
     
108. Internet history
     
109. 
     
110. 35
     
111. All Users\Application Data
     
112. 
     
113. 36
     
114. Windows directory
     
115. 
     
116. 37
     
117. System directory
     
118. 
     
119. 38
     
120. C:\Program Files
     
121. 
     
122. 39
     
123. C:\Program Files\My Pictures
     
124. 
     
125. 40
     
126. User profile
     
127. 
     
128. 41
     
129. x86 system directory on RISC
     
130. 
     
131. 42
     
132. x86 C:\Program Files on RISC
     
133. 
     
134. 43
     
135. C:\Program Files\Common
     
136. 
     
137. 44
     
138. x86 Program Files\Common on RISC
     
139. 
     
140. 45
     
141. All Users\Templates
     
142. 
     
143. 46
     
144. All Users\Documents
     
145. 
     
146. 47
     
147. All Users\Start Menu\Programs\Administrative Tools
     
148. 
     
149. 48
     
150. <user name>\Start Menu\Programs\Administrative Tools
     
151. 
     
152. 49
     
153. Network and Dial-up Connections
     
154. 
     
155. 53
     
156. All Users\My Music
     
157. 
     
158. 54
     
159. All Users\My Pictures
     
160. 
     
161. 55
     
162. All Users\My Pictures
     
163. 
     
164. 56
     
165. All Users\My Pictures
     
166. 
     
167. 57
     
168. Localized Resource Directory
     
169. 
     
170. 58
     
171. Links to All Users OEM specific apps
     
172. 
     
173. 59
     
174. USERPROFILE\Local Settings\Application Data\Microsoft\CD Burning
     
175. 
     
176. 61
     
177. Computers Near Me (computered from Workgroup membership)
     
178. 
     
179. 
     
180. 
     
181. 
     
182. 
     
183. Returns
     
184. A string containing the the path of the special directory if successful.
     
185. 
     
186. nil if not successful on error.
     

复制代码

fawn_lgc

DosLib是什么,是否需要下载些什么?你写的程序是用autolisp或Visual lisp语言写的吗?我怎么看不懂,希望你给个具体的程序.
  我觉得每次都要进行字体设置十分麻烦,我希望做一个能保存设置方案的字体样式设置程序,执行操作一次后,保存设置,以后都按照保存的设置进行字体设置.简化绘图前的准备工作.这个程序我已经写了一半了,遇到这个问题就只好停下来了.

黄卫文

最初由 fawn_lgc 发布
[B]我想做一个自动设置字体样式的程序.但却遇到下列问题不知如何解决:
不知道如何将搜索windows字体文件夹,并将字体setq到list中:
需要解决的问题1.如何获得当前操作系统的字体文件所在的文件夹;
需要解决的问题1.字... [/B]

在WINＡ２Ｋ下没有simsun.ttf　即宋体字而新宋体了
我给你上传一个DOSLIB吧只能用于A2K 以上的CAD中，里面有二个文件，一个是DOSLIB2K.ARX程序文件，另一个是其功能说明文件！

fzlinrong

给你一个我的程序，能自动设置dwg中你没有的字体.

fawn_lgc

我无法获得积分,不能下载你们提供的文件.我写这个程序花了很多精力,不想浪费,我希望各位大师能提供解决上述问题的程序段(原代码),以便嵌入我的程序中.而且我只懂得用lisp语言,希望程序是用lisp语言写的,如果能够帮此大忙,我不盛感激.如果这个程序能够完成,我将无偿提供这个程序给你们.

kkk3kkk

最初由 fawn_lgc 发布
[B]DosLib是什么,是否需要下载些什么?你写的程序是用autolisp或Visual lisp语言写的吗?我怎么看不懂,希望你给个具体的程序.
  我觉得每次都要进行字体设置十分麻烦,我希望做一个能保存设置方案的字体样式设置程序,执行... [/B]

Qlin

最初由 fawn_lgc 发布
[B]我无法获得积分,不能下载你们提供的文件.我写这个程序花了很多精力,不想浪费,我希望各位大师能提供解决上述问题的程序段(原代码),以便嵌入我的程序中.而且我只懂得用lisp语言,希望程序是用lisp语言写的,如果能够帮此... [/B]

DosLib是Lisp函数库，它的适应行极好，我从R12 Dos到R2002一直
都可以使用。它的官方下载地址：
http://www.mcneel.com/cgi-bin/download.cgi?doslib

fzlinrong

你只要修改ACAD中的字体映射文件acad.fmp,设置你没有的字形文件用你已有的字形文件替换即可。

fawn_lgc

DosLib函数库没有ODCL的ComboBox控件.
ODCL是不是别的函数库,在那里下载啊,能不能提供一个.
可以发到我的e-mail: fawn_lgc@sina.com.cn
你们提供的DosLib是个好东西,非常感谢.

YueFeng

你下载ObjectDCL软件。下载中心有下载提供的。

fawn_lgc

"无法显示该页"不能下载ObjectDCL啊!而且这个版本是试用版,我可不希望等我写玩程序便告知软件已过期.请问那里有正式版本下载.如果没有正式版本下载.那里有该软件卖,多少钱,是用￥还是$.那位大虾可以发一个到我的e-mail: fawn_lgc@sina.com.cn
   除了ObjectDCL就没有别的方法可以解决这个问题吗?各位大虾可一定要帮我啊.

lx7010

加载了，可不能用：
命令: gzt
“hzdx 是常规字体，不是大字体。未知命令“GZT”。按 F1 查看帮助。
未知命令“GZT”。按 F1 查看帮助。
未知命令“GZT”。按 F1 查看帮助。
未知命令“GZT”。按 F1 查看帮助。
未知命令“GZT”。按 F1 查看帮助。
未知命令“GZT”。按 F1 查看帮助。
命令:”
怎么回事？

张宏武

我已有11个金币了，可是怎么还不能下载