求帮忙替换旧命令~有一个列表包含了新命令和需要被替换的旧命令，怎么替换呢？

iamhuangjinming

(defun c:refes ( )
  (setq lst1 (list  "A" "new1" "old1"))
  (setq lst2 (list  "B" "new2" "old2"))
  (setq lst (cons  lst1 lst))
  (setq lst (cons  lst2 lst))

(princ lst)
  (setq n (length lst));
  (setq index 0)
  (repeat n
    (setq lstn     (nth  index lst)
      index (1+ index)
    )
(setq lstn(cdr lstn))
(setq new1(car lstn))
(setq old1(cadr lstn))

;(defun c:new1 nil (c: old1)(prin1))这里想把已经定义好的old1命令替换成new1，怎么能做到呢？
)
)

tryhi

发完贴能否检查一下，你看你发了几个表情也不改一下

2. 
   
3. 
   
4. (defun c:old1 ()(princ "\n1"))
   
5. (defun c:old2 ()(princ "\n2"))
   
6. (defun c:old3 ()(princ "\n3"))
   
7. 
   
8. (setq lst '(("new1" "old1")("new2" "old2")("new3" "old3")))
   
9. (foreach n lst
   
10.         (eval(list 'defun (read(strcat "c:"(car n)))nil (list(read(strcat "c:"(cadr n))))))
    
11. )
    
12. 
    

<br /> <br /> (defun c:old1 ()(princ "\n1"))<br /> (defun c:old2 ()(princ "\n2"))<br /> (defun c:old3 ()(princ "\n3"))<br /> <br /> (setq lst '(("new1" "old1")("new2" "old2")("new3" "old3")))<br /> (foreach n lst <br />         (eval(list 'defun (read(strcat "c:"(car n)))nil (list(read(strcat "c:"(cadr n))))))<br /> )<br /> <br />

iamhuangjinming

tryhi 发表于 2020-6-12 14:51
发完贴能否检查一下，你看你发了几个表情也不改一下

感谢。那个表情惭愧了，我是个外行，做结构设计的，有几个命令同事要用别名所以这么搞。。。我试了一下我改的这个代码，提示参数类型错误，可以帮我看下怎么修正吗？感谢！
(defun c:de ()(princ "\n1"))
(defun c:ge ()(princ "\n2"))
(defun c:rev2 ()(princ "\n3"))
(defun c:rad ()(princ "\n3"))

(defun c:refes (/ fp str lst )
   (setq fp (open "C:/Program Files/gatex/命令重命名.txt" "r"))    ; 文件
   (while (and (setq str (read-line fp)) (not (wcmatch str "Rename*"))))

   (while (not (wcmatch str "$*"))
     (setq lst (cons (read (strcat "(" (substr str 7) ")")) lst)
           str (read-line fp)
   )
(princ)
)
(princ)
   (close fp)
(reverse lst)
(setq lstm nil)

  (setq n (length lst))
(princ n)
  (setq index 0)

  (repeat n
    (setq lstn     (nth  index lst)
      index (1+ index)
    )
(setq lstn(cdr lstn))
(setq lstm (cons lstn lstm))

)



(foreach n lstm
        (eval(list 'defun (read(strcat "c:"(car n)))nil (list(read(strcat "c:"(cadr n))))))
)

)


重命名文件里面的内容（参考“ Lisp如何读取txt中指定格式文件？”这个帖子写的）：
$ 以Rename识别    依次输入新命令、原命令：
Rename   直线_      new1    de  
Rename          多线_   new2   ge
Rename           云线_   new3   rev2
Rename          射线_     new4   rad
$ 到此结束

tryhi

居然用read来处理字符串，有意思

(foreach n lstm
        (eval(list 'defun (read(strcat "c:"(vl-prin1-to-string(car n))))nil (list(read(strcat "c:"(vl-prin1-to-string(cadr n)))))))
)

iamhuangjinming

tryhi 发表于 2020-6-12 18:08
居然用read来处理字符串，有意思

(foreach n lstm

感谢感谢，感谢大神！

iamhuangjinming

tryhi 发表于 2020-6-12 18:08
居然用read来处理字符串，有意思

(foreach n lstm

顺便再问一下您，我想取消被替换的命令，是不是可以用这条代码，(vl-acad-undefun 'c:xxx)，但是我用这条(vl-acad-undefun 'c: (vl-prin1-to-string(cadr n)))没能成功，也是参数类型的问题吗？

tryhi

(vl-acad-undefun (read(strcat "c:" (vl-prin1-to-string(cadr n)))))试试，我没用过这个

iamhuangjinming

tryhi 发表于 2020-6-16 16:30
(vl-acad-undefun (read(strcat "c:" (vl-prin1-to-string(cadr n)))))试试，我没用过这个

有效~~谢谢你！