[求助]：文字替换程序，如何修改为在R14下使用

ld80721

求教:下面的程序不能用于R14,望帮我改改!

yzfu2000

找个软件不是太好用

XIAOYINGZI_CHEN

能在r14下能用的

ld80721

最初由 XIAOYINGZI_CHEN 发布
[B]能在r14下能用的 [/B]

你理解错了，我程序面板：

LUCAS

2. 
   
3. 未在R14中測試過!!
   
4. ;;幫我看看這個LISP為什麼不能在R14下用,2004上能用,但我一直都是用R14.
   
5. ;;下面是代碼
   
6. 
   
7. ;;調用菜單
   
8. (defun C:TZ (/ DCL_ID FLAG TXTFILE TXTLIST WBNRN)
   
9.   (setq FLAG 4)
   
10.   (setq DCL_ID (load_dialog "tz.dcl"))
    
11.   (if (< DCL_ID 0)
    
12.     (exit)
    
13.   )
    
14.   (if (not (new_dialog "tz" DCL_ID))
    
15.     (exit)
    
16.   )
    
17.   (setq TXTFILE (findfile "tz.txt"))
    
18.   (setq TXTLIST (GET_TXT TXTFILE))
    
19.   (ADDITEMS "wbbc" TXTLIST)
    
20.   (while (> FLAG 2)
    
21.     (action_tile "wbtj" "(wbtj)")
    
22.     (action_tile "wbbc" "(wbbc $value)")
    
23.     (action_tile "wbsc" "(wbsc)")
    
24.     (action_tile "wbxz" "(wbxz0)(done_dialog 1)")
    
25.     (action_tile "cancel" "(done_dialog 0)")
    
26.     (setq FLAG (start_dialog))
    
27.     (if        (= FLAG 1)
    
28.       (WBXZ WBNRN TXTLIST)
    
29.     )
    
30.   )
    
31.   (unload_dialog DCL_ID)
    
32.   (princ)
    
33. )
    
34. 
    
35. ;;把本機上文本添入菜單中
    
36. (defun WBTJ ()
    
37.   (setq TXTLIST (append TXTLIST (list (get_tile "wbnr"))))
    
38.   (ADDITEMS "wbbc" TXTLIST)
    
39.   (if TXTLIST
    
40.     (WRITE_TXT TXTFILE TXTLIST)
    
41.   )
    
42. )
    
43. 
    
44. ;;把本機上文本刪除
    
45. (defun WBSC ()
    
46.   (setq TXTLIST (STD-REMOVE WBNRN TXTLIST))
    
47.   ;;(setq TXTLIST (vl-remove WBNRN TXTLIST))
    
48.   (ADDITEMS "wbbc" TXTLIST)
    
49.   (if TXTLIST
    
50.     (WRITE_TXT TXTFILE TXTLIST)
    
51.   )
    
52. )
    
53. 
    
54. (defun WBBC (VVA)
    
55.   (setq WBNRN (nth (atoi VVA) TXTLIST))
    
56.   (set_tile "wbnr" WBNRN)
    
57. )
    
58. 
    
59. (defun WBXZ0 ()
    
60.   (setq WBNRN (get_tile "wbnr"))
    
61. )
    
62. 
    
63. (defun WBXZ (WBNRN TXTLIST / ENT1)
    
64.   (if (setq ENT1 (car (entsel)))
    
65.     (progn
    
66.       (setq ENT1 (entget ENT1))
    
67.       (entmod (subst (cons 1 WBNRN) (assoc 1 ENT1) ENT1))
    
68.     )
    
69.   )
    
70.   ;;(vl-load-com)
    
71.   ;;(setq ENT1 (vlax-ename->vla-object (car (entsel))))
    
72.   ;;(setq ENT2 (vla-put-textstring ENT1 WBNRN))
    
73. )
    
74. 
    
75. ;;將文本文件中的內容轉換為列表
    
76. (defun GET_TXT (DATFILE / TMPLST X FN)
    
77.   (setq FN (open DATFILE "r"))
    
78.   (while (setq X (read-line FN))
    
79.     (setq TMPLST (append TMPLST (list X)))
    
80.   )
    
81.   (close FN)
    
82.   TMPLST
    
83. )
    
84. 
    
85. ;;將列表內容寫入文本文件中
    
86. (defun WRITE_TXT (DATFILE TMPLST / X FN N)
    
87.   (setq FN (open DATFILE "w"))
    
88.   (setq N 0)
    
89.   (while (setq X (nth N TMPLST))
    
90.     (write-line X FN)
    
91.     (setq N (+ N 1))
    
92.   )
    
93.   (close FN)
    
94. )
    
95. 
    
96. ;;把列表添入菜單中
    
97. (defun ADDITEMS        (LISTBOX TMPLST)
    
98.   (start_list LISTBOX)
    
99.   (mapcar 'add_list TMPLST)
    
100.   (end_list)
     
101. )
     
102. 
     
103. ;; STD-REMOVE - Removes all items from a list, also all duplicate elements
     
104. ;; (std-remove 0 '(0 1 2 3 0)) -> (1 2 3)
     
105. (defun STD-REMOVE (ELE LST)                ; by Serge Volkov, Tony also claims
     
106.   (if LST
     
107.     (apply (function append)
     
108.            (subst NIL
     
109.                   (list ELE)
     
110.                   (mapcar (function list) LST)
     
111.            )
     
112.     )
     
113.   )
     
114. )
     

<br /> 未在R14中測試過!!<br /> ;;幫我看看這個LISP為什麼不能在R14下用,2004上能用,但我一直都是用R14.<br /> ;;下面是代碼<br /> <br /> ;;調用菜單<br /> (defun C:TZ (/ DCL_ID FLAG TXTFILE TXTLIST WBNRN)<br />   (setq FLAG 4)<br />   (setq DCL_ID (load_dialog "tz.dcl"))<br />   (if (< DCL_ID 0)<br />     (exit)<br />   )<br />   (if (not (new_dialog "tz" DCL_ID))<br />     (exit)<br />   )<br />   (setq TXTFILE (findfile "tz.txt"))<br />   (setq TXTLIST (GET_TXT TXTFILE))<br />   (ADDITEMS "wbbc" TXTLIST)<br />   (while (> FLAG 2)<br />     (action_tile "wbtj" "(wbtj)")<br />     (action_tile "wbbc" "(wbbc $value)")<br />     (action_tile "wbsc" "(wbsc)")<br />     (action_tile "wbxz" "(wbxz0)(done_dialog 1)")<br />     (action_tile "cancel" "(done_dialog 0)")<br />     (setq FLAG (start_dialog))<br />     (if        (= FLAG 1)<br />       (WBXZ WBNRN TXTLIST)<br />     )<br />   )<br />   (unload_dialog DCL_ID)<br />   (princ)<br /> )<br /> <br /> ;;把本機上文本添入菜單中<br /> (defun WBTJ ()<br />   (setq TXTLIST (append TXTLIST (list (get_tile "wbnr"))))<br />   (ADDITEMS "wbbc" TXTLIST)<br />   (if TXTLIST<br />     (WRITE_TXT TXTFILE TXTLIST)<br />   )<br /> )<br /> <br /> ;;把本機上文本刪除<br /> (defun WBSC ()<br />   (setq TXTLIST (STD-REMOVE WBNRN TXTLIST))<br />   ;;(setq TXTLIST (vl-remove WBNRN TXTLIST))<br />   (ADDITEMS "wbbc" TXTLIST)<br />   (if TXTLIST<br />     (WRITE_TXT TXTFILE TXTLIST)<br />   )<br /> )<br /> <br /> (defun WBBC (VVA)<br />   (setq WBNRN (nth (atoi VVA) TXTLIST))<br />   (set_tile "wbnr" WBNRN)<br /> )<br /> <br /> (defun WBXZ0 ()<br />   (setq WBNRN (get_tile "wbnr"))<br /> )<br /> <br /> (defun WBXZ (WBNRN TXTLIST / ENT1)<br />   (if (setq ENT1 (car (entsel)))<br />     (progn<br />       (setq ENT1 (entget ENT1))<br />       (entmod (subst (cons 1 WBNRN) (assoc 1 ENT1) ENT1))<br />     )<br />   )<br />   ;;(vl-load-com)<br />   ;;(setq ENT1 (vlax-ename->vla-object (car (entsel))))<br />   ;;(setq ENT2 (vla-put-textstring ENT1 WBNRN))<br /> )<br /> <br /> ;;將文本文件中的內容轉換為列表<br /> (defun GET_TXT (DATFILE / TMPLST X FN)<br />   (setq FN (open DATFILE "r"))<br />   (while (setq X (read-line FN))<br />     (setq TMPLST (append TMPLST (list X)))<br />   )<br />   (close FN)<br />   TMPLST<br /> )<br /> <br /> ;;將列表內容寫入文本文件中<br /> (defun WRITE_TXT (DATFILE TMPLST / X FN N)<br />   (setq FN (open DATFILE "w"))<br />   (setq N 0)<br />   (while (setq X (nth N TMPLST))<br />     (write-line X FN)<br />     (setq N (+ N 1))<br />   )<br />   (close FN)<br /> )<br /> <br /> ;;把列表添入菜單中<br /> (defun ADDITEMS        (LISTBOX TMPLST)<br />   (start_list LISTBOX)<br />   (mapcar 'add_list TMPLST)<br />   (end_list)<br /> )<br /> <br /> ;; STD-REMOVE - Removes all items from a list, also all duplicate elements<br /> ;; (std-remove 0 '(0 1 2 3 0)) -> (1 2 3)<br /> (defun STD-REMOVE (ELE LST)                ; by Serge Volkov, Tony also claims <br />   (if LST<br />     (apply (function append)<br />            (subst NIL<br />                   (list ELE)<br />                   (mapcar (function list) LST)<br />            )<br />     )<br />   )<br /> )<br />

ld80721

最初由 LUCAS 发布
[B][CODE]
未在R14中測試過!!
;;幫我看看這個LISP為什麼不能在R14下用,2004上能用,但我一直都是用R14.
;;下面是代碼

;;調用菜單
(defun C:TZ (/ DCL_ID FLAG TXTFILE TXTLIST WBNRN)
  (setq FLAG 4)
  (setq ... [/B]

谢谢,能用.