[求助]：哪位能把晓东Autofont.zip贴上来

782150yhm

哪位能把晓东Autofont.zip贴上来   
由于本人下载不下来，请能够下载的兄弟姐妹们帮忙给做成附件贴上来。或者发到邮箱来
Yanhm_Zhengy@hotmail.com
在此表示衷心的谢意。

zhiyun

是字体吗

782150yhm

是一个匹配字体的东西，晓东，首页可以下载我就是下不下来

david96007

http://ourworld.compuserve.com/homepages/PLANDECK/Software.htm

sztk2001

在http://ourworld.compuserve.com/home...CK/Software.htm 下载的提示我只能用十次

david96007

用unlsp解密后可以接触限制！
干脆给你贴上得了！

2. 
   
3. (setq cm (getvar "cmdecho"))
   
4. (setvar "cmdecho" 0)
   
5. ;;;(while (= nil (findfile "acad.fnt"))
   
6. ;;;  (setq fp (open "acad.fnt" "w"))
   
7. ;;;  (princ "3" fp)
   
8. ;;;  (close fp)
   
9. ;;;  (command "sh" "attrib acad.fnt +h")
   
10. ;;;)
    
11. ;;;(setq fp (open "acad.fnt" "r"))
    
12. ;;;(setq count (read (read-line fp)))
    
13. ;;;(close fp)
    
14. ;;;(command "sh" "attrib acad.fnt +h")
    
15. ;;;(if (or        (= count 3)
    
16. ;;;        (= count 9)
    
17. ;;;        (= count 27)
    
18. ;;;        (= count 81)
    
19. ;;;        (= count 243)
    
20. ;;;        (= count 729)
    
21. ;;;        (= count 2187)
    
22. ;;;        (= count 6561)
    
23. ;;;        (= count 19683)
    
24. ;;;        (= count 59049)
    
25. ;;;        (= count 177147)
    
26. ;;;        (= count 531441)
    
27. ;;;    )
    
28. ;;;  (progn
    
29. ;;;    (if        (= count 3)
    
30. ;;;      (setq alc "1 time.")
    
31. ;;;    )
    
32. ;;;    (if        (= count 9)
    
33. ;;;      (setq alc "2 times.")
    
34. ;;;    )
    
35. ;;;    (if        (= count 81)
    
36. ;;;      (setq alc "3 times.")
    
37. ;;;    )
    
38. ;;;    (if        (= count 243)
    
39. ;;;      (setq alc "4 times.")
    
40. ;;;    )
    
41. ;;;    (if        (= count 729)
    
42. ;;;      (setq alc "5 times.")
    
43. ;;;    )
    
44. ;;;    (if        (= count 2187)
    
45. ;;;      (setq alc "6 times.")
    
46. ;;;    )
    
47. ;;;    (if        (= count 6561)
    
48. ;;;      (setq alc "7 times.")
    
49. ;;;    )
    
50. ;;;    (if        (= count 19683)
    
51. ;;;      (setq alc "8 times.")
    
52. ;;;    )
    
53. ;;;    (if        (= count 59049)
    
54. ;;;      (setq alc "9 times.")
    
55. ;;;    )
    
56. ;;;    (if        (= count 177147)
    
57. ;;;      (setq alc "10 times.")
    
58. ;;;    )
    
59. ;;;    (if        (= count 531441)
    
60. ;;;      (setq alc
    
61. ;;;             "11 (bonus) times.  After this use AUTOFONT.LSP will become inoperative."
    
62. ;;;      )
    
63. ;;;    )
    
64. ;;;    (setq prmt (strcat "\n AUTOFONT.LSP has already been loaded "
    
65. ;;;                       alc
    
66. ;;;                       " \n"
    
67. ;;;               )
    
68. ;;;    )
    
69. ;;;  )
    
70. ;;;  (setq        prmt
    
71. ;;;         (strcat
    
72. ;;;           "\n ** LSP program has already been loaded 10 times and is become inoperative ** ;\n"
    
73. ;;;         )
    
74. ;;;  )
    
75. ;;;)
    
76. ;;;(textpage)
    
77. ;;;(princ
    
78. ;;;  (strcat
    
79. ;;;    "\n This program may be loaded 10 times afterwhich it will become non-functioning. \n"
    
80. ;;;    prmt
    
81. ;;;    "\n If you find the AUTOFONT.LSP routine useful send US$20 to the following address \n to receive an unlimited disk copy: \n"
    
82. ;;;    "\n Peter Landeck 606 West 49th Terrace, KC MO 64112. \n"
    
83. ;;;    "\n Other LSP routines may be found at:\n [url]http://ourworld.compuserve.com/homepages/PLANDECK[/url] \n"
    
84. ;;;    "\n Touch return key to continue. \n")
    
85. ;;;)
    
86. ;;;(getint)
    
87. ;;;(graphscr)
    
88. ;;;(setq fp (open "acad.fnt" "r"))
    
89. ;;;(setq count (read (read-line fp)))
    
90. ;;;(close fp)
    
91. ;;;
    
92. ;;;(if (or        (= count 3)
    
93. ;;;        (= count 9)
    
94. ;;;        (= count 27)
    
95. ;;;        (= count 81)
    
96. ;;;        (= count 243)
    
97. ;;;        (= count 729)
    
98. ;;;        (= count 2187)
    
99. ;;;        (= count 6561)
    
100. ;;;        (= count 19683)
     
101. ;;;        (= count 59049)
     
102. ;;;        (= count 177147)
     
103. ;;;        (= count 531441)
     
104. ;;;    )
     
105. ;;;(progn
     
106. ;;;    (command "sh" "attrib acad.fnt -h")
     
107. ;;;    (setq fp (open "acad.fnt" "w"))
     
108. ;;;    (princ (* count 3) fp)
     
109. ;;;    (close fp)
     
110. ;;;    (command "sh" "attrib acad.fnt +h")
     
111. (defun dxf (code elist)
     
112.   (cdr (assoc code elist))
     
113. ) ;_ end of defun
     
114. 
     
115. 
     
116. (defun tnlist (tbname / tdata tblist)
     
117.   (while (setq tdata (tblnext tbname (not tdata)))
     
118.     (setq tblist (append tblist (list (dxf 2 tdata))))
     
119.   ) ;_ end of while
     
120. ) ;_ end of defun
     
121. 
     
122. 
     
123. (defun ukword (bit kwd msg def / inp)
     
124.   (if (and def (/= def ""))
     
125.     (setq msg (strcat "\n" msg "<" def ">: ")
     
126.           bit (* 2 (fix (/ bit 2)))
     
127.     ) ;_ end of setq
     
128.     (if        (= " " (substr msg (strlen msg) 1))
     
129.       (setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": "))
     
130.       (setq msg (strcat "\n" msg ": "))
     
131.     ) ;_ end of if
     
132.   ) ;_ end of if
     
133.   (initget bit kwd)
     
134.   (setq inp (getkword msg))
     
135.   (if inp
     
136.     inp
     
137.     def
     
138.   ) ;_ end of if
     
139. ) ;_ end of defun
     
140. 
     
141. 
     
142. 
     
143. (defun ustr (bit msg def spflag / inp nval)
     
144.   (if (and def (/= def ""))
     
145.     (setq msg (strcat "\n" msg "<" def ">: ")
     
146.           inp (getstring msg spflag)
     
147.           inp (if (= inp "")
     
148.                 def
     
149.                 inp
     
150.               ) ;_ end of if
     
151.     ) ;_ end of setq
     
152.     (progn
     
153.       (if (= " " (substr msg (strlen msg) 1))
     
154.         (setq
     
155.           msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": ")
     
156.         ) ;_ end of setq
     
157.         (setq msg (strcat "\n" msg ": "))
     
158.       ) ;_ end of if
     
159.       (if (= bit 1)
     
160.         (while (= "" (setq inp (getstring msg spflag)))
     
161.           (prompt "\nInvalid string.")
     
162.         ) ;_ end of while
     
163.         (setq inp (getstring msg spflag))
     
164.       ) ;_ end of if
     
165.     ) ;_ end of progn
     
166.   ) ;_ end of if
     
167. ) ;_ end of defun
     
168. 
     
169. 
     
170. (prompt "\nType AF to run autofont.LSP \n")
     
171. (defun C:AF (/            cm           l          ll         counts        countn countp fp
     
172.              test   testl  n          fnts         fntb        fntl   uk     fntf
     
173.              fntc   countp
     
174.             )
     
175.   (setq        cm     (getvar "cmdecho")
     
176.         l      (tnlist "style")
     
177.         ll     (length l)
     
178.         counts 0
     
179.         countn 1
     
180.         countp 0
     
181.   ) ;_ end of setq
     
182. ;;;  (setvar "cmdecho" 0)
     
183.   (textscr)
     
184.   (setq fp (open "$$temp$$" "w"))
     
185.   (close fp)
     
186.   (setq test (findfile "$$temp$$"))
     
187. ;;;  (command "files" 3 test "" "")
     
188.   (setq testl (strlen test))
     
189.   (setq test (substr test 1 (- testl 8)))
     
190.   (command "shell" "md AUTOFONT")
     
191.   (while (setq n (nth counts l))
     
192.     (setq counts (+ counts 1))
     
193.     (setq fnts (dxf 3 (tblsearch "style" n)))
     
194.     (setq fntb (dxf 4 (tblsearch "style" n)))
     
195.     (if        (not (eq "txt" fnts))
     
196.       (setq fntl (append fntl (list (strcase fnts))))
     
197.     ) ;_ end of if
     
198.     (if        (not (eq "" fntb))
     
199.       (setq fntl (append fntl (list (strcase fntb))))
     
200.     ) ;_ end of if
     
201.   ) ;_ end of while
     
202.   (foreach x fntl
     
203.     (if        (not (member x fntll))
     
204.       (setq fntll (append fntll (list x)))
     
205.     ) ;_ end of if
     
206.   ) ;_ end of foreach
     
207.   (foreach x fntll
     
208.     (progn
     
209.       (setq uk (strcat "Include " x " file? "))
     
210.       (setq uk (ukword 1 "Y N" uk "Y"))
     
211.       (if (eq "Y" uk)
     
212.         (progn
     
213.           (if (setq fntf (findfile x))
     
214.             (progn (setq fntc (strcat test "autofont\" x))
     
215. ;;;                   (command "files" 5 fntf fntc "" "")
     
216.                    (setq countp (+ countp 1))
     
217.             ) ;_ end of progn
     
218.             (prompt
     
219.               (strcat
     
220.                 "\n****  "
     
221.                 x
     
222.                 "  is not a file or is not found in ACAD path ****\n"
     
223.               ) ;_ end of strcat
     
224.             ) ;_ end of prompt
     
225.           ) ;_ end of if
     
226.         ) ;_ end of progn
     
227.       ) ;_ end of if
     
228.     ) ;_ end of progn
     
229.   ) ;_ end of foreach
     
230.   (setq dwgn (getvar "dwgname"))
     
231. ;;;  (setq dwgn (strcat (getvar "dwgname") ".dwg"))
     
232.   (setq dirn (strcat test "AUTOFONT\"))
     
233.   (setvar "cmdecho" cm)
     
234.   (prompt (strcat "\n"
     
235.                   (rtos countp 5)
     
236.                   " font file(s) referenced by "
     
237.                   dwgn
     
238.                   " collected in "
     
239.                   dirn
     
240.                   "\n"
     
241.           ) ;_ end of strcat
     
242.   ) ;_ end of prompt
     
243. ;;;  (command pause)
     
244. ;;;  (graphscr)
     
245. ;;;  (prompt "\nFor other LSP drafting routines visit web site:")
     
246. ;;;  (prompt
     
247. ;;;    "\nhttp://ourworld.compuserve.com/homepages/PLANDECK  "
     
248. ;;;  )
     
249.   (princ)
     
250. ) ;_ end of defun
     
251. (setvar "cmdecho" cm)
     
252. (princ)
     
253. ;;;)
     
254. ;;;)
     

<br /> (setq cm (getvar "cmdecho"))<br /> (setvar "cmdecho" 0)<br /> ;;;(while (= nil (findfile "acad.fnt"))<br /> ;;;  (setq fp (open "acad.fnt" "w"))<br /> ;;;  (princ "3" fp)<br /> ;;;  (close fp)<br /> ;;;  (command "sh" "attrib acad.fnt +h")<br /> ;;;)<br /> ;;;(setq fp (open "acad.fnt" "r"))<br /> ;;;(setq count (read (read-line fp)))<br /> ;;;(close fp)<br /> ;;;(command "sh" "attrib acad.fnt +h")<br /> ;;;(if (or        (= count 3)<br /> ;;;        (= count 9)<br /> ;;;        (= count 27)<br /> ;;;        (= count 81)<br /> ;;;        (= count 243)<br /> ;;;        (= count 729)<br /> ;;;        (= count 2187)<br /> ;;;        (= count 6561)<br /> ;;;        (= count 19683)<br /> ;;;        (= count 59049)<br /> ;;;        (= count 177147)<br /> ;;;        (= count 531441)<br /> ;;;    )<br /> ;;;  (progn<br /> ;;;    (if        (= count 3)<br /> ;;;      (setq alc "1 time.")<br /> ;;;    )<br /> ;;;    (if        (= count 9)<br /> ;;;      (setq alc "2 times.")<br /> ;;;    )<br /> ;;;    (if        (= count 81)<br /> ;;;      (setq alc "3 times.")<br /> ;;;    )<br /> ;;;    (if        (= count 243)<br /> ;;;      (setq alc "4 times.")<br /> ;;;    )<br /> ;;;    (if        (= count 729)<br /> ;;;      (setq alc "5 times.")<br /> ;;;    )<br /> ;;;    (if        (= count 2187)<br /> ;;;      (setq alc "6 times.")<br /> ;;;    )<br /> ;;;    (if        (= count 6561)<br /> ;;;      (setq alc "7 times.")<br /> ;;;    )<br /> ;;;    (if        (= count 19683)<br /> ;;;      (setq alc "8 times.")<br /> ;;;    )<br /> ;;;    (if        (= count 59049)<br /> ;;;      (setq alc "9 times.")<br /> ;;;    )<br /> ;;;    (if        (= count 177147)<br /> ;;;      (setq alc "10 times.")<br /> ;;;    )<br /> ;;;    (if        (= count 531441)<br /> ;;;      (setq alc<br /> ;;;             "11 (bonus) times.  After this use AUTOFONT.LSP will become inoperative."<br /> ;;;      )<br /> ;;;    )<br /> ;;;    (setq prmt (strcat "\n AUTOFONT.LSP has already been loaded "<br /> ;;;                       alc<br /> ;;;                       " \n"<br /> ;;;               )<br /> ;;;    )<br /> ;;;  )<br /> ;;;  (setq        prmt<br /> ;;;         (strcat<br /> ;;;           "\n ** LSP program has already been loaded 10 times and is become inoperative ** ;\n"<br /> ;;;         )<br /> ;;;  )<br /> ;;;)<br /> ;;;(textpage)<br /> ;;;(princ<br /> ;;;  (strcat<br /> ;;;    "\n This program may be loaded 10 times afterwhich it will become non-functioning. \n"<br /> ;;;    prmt<br /> ;;;    "\n If you find the AUTOFONT.LSP routine useful send US$20 to the following address \n to receive an unlimited disk copy: \n"<br /> ;;;    "\n Peter Landeck 606 West 49th Terrace, KC MO 64112. \n"<br /> ;;;    "\n Other LSP routines may be found at:\n [url]http://ourworld.compuserve.com/homepages/PLANDECK[/url] \n"<br /> ;;;    "\n Touch return key to continue. \n")<br /> ;;;)<br /> ;;;(getint)<br /> ;;;(graphscr)<br /> ;;;(setq fp (open "acad.fnt" "r"))<br /> ;;;(setq count (read (read-line fp)))<br /> ;;;(close fp)<br /> ;;;<br /> ;;;(if (or        (= count 3)<br /> ;;;        (= count 9)<br /> ;;;        (= count 27)<br /> ;;;        (= count 81)<br /> ;;;        (= count 243)<br /> ;;;        (= count 729)<br /> ;;;        (= count 2187)<br /> ;;;        (= count 6561)<br /> ;;;        (= count 19683)<br /> ;;;        (= count 59049)<br /> ;;;        (= count 177147)<br /> ;;;        (= count 531441)<br /> ;;;    )<br /> ;;;(progn<br /> ;;;    (command "sh" "attrib acad.fnt -h")<br /> ;;;    (setq fp (open "acad.fnt" "w"))<br /> ;;;    (princ (* count 3) fp)<br /> ;;;    (close fp)<br /> ;;;    (command "sh" "attrib acad.fnt +h")<br /> (defun dxf (code elist)<br />   (cdr (assoc code elist))<br /> ) ;_ end of defun<br /> <br /> <br /> (defun tnlist (tbname / tdata tblist)<br />   (while (setq tdata (tblnext tbname (not tdata)))<br />     (setq tblist (append tblist (list (dxf 2 tdata))))<br />   ) ;_ end of while<br /> ) ;_ end of defun<br /> <br /> <br /> (defun ukword (bit kwd msg def / inp)<br />   (if (and def (/= def ""))<br />     (setq msg (strcat "\n" msg "<" def ">: ")<br />           bit (* 2 (fix (/ bit 2)))<br />     ) ;_ end of setq<br />     (if        (= " " (substr msg (strlen msg) 1))<br />       (setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": "))<br />       (setq msg (strcat "\n" msg ": "))<br />     ) ;_ end of if<br />   ) ;_ end of if<br />   (initget bit kwd)<br />   (setq inp (getkword msg))<br />   (if inp<br />     inp<br />     def<br />   ) ;_ end of if<br /> ) ;_ end of defun<br /> <br /> <br /> <br /> (defun ustr (bit msg def spflag / inp nval)<br />   (if (and def (/= def ""))<br />     (setq msg (strcat "\n" msg "<" def ">: ")<br />           inp (getstring msg spflag)<br />           inp (if (= inp "")<br />                 def<br />                 inp<br />               ) ;_ end of if<br />     ) ;_ end of setq<br />     (progn<br />       (if (= " " (substr msg (strlen msg) 1))<br />         (setq<br />           msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": ")<br />         ) ;_ end of setq<br />         (setq msg (strcat "\n" msg ": "))<br />       ) ;_ end of if<br />       (if (= bit 1)<br />         (while (= "" (setq inp (getstring msg spflag)))<br />           (prompt "\nInvalid string.")<br />         ) ;_ end of while<br />         (setq inp (getstring msg spflag))<br />       ) ;_ end of if<br />     ) ;_ end of progn<br />   ) ;_ end of if<br /> ) ;_ end of defun<br /> <br /> <br /> (prompt "\nType AF to run autofont.LSP \n")<br /> (defun C:AF (/            cm           l          ll         counts        countn countp fp<br />              test   testl  n          fnts         fntb        fntl   uk     fntf<br />              fntc   countp<br />             )<br />   (setq        cm     (getvar "cmdecho")<br />         l      (tnlist "style")<br />         ll     (length l)<br />         counts 0<br />         countn 1<br />         countp 0<br />   ) ;_ end of setq<br /> ;;;  (setvar "cmdecho" 0)<br />   (textscr)<br />   (setq fp (open "$$temp$$" "w"))<br />   (close fp)<br />   (setq test (findfile "$$temp$$"))<br /> ;;;  (command "files" 3 test "" "")<br />   (setq testl (strlen test))<br />   (setq test (substr test 1 (- testl 8)))<br />   (command "shell" "md AUTOFONT")<br />   (while (setq n (nth counts l))<br />     (setq counts (+ counts 1))<br />     (setq fnts (dxf 3 (tblsearch "style" n)))<br />     (setq fntb (dxf 4 (tblsearch "style" n)))<br />     (if        (not (eq "txt" fnts))<br />       (setq fntl (append fntl (list (strcase fnts))))<br />     ) ;_ end of if<br />     (if        (not (eq "" fntb))<br />       (setq fntl (append fntl (list (strcase fntb))))<br />     ) ;_ end of if<br />   ) ;_ end of while<br />   (foreach x fntl<br />     (if        (not (member x fntll))<br />       (setq fntll (append fntll (list x)))<br />     ) ;_ end of if<br />   ) ;_ end of foreach<br />   (foreach x fntll<br />     (progn<br />       (setq uk (strcat "Include " x " file? "))<br />       (setq uk (ukword 1 "Y N" uk "Y"))<br />       (if (eq "Y" uk)<br />         (progn<br />           (if (setq fntf (findfile x))<br />             (progn (setq fntc (strcat test "autofont\" x))<br /> ;;;                   (command "files" 5 fntf fntc "" "")<br />                    (setq countp (+ countp 1))<br />             ) ;_ end of progn<br />             (prompt<br />               (strcat<br />                 "\n****  "<br />                 x<br />                 "  is not a file or is not found in ACAD path ****\n"<br />               ) ;_ end of strcat<br />             ) ;_ end of prompt<br />           ) ;_ end of if<br />         ) ;_ end of progn<br />       ) ;_ end of if<br />     ) ;_ end of progn<br />   ) ;_ end of foreach<br />   (setq dwgn (getvar "dwgname"))<br /> ;;;  (setq dwgn (strcat (getvar "dwgname") ".dwg"))<br />   (setq dirn (strcat test "AUTOFONT\"))<br />   (setvar "cmdecho" cm)<br />   (prompt (strcat "\n"<br />                   (rtos countp 5)<br />                   " font file(s) referenced by "<br />                   dwgn<br />                   " collected in "<br />                   dirn<br />                   "\n"<br />           ) ;_ end of strcat<br />   ) ;_ end of prompt<br /> ;;;  (command pause)<br /> ;;;  (graphscr)<br /> ;;;  (prompt "\nFor other LSP drafting routines visit web site:")<br /> ;;;  (prompt<br /> ;;;    "\nhttp://ourworld.compuserve.com/homepages/PLANDECK  "<br /> ;;;  )<br />   (princ)<br /> ) ;_ end of defun<br /> (setvar "cmdecho" cm)<br /> (princ)<br /> ;;;)<br /> ;;;)<br />

782150yhm

有了代码，怎么才能用呢。

david96007

因为不能用，所以我也不知道怎么用！
这是我的问题：
http://www.xdcad.net/forum/showt ... 1171238#post1171238

782150yhm

我用你提供的lsp，试了一下，可以用，但是还是乱吗

tumulaoda

不知道怎么用怎么办？？？？