[编程申请]：能不能设计个R14版单纯的查找程序,就象2000版那样

updi

我们的专业软件目前只支持R14版,所以我们也只有与14相依为命了,目前14版最头痛的问题是没有查找命令
FIND命令其实是替换命令,其实CHT也可以进行文本替换
但我们只想去查找并且能把查找到的结果显示在屏幕最中间的命令,还没有, 请各位大侠 给俺出个好主意或者编写个好的命令
在下先谢过了!

iVox

2. ;;; Ver3.0  2001.11.26  增加了缺省值和替换功能。
   
3. ;;; Ver2.0  2001.03.15  更加简洁的处理，重写了Zoom部分和比例设置部分。
   
4. ;;; Ver1.1
   
5. ;;; Ver1.0
   
6. 
   
7. (defun findt (ss / idx cnt key bsd)
   
8.   (setvar "cmdecho" 0)
   
9.   (setq idx 0)
   
10.   (setq cnt (sslength ss))
    
11.   (while (< idx cnt)
    
12.     (setq
    
13.       text_en (ssname ss idx)
    
14.       ent (entget text_en)
    
15.       pt0 (cdr (assoc 10 ent))
    
16.       str (cdr (assoc 1 ent))
    
17.     );setq
    
18.     (command "_zoom" "c" pt0 z_sc)
    
19.     (getkey)
    
20.   );while
    
21.   (if bsd nil (setq bsd cnt))
    
22.   (princ (strcat "\n" or_str " >> " (rtos cnt) " found, " (rtos bsd) " browsed. "))
    
23.   (setvar "cmdecho" 1)
    
24. )
    
25. 
    
26. (defun getkey ()
    
27.   (initget "Next Zoom Stop Replace")
    
28.   (setq key (getkword "\n<Next>/Zoom height/Stop/Replace: "))
    
29.   (if key nil (setq key "Next"))
    
30.   (cond
    
31.     ( (= key "Next") (setq idx (1+ idx)))
    
32.     ( (= key "Zoom") (setsc) (getkey))
    
33.     ( (= key "Stop") (setq bsd (1+ idx) idx cnt))
    
34.     ( (= key "Replace") (ft_rp) (setq idx (1+ idx)))
    
35.   )
    
36. )
    
37. 
    
38. (defun ft_rp (/ n_str)
    
39.   (if ft_new_str nil (setq ft_new_str ""))
    
40.   (princ (strcat "\nNew String: <" ft_new_str ">"))
    
41.   (setq n_str (getstring 1))
    
42.   (if (= n_str "") (setq n_str ft_new_str))
    
43.   (if (= n_str "")
    
44.     (ft_rp)
    
45.     (progn
    
46.       (setq ft_new_str n_str)
    
47.       (entmod (subst (cons 1 n_str) (assoc 1 ent) ent))
    
48.     )
    
49.   )
    
50. )
    
51. 
    
52. (defun setsc ()
    
53.   (princ (strcat "\nZoom height: <" z_sc ">: "))
    
54.   (setq z_sc (getint)
    
55.         z_sc (if z_sc (rtos z_sc) ft_z_sc)
    
56.   )
    
57.   (setq ft_z_sc z_sc)
    
58. )
    
59. 
    
60. (defun c:fft (/ str ss z_sc ent)
    
61.   (prompt "\nWritten by Little Fish, Dec 23 1996.")
    
62.   (prompt "\nFind text, ver 3.0, start as C:FFT")
    
63.   (setvar "highlight" 0)
    
64.   (if ft_z_sc nil (setq ft_z_sc "10000"))
    
65.   (if ft_dft_str nil (setq ft_dft_str ""))
    
66.   (setq z_sc ft_z_sc)
    
67.   (ft_get)
    
68.   (setq ft_dft_str or_str)
    
69.   (setq str (if ft_cas (strcase or_str) OR_STR))
    
70.   (setq ss (ssget "X" (list '(0 . "text") (cons 1 str))))
    
71.   (setvar "highlight" 1)
    
72.   (if ss (findt ss) (princ "Text not found."))
    
73.   (princ)
    
74. )
    
75. 
    
76. (defun ft_get ()
    
77.   (princ (strcat "\nText to search: <" ft_dft_str "> "))
    
78.   (setq or_str (getstring  1))
    
79.   (if (= or_str "") (setq or_str ft_dft_str))
    
80.   (if (= or_str "") (ft_get))
    
81. )
    
82. 
    
83. (princ "loaded. Start as C:FFT")
    
84. (princ)

;;; Ver3.0  2001.11.26  增加了缺省值和替换功能。<br /> ;;; Ver2.0  2001.03.15  更加简洁的处理，重写了Zoom部分和比例设置部分。<br /> ;;; Ver1.1<br /> ;;; Ver1.0<br /> <br /> (defun findt (ss / idx cnt key bsd)<br />   (setvar "cmdecho" 0)<br />   (setq idx 0)<br />   (setq cnt (sslength ss))<br />   (while (< idx cnt)<br />     (setq<br />       text_en (ssname ss idx)<br />       ent (entget text_en)<br />       pt0 (cdr (assoc 10 ent))<br />       str (cdr (assoc 1 ent))<br />     );setq<br />     (command "_zoom" "c" pt0 z_sc)<br />     (getkey)<br />   );while<br />   (if bsd nil (setq bsd cnt))<br />   (princ (strcat "\n" or_str " >> " (rtos cnt) " found, " (rtos bsd) " browsed. "))<br />   (setvar "cmdecho" 1)<br /> )<br /> <br /> (defun getkey ()<br />   (initget "Next Zoom Stop Replace")<br />   (setq key (getkword "\n<Next>/Zoom height/Stop/Replace: "))<br />   (if key nil (setq key "Next"))<br />   (cond<br />     ( (= key "Next") (setq idx (1+ idx)))<br />     ( (= key "Zoom") (setsc) (getkey))<br />     ( (= key "Stop") (setq bsd (1+ idx) idx cnt))<br />     ( (= key "Replace") (ft_rp) (setq idx (1+ idx)))<br />   )<br /> )<br /> <br /> (defun ft_rp (/ n_str)<br />   (if ft_new_str nil (setq ft_new_str ""))<br />   (princ (strcat "\nNew String: <" ft_new_str ">"))<br />   (setq n_str (getstring 1))<br />   (if (= n_str "") (setq n_str ft_new_str))<br />   (if (= n_str "")<br />     (ft_rp)<br />     (progn<br />       (setq ft_new_str n_str)<br />       (entmod (subst (cons 1 n_str) (assoc 1 ent) ent))<br />     )<br />   )<br /> )<br /> <br /> (defun setsc ()<br />   (princ (strcat "\nZoom height: <" z_sc ">: "))<br />   (setq z_sc (getint)<br />         z_sc (if z_sc (rtos z_sc) ft_z_sc)<br />   )<br />   (setq ft_z_sc z_sc)<br /> )<br /> <br /> (defun c:fft (/ str ss z_sc ent)<br />   (prompt "\nWritten by Little Fish, Dec 23 1996.")<br />   (prompt "\nFind text, ver 3.0, start as C:FFT")<br />   (setvar "highlight" 0)<br />   (if ft_z_sc nil (setq ft_z_sc "10000"))<br />   (if ft_dft_str nil (setq ft_dft_str ""))<br />   (setq z_sc ft_z_sc)<br />   (ft_get)<br />   (setq ft_dft_str or_str)<br />   (setq str (if ft_cas (strcase or_str) OR_STR))<br />   (setq ss (ssget "X" (list '(0 . "text") (cons 1 str))))<br />   (setvar "highlight" 1)<br />   (if ss (findt ss) (princ "Text not found."))<br />   (princ)<br /> )<br /> <br /> (defun ft_get ()<br />   (princ (strcat "\nText to search: <" ft_dft_str "> "))<br />   (setq or_str (getstring  1))<br />   (if (= or_str "") (setq or_str ft_dft_str))<br />   (if (= or_str "") (ft_get))<br /> )<br /> <br /> (princ "loaded. Start as C:FFT")<br /> (princ)

updi

二楼的兄弟，你的程序我试过了，但FFT.LSP文件执行后，查找任何文字或数字都报告说没有找到，这是什么原因造成的！谢谢！我用的是R14英文版！

eachy

只能找Text文字，对Mtext无效，如果完全匹配输入全字，还可以使用通配符。

iVox

updi：
程序是96年针对自己的使用习惯写的，只支持TEXT实体。用了很多年，应该没什么大问题。
不过现在这个程序我自己都不用了，改用2002或2004自己的查找工具。

eachy：
谢谢你的回复 ：）

updi

iVox：
  谢谢你的程序，我搜索TEXT实体成功了，但没有NEXT选项，只能搜第一个，你能否把你的程序放在网上，如何？
我很想用更高的CAD版本，但我们的行业软件只支持R14。升级的计划可以说是遥遥无期的！

iVox

以上已经把完整代码贴出来了，如果你确实需要，地址如次：
http://ivox.bjht.com/lisp/fft.lsp

我刚试了一次，确实有Next，而且是命令行的缺省值。其他还有设置缩放比例、停止、替换几个功能。
查找完成之后，有个报告：一共有几个，你查看了几个。

updi

iVox:
谢谢你，我终于试成功了，很好用！只是当时没看懂设置缩放比例而已所以出现这些困难！