[求助]：Autofont这个工具怎么使用啊?

fkeriu · 发表于 2004-8-30 08:15:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教Autofont这个工具怎么使用啊?包括安装和使用。
谢谢各位

ruansh · 发表于 2004-8-30 16:40:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

autofont字型你有吗？这里的下载链接老不对，要不你传上来让大家看看

fkeriu · 发表于 2004-8-31 11:40:30

我就是在这儿下载的啊。
是一个压缩包。打开了以后，我不会用
怎么使用，哪位大哥教一下？

MAXBLOOD · 发表于 2004-9-4 03:20:23

我也不会，介绍的不清不楚

chenwei_zj · 发表于 2004-9-4 03:43:21

强烈建议大虾做个演示文件给大伙小虾米们看看：）在些先谢过了

fkeriu · 发表于 2004-9-4 11:41:27

是啊，我还是在这儿下的这个软件包啊！而且是排行榜上的。
晓东可以介绍一下子吗？

gf1974 · 发表于 2004-9-4 11:55:50

我也下载了好几次,,连不上,急啊!

它山之石 · 发表于 2004-9-6 13:32:16

那个程序有问题，不能用。
我把它给修改了一下。
基本能用了，但还没达到我的要求，
后来也没心思弄它。
今天看到大家又提起，就先把修改过的版本放上来。
大家先用用看。
用法是先加载后在命令行输入“AF”即可。
另外不好意思，我也想收点钱。
如果用的人多，我也可能会继续完善它。

david96007 · 发表于 2004-9-6 21:32:49

l楼主不该加密啊！

fkeriu · 发表于 2004-9-7 18:13:44

它山之石可能介绍一下吗?
他有什么用?怎么用啊?

它山之石 · 发表于 2004-9-21 13:07:01

　　这个程序的主要功能就是将图中用到的字体提取出来，放在一个目录下，当你COPY图形到别的机子连字体一起复制，就不怕出现找不到字体的提示了，我扩展了一下，将图也一起复制到那个目录了。
　　大家似乎对我收币不是很支持。我把源码放上来。有哪位有兴趣的话再完善一下吧。
　　其实原理很简单，因为编写的时间太久了，所以有些功能完成起来显得很复杂。我本来试图将它完善的，后来嫌烦，就做到能用为止了。
我把加密的部分能注释掉了。

;;以下内容定义程序加载时提示加载次数、版权等信息
;;;(setq cm (getvar "cmdecho"))
;;;(setvar "cmdecho" 0)
;;;(while (= nil (findfile "acad.fnt"))
;;; ;(setq fp (open "c:\\acad.fnt" "w"))
;;; ;(setq fp (open "acad.fnt" "w"))
;;;
;;; ;(write-line "3" fp)
;;; ;(close fp)
;;; ;(command "sh" "attrib acad.fnt +h")
;;;;)
;;;;(setq fp (open "acad.fnt" "r"))
;;;;(setq count (read (read-line fp)))
;;;;(close fp)
;;;;(command "sh" "attrib acad.fnt +h")
;;;;(if (or (= count 3)
;;;; (= count 9)
;;;; (= count 27)
;;;; (= count 81)
;;;; (= count 243)
;;;; (= count 729)
;;;; (= count 2187)
;;;; (= count 6561)
;;;; (= count 19683)
;;;; (= count 59049)
;;;; (= count 177147)
;;;; (= count 531441)
;;;; )
;;;; (progn
;;;;;; (if (= count 3)
;;;;;; (setq alc "1 time.")
;;;;;; )
;;;;;; (if (= count 9)
;;; (setq alc "2 times.")
;;; )
;;; (if (= count 81)
;;; (setq alc "3 times.")
;;; )
;;; (if (= count 243)
;;; (setq alc "4 times.")
;;; )
;;; (if (= count 729)
;;; (setq alc "5 times.")
;;; )
;;; (if (= count 2187)
;;; (setq alc "6 times.")
;;; )
;;; (if (= count 6561)
;;; (setq alc "7 times.")
;;; )
;;; (if (= count 19683)
;;; (setq alc "8 times.")
;;; )
;;; (if (= count 59049)
;;; (setq alc "9 times.")
;;; )
;;; (if (= count 177147)
;;; (setq alc "10 times.")
;;; )
;;; (if (= count 531441)
;;; (setq alc
;;; "11 (bonus) times. After this use AUTOFONT.LSP will become inoperative."
;;; )
;;; )
;;; (setq prmt (strcat "\n AUTOFONT.LSP has already been loaded "
;;; alc
;;; " \n"
;;; )
;;; )
;;; )
;;; (setq prmt
;;; (strcat
;;; "\n ** LSP program has already been loaded 10 times and is become inoperative ** ;\n"
;;; )
;;; )
;;;)
;;;;(textpage)
;;;(princ
;;; (strcat
;;; "\n This program may be loaded 10 times afterwhich it will become non-functioning. \n"
;;; prmt
;;; "\n If you find the AUTOFONT.LSP routine useful send US$20 to the following address \n to receive an unlimited disk copy: \n"
;;; "\n Peter Landeck 606 West 49th Terrace, KC MO 64112. \n"
;;; "\n Other LSP routines may be found at:\n [url]http://ourworld.compuserve.com/homepages/PLANDECK[/url] \n"
;;; "\n Touch return key to continue. \n")
;;;)
;;;;(getint)
;;;(graphscr)
;;;(setq fp (open "acad.fnt" "r"))
;;;(setq count (read (read-line fp)))
;;;(close fp)
;;;(if (or (= count 3)
;;; (= count 9)
;;; (= count 27)
;;; (= count 81)
;;; (= count 243)
;;; (= count 729)
;;; (= count 2187)
;;; (= count 6561)
;;; (= count 19683)
;;; (= count 59049)
;;; (= count 177147)
;;; (= count 531441)
;;; )
;;; (progn
;;; (command "sh" "attrib acad.fnt -h")
;;; ;(setq fp (open "acad.fnt" "w"))
;;;;(setq aaa (* count 4))
;;; ;(princ aaa fp)
;;; ;(write-line aaa fp)
;;;
;;; ;(close fp)
;;; (command "sh" "attrib acad.fnt +h")
;;;以下定义从关联表“elist”中搜索含有元素“code”的条目
(defun dxf (code elist) (cdr (assoc code elist)))
;;;以下定义得到所有指定类型“tbname”的集合
(defun tnlist (tbname / tdata tblist)
;(setq ttt (tblnext "DIMTXSTY" (not tdata)))
(while (setq tdata (tblnext tbname (not tdata)))
(setq tblist (append tblist (list (dxf 2 tdata))))
)
)
;;;以下定义得到关键字提示
(defun ukword (bit kwd msg def / inp)
(if (and def (/= def ""))
(setq msg (strcat "\n" msg "<" def ">: ")
bit (* 2 (fix (/ bit 2)))
)
(if (= " " (substr msg (strlen msg) 1))
(setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": "))
(setq msg (strcat "\n" msg ": "))
)
)
(initget bit kwd)
(setq inp (getkword msg))
(if inp
inp
def
)
)
;;; (defun ustr (bit msg def spflag / inp nval)
;;; (if (and def (/= def ""))
;;; (setq msg (strcat "\n" msg "<" def ">: ")
;;; inp (getstring msg spflag)
;;; inp (if (= inp "")
;;; def
;;; inp
;;; )
;;; )
;;; (progn (if (= " " (substr msg (strlen msg) 1))
;;; (setq
;;; msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": ")
;;; )
;;; (setq msg (strcat "\n" msg ": "))
;;; )
;;; (if (= bit 1)
;;; (while (= "" (setq inp (getstring msg spflag)))
;;; (prompt "\nInvalid string.")
;;; )
;;; (setq inp (getstring msg spflag))
;;; )
;;; )
;;; )
;;; )
;;; (prompt "\nType AF to run autofont.LSP \n")
(defun C:AF (/ cm l ll counts countn countp fp
;test testl n fnts fntb fntl uk fntf
;fntc countp
)
(setq cm (getvar "cmdecho")
l (tnlist "style") ;列出本图中定义的所有字体
ll (length l) ;所有的字体数
counts 0
countn 1
countp 0
)
(setvar "cmdecho" 0)
;(textscr)
(setq fp (open "$$temp$$" "w"))
(close fp)
(setq test (findfile "$$temp$$"))
;(command "files" 3 test "" "")
(setq testl (strlen test))
(setq test (substr test 1 (- testl 8)))
(setq test "C:\")
(command "shell" (SETQ AA (strcat "md " TEST "AUTOFONT")))
;建立备份字体的文件夹
;(command "shell" "md c:\\AUTOFONT") ;建立备份字体的文件夹
(while (setq n (nth counts l))
(setq counts (+ counts 1))
(setq fnts (dxf 3 (tblsearch "style" n)))
(setq fntb (dxf 4 (tblsearch "style" n)))
(if (not (eq "txt" fnts))
(setq fntl (append fntl (list (strcase fnts))))
)
(if (not (eq "" fntb))
(setq fntl (append fntl (list (strcase fntb))))
)
)
(foreach x fntl
(if (not (member x fntll))
(setq fntll (append fntll (list x)))
)
)
(foreach x fntll
(progn
(setq uk (strcat "Include " x " file? "))
(setq uk (ukword 1 "Y N" uk "Y"))
(if (eq "Y" uk)
(progn
(if (setq fntf (findfile x))
(progn
(setq fntc (strcat " " test "autofont\"))
(setq si 1)
(setq txt 1) ;得到要查找字符串的长度
(while ;在一个被查找字符串中循环查找
(= txt (strlen (setq st (substr fntf si txt))))
(if (or (eq st "\") (eq st ".")) ;如果查找到相匹配的字符串
(setq sii (+ si 1))
)
(if (> (- si sii) 7) ;如果查找到相匹配的串
(progn
(setq stt (substr fntf (+ 0 sii) (+ 0 (- si sii))))
(setq stt (strcat (substr stt 1 6) "~1"))
(setq fntf (strcat (substr fntf 1 (- sii 1)) stt (substr fntf (+ 1 si))))
(setq si (- si sii 8))
(command "SHELL" (SETQ QQ (strcat "XCOPY " fntf fntc " /y")))
;(setq sii (+ 1 sii))
))
(setq si (+ 1 si))
)
;(command "files" 5 fntf fntc "" "")
;(command "shELL" ); "copy" fntf fntc)
;(SETQ SSS (strcat test "autofont\\DRAWING.DXF"))
;(command "DEL" SSS)
;(command "shell" "DEL C:\\Program Files\\AUTOFONT\\DRAWING1.DXF")
;(command "SHELL" (SETQ QQ (strcat "XCOPY " fntff fntc " /y")))
;(command "COP" fntf fntc)
;(command "shell" "Xcopy C:\\PROGRA~1\\AUTOCA~1\\FONTS\\SIMPLEX.SHX C:\\AUTOFONT\\ /Y")
;(command "shell" "Xcopy C:\\PROGRA~1\\AUTOFONTS\\Drawin~1.DXF D:\\AUTOFONT\\ /Y")
(setq countp (+ countp 1))
)
(prompt
(strcat
"\n**** "
x
" is not a file or is not found in ACAD path ****\n"
)
)
)
)
)
)
)
(setq dwgn (strcat "《" (getvar "dwgname") "》"))
(setq dirn (strcat test "AUTOFONT\"))
;(setq dirn (strcat "c:\\AUTOFONT\"))
(setvar "cmdecho" cm)
(prompt (strcat "\n"
(rtos countp 5)
" font file(s) referenced by "
dwgn
" collected in "
dirn
"\n"
)
)
;(command pause)
; (graphscr)
;(prompt "\nFor other LSP drafting routines visit web site:")
;(prompt
;"\nhttp://ourworld.compuserve.com/homepages/PLANDECK "
;)
(princ)
)
;(setvar "cmdecho" cm)
;(princ)
;;; )
;;;)

;;以下内容定义程序加载时提示加载次数、版权等信息 
 
 
;;;(setq cm (getvar "cmdecho")) 
;;;(setvar "cmdecho" 0) 
;;;(while (= nil (findfile "acad.fnt")) 
;;;  ;(setq fp (open "c:\\acad.fnt" "w")) 
;;;  ;(setq fp (open "acad.fnt" "w")) 
;;; 
;;;  ;(write-line "3" fp) 
;;;  ;(close fp) 
;;;  ;(command "sh" "attrib acad.fnt +h") 
;;;;) 
;;;;(setq fp (open "acad.fnt" "r")) 
;;;;(setq count (read (read-line fp))) 
;;;;(close fp) 
;;;;(command "sh" "attrib acad.fnt +h") 
;;;;(if (or        (= count 3) 
;;;;        (= count 9) 
;;;;        (= count 27) 
;;;;        (= count 81) 
;;;;        (= count 243) 
;;;;        (= count 729) 
;;;;        (= count 2187) 
;;;;        (= count 6561) 
;;;;        (= count 19683) 
;;;;        (= count 59049) 
;;;;        (= count 177147) 
;;;;        (= count 531441) 
;;;;   ) 
;;;;  (progn 
;;;;;;    (if        (= count 3) 
;;;;;;      (setq alc "1 time.") 
;;;;;;    ) 
;;;;;;    (if        (= count 9) 
;;;      (setq alc "2 times.") 
;;;    ) 
;;;    (if        (= count 81) 
;;;      (setq alc "3 times.") 
;;;    ) 
;;;    (if        (= count 243) 
;;;      (setq alc "4 times.") 
;;;    ) 
;;;    (if        (= count 729) 
;;;      (setq alc "5 times.") 
;;;    ) 
;;;    (if        (= count 2187) 
;;;      (setq alc "6 times.") 
;;;    ) 
;;;    (if        (= count 6561) 
;;;      (setq alc "7 times.") 
;;;    ) 
;;;    (if        (= count 19683) 
;;;      (setq alc "8 times.") 
;;;    ) 
;;;    (if        (= count 59049) 
;;;      (setq alc "9 times.") 
;;;    ) 
;;;    (if        (= count 177147) 
;;;      (setq alc "10 times.") 
;;;    ) 
;;;    (if        (= count 531441) 
;;;      (setq alc 
;;;             "11 (bonus) times.  After this use AUTOFONT.LSP will become inoperative." 
;;;      ) 
;;;    ) 
;;;    (setq prmt (strcat "\n AUTOFONT.LSP has already been loaded " 
;;;                       alc 
;;;                       " \n" 
;;;               ) 
;;;    ) 
;;;  ) 
;;;  (setq        prmt 
;;;         (strcat 
;;;           "\n ** LSP program has already been loaded 10 times and is become inoperative ** ;\n" 
;;;         ) 
;;;  ) 
;;;) 
;;;;(textpage) 
;;;(princ 
;;;  (strcat 
;;;    "\n This program may be loaded 10 times afterwhich it will become non-functioning. \n" 
;;;    prmt 
;;;    "\n If you find the AUTOFONT.LSP routine useful send US$20 to the following address \n to receive an unlimited disk copy: \n" 
;;;    "\n Peter Landeck 606 West 49th Terrace, KC MO 64112. \n" 
;;;    "\n Other LSP routines may be found at:\n [url]http://ourworld.compuserve.com/homepages/PLANDECK[/url] \n" 
;;;    "\n Touch return key to continue. \n") 
;;;) 
;;;;(getint) 
;;;(graphscr) 
;;;(setq fp (open "acad.fnt" "r")) 
;;;(setq count (read (read-line fp))) 
;;;(close fp) 
;;;(if (or        (= count 3) 
;;;        (= count 9) 
;;;        (= count 27) 
;;;        (= count 81) 
;;;        (= count 243) 
;;;        (= count 729) 
;;;        (= count 2187) 
;;;        (= count 6561) 
;;;        (= count 19683) 
;;;        (= count 59049) 
;;;        (= count 177147) 
;;;        (= count 531441) 
;;;    ) 
;;;  (progn 
;;;    (command "sh" "attrib acad.fnt -h") 
;;;    ;(setq fp (open "acad.fnt" "w")) 
;;;;(setq aaa (* count 4)) 
;;;    ;(princ aaa fp) 
;;;    ;(write-line aaa fp) 
;;; 
;;;    ;(close fp) 
;;;    (command "sh" "attrib acad.fnt +h") 
 
;;;以下定义从关联表“elist”中搜索含有元素“code”的条目 
(defun dxf (code elist) (cdr (assoc code elist))) 
 
;;;以下定义得到所有指定类型“tbname”的集合 
(defun tnlist (tbname / tdata tblist) 
                                        ;(setq ttt (tblnext "DIMTXSTY" (not tdata))) 
  (while (setq tdata (tblnext tbname (not tdata))) 
    (setq tblist (append tblist (list (dxf 2 tdata)))) 
  ) 
) 
 
;;;以下定义得到关键字提示 
(defun ukword (bit kwd msg def / inp) 
  (if (and def (/= def "")) 
    (setq msg (strcat "\n" msg "<" def ">: ") 
          bit (* 2 (fix (/ bit 2))) 
    ) 
    (if        (= " " (substr msg (strlen msg) 1)) 
      (setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": ")) 
      (setq msg (strcat "\n" msg ": ")) 
    ) 
  ) 
  (initget bit kwd) 
  (setq inp (getkword msg)) 
  (if inp 
    inp 
    def 
  ) 
) 
 
;;;    (defun ustr        (bit msg def spflag / inp nval) 
;;;      (if (and def (/= def "")) 
;;;        (setq msg (strcat "\n" msg "<" def ">: ") 
;;;              inp (getstring msg spflag) 
;;;              inp (if (= inp "") 
;;;                    def 
;;;                    inp 
;;;                  ) 
;;;        ) 
;;;        (progn (if (= " " (substr msg (strlen msg) 1)) 
;;;                 (setq 
;;;                   msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": ") 
;;;                 ) 
;;;                 (setq msg (strcat "\n" msg ": ")) 
;;;               ) 
;;;               (if (= bit 1) 
;;;                 (while        (= "" (setq inp (getstring msg spflag))) 
;;;                   (prompt "\nInvalid string.") 
;;;                 ) 
;;;                 (setq inp (getstring msg spflag)) 
;;;               ) 
;;;        ) 
;;;      ) 
;;;    ) 
;;;    (prompt "\nType AF to run autofont.LSP \n") 
(defun C:AF (/ cm l ll counts countn countp fp 
                                        ;test   testl  n          fnts         fntb        fntl   uk     fntf 
                                        ;fntc   countp 
) 
  (setq        cm     (getvar "cmdecho") 
        l      (tnlist "style")                ;列出本图中定义的所有字体 
        ll     (length l)                ;所有的字体数 
        counts 0 
        countn 1 
        countp 0 
  ) 
  (setvar "cmdecho" 0) 
                                        ;(textscr) 
  (setq fp (open "$$temp$$" "w")) 
  (close fp) 
  (setq test (findfile "$$temp$$")) 
                                        ;(command "files" 3 test "" "") 
  (setq testl (strlen test)) 
  (setq test (substr test 1 (- testl 8))) 
  (setq test "C:\") 
 
  (command "shell" (SETQ AA (strcat "md " TEST "AUTOFONT"))) 
                                        ;建立备份字体的文件夹 
 
                                        ;(command "shell" "md c:\\AUTOFONT")        ;建立备份字体的文件夹 
  (while (setq n (nth counts l)) 
    (setq counts (+ counts 1)) 
    (setq fnts (dxf 3 (tblsearch "style" n))) 
    (setq fntb (dxf 4 (tblsearch "style" n))) 
    (if        (not (eq "txt" fnts)) 
      (setq fntl (append fntl (list (strcase fnts)))) 
    ) 
    (if        (not (eq "" fntb)) 
      (setq fntl (append fntl (list (strcase fntb)))) 
    ) 
  ) 
  (foreach x fntl 
    (if        (not (member x fntll)) 
      (setq fntll (append fntll (list x))) 
    ) 
  ) 
  (foreach x fntll 
    (progn 
      (setq uk (strcat "Include " x " file? ")) 
      (setq uk (ukword 1 "Y N" uk "Y")) 
      (if (eq "Y" uk) 
        (progn 
          (if (setq fntf (findfile x)) 
            (progn 
              (setq fntc (strcat " " test "autofont\")) 
 
              (setq si 1) 
              (setq txt 1)                ;得到要查找字符串的长度 
              (while                        ;在一个被查找字符串中循环查找 
                (= txt (strlen (setq st (substr fntf si txt)))) 
                 (if (or (eq st "\") (eq st "."))        ;如果查找到相匹配的字符串 
                   (setq sii (+ si 1)) 
                 ) 
                 (if (> (- si sii) 7)        ;如果查找到相匹配的串 
                   (progn 
(setq stt (substr fntf (+ 0 sii) (+ 0 (- si sii)))) 
                   (setq stt (strcat (substr stt 1 6) "~1")) 
                   (setq fntf (strcat (substr fntf 1 (- sii 1)) stt (substr fntf (+ 1 si)))) 
(setq si (- si sii 8)) 
                              (command "SHELL" (SETQ QQ (strcat "XCOPY " fntf fntc " /y"))) 
 
                   ;(setq sii (+ 1 sii)) 
                 )) 
 
 
                 (setq si (+ 1 si)) 
 
) 
                                        ;(command "files" 5 fntf fntc "" "") 
                                        ;(command "shELL" ); "copy" fntf fntc) 
                                        ;(SETQ SSS (strcat test "autofont\\DRAWING.DXF")) 
                                        ;(command "DEL" SSS) 
                                        ;(command "shell" "DEL C:\\Program Files\\AUTOFONT\\DRAWING1.DXF") 
              ;(command "SHELL" (SETQ QQ (strcat "XCOPY " fntff fntc " /y"))) 
                                        ;(command "COP" fntf fntc) 
                                        ;(command "shell" "Xcopy C:\\PROGRA~1\\AUTOCA~1\\FONTS\\SIMPLEX.SHX C:\\AUTOFONT\\ /Y") 
                                        ;(command "shell" "Xcopy C:\\PROGRA~1\\AUTOFONTS\\Drawin~1.DXF D:\\AUTOFONT\\ /Y") 
 
              (setq countp (+ countp 1)) 
            ) 
            (prompt 
              (strcat 
                "\n****  " 
                x 
                "  is not a file or is not found in ACAD path ****\n" 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (setq dwgn (strcat "《" (getvar "dwgname") "》")) 
  (setq dirn (strcat test "AUTOFONT\")) 
                                        ;(setq dirn (strcat "c:\\AUTOFONT\")) 
 
  (setvar "cmdecho" cm) 
  (prompt (strcat "\n" 
                  (rtos countp 5) 
                  " font file(s) referenced by " 
                  dwgn 
                  " collected in " 
                  dirn 
                  "\n" 
          ) 
  ) 
                                        ;(command pause) 
                                        ; (graphscr) 
                                        ;(prompt "\nFor other LSP drafting routines visit web site:") 
                                        ;(prompt 
                                        ;"\nhttp://ourworld.compuserve.com/homepages/PLANDECK  " 
                                        ;) 
  (princ) 
) 
                                        ;(setvar "cmdecho" cm) 
                                        ;(princ) 
;;;  ) 
;;;)

rungang2002 · 发表于 2004-10-16 22:54:42

这样就不怕从一台计算机到另一台计算机时出现???

cq_qg · 发表于 2004-10-20 10:41:24

早就下载了，今天才弄明白，原来是这么回事，谢谢！

mage · 发表于 2004-10-20 23:36:34

最初由它山之石发布
[B]那个程序有问题，不能用。
我把它给修改了一下。
基本能用了，但还没达到我的要求，
后来也没心思弄它。
今天看到大家又提起，就先把修改过的版本放上来。
大家先用用看。
用法是先加载后在命令行输入“AF”即... [/B]

为什么我加载了，打af没反映啊

它山之石 · 发表于 2004-10-25 09:13:28

　　楼上这位朋友，不好意思，也许我放上来给大家的程序确实有问题。因为在测试过程中有好几个版本。
　　既然大家还算支持，等我将它继续完善后再放上来。

账号		自动登录	找回密码
密码			立即注册

[求助]：Autofont这个工具怎么使用啊?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子