社区 › AutoLISP/Visual LISP 编程技术 › 求一简单的命令，文字A和B互换，请大家帮忙

zzc83 发表于 2012-11-7 10:05:56

求一简单的命令，文字A和B互换，请大家帮忙

本帖最后由 zzc83 于 2012-11-7 10:09 编辑

选择文字里面 B改成AA改成B

夏生生 发表于 2012-11-7 10:23:04

思路差不多，拿着改改吧(DEFUN C:NN (/ ENT txt)
(while (SETQ ENT (ENTGET (CAR (ENTSEL)))
             txt (CDR (ASSOC 1 ENT))
       )
    (if        (wcmatch txt "*")
      (if (vl-string-search "G" txt)
        (ENTMOD        (SUBST (CONS 1 (vl-string-subst "A" "B" txt))
                     (ASSOC 1 ENT)
                     ENT
                )
        )
        (ENTMOD        (SUBST (CONS 1 (vl-string-subst "B" "A" txt))
                     (ASSOC 1 ENT)
                     ENT
                )
        )
      )
      (princ "\n头字符非AB，请重新选择")
    )
)
(prin1)
)

hao3ren 发表于 2012-11-7 10:35:43

http://bbs.mjtd.com/thread-95287-1-1.html

zzc83 发表于 2012-11-7 10:51:09

谢谢 夏生生，已经可以用了

查看完整版本: 求一简单的命令，文字A和B互换，请大家帮忙