[LISP程序]：交换文字内容的lsp

liujian166 · 发表于 2006-8-22 09:00:48

不错，在某些场合还是能提高效率的

zmlcdc · 发表于 2006-8-26 00:14:50

有一点用,谢谢!!!

luosheng66 · 发表于 2006-8-26 11:35:07

收下了

szzjd888 · 发表于 2006-8-30 12:27:11

我非常想要这个文字互换程序
下载了有近20次，每次都

wl1221 · 发表于 2006-9-25 22:45:45

不错支持一下希望能贴出源码

cslee110 · 发表于 2006-9-26 16:34:47

有很多工具集成了这个功能！

zml84 · 发表于 2006-9-27 09:27:58

说实话，这些函数对实际工作意义不大；我觉得，编写东西最好能有实际应用背景，才能做的立竿见影。

csnol · 发表于 2007-11-24 09:40:38

我是新手，真的很想要这个文字刷，急死我了，哪位大侠能发到我邮箱里，那就真谢谢了。qd5xp@126.com

sfjlx · 发表于 2007-11-24 10:17:21

我也下不了！斑竹看看！

leeyuan · 发表于 2007-11-24 15:13:29

文字互换
[php];;;Filename:Exchtxt.lsp
;;;exchange two text words
(defun c:Exchtxt (/)
  (setq $osmode (getvar "osmode"))
  (setq $cmdecho (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (prompt " \nPlease Choose Two Texts:")
  (setq el (ssget '((0 . "*text"))))
  (setq len (sslength el))
  (if (> len 2)
(progn
   (princ "\nExceed Two String Texts!")
)
(progn
   (setq en1 (ssname el 0))
   (setq eninf1 (entget en1))
   (setq txt1 (cdr (assoc 1 eninf1)))
   (setq en2 (ssname el 1))
   (setq eninf2 (entget en2))
   (setq txt2 (cdr (assoc 1 eninf2)))
   (entmod (subst (cons 1 txt2) (assoc 1 eninf1) eninf1))
   (entmod (subst (cons 1 txt1) (assoc 1 eninf2) eninf2))
)
  )
  (setvar "osmode" $osmode)
  (setvar "cmdecho" $cmdecho)
  (princ)
)
[/php]

winsbol · 发表于 2007-12-1 22:02:21

郁闷的下载过程，好几次都没搞定。。。。

carrot1983 · 发表于 2007-12-2 09:56:50

这些都很简单的程序...何必呢...
发个贴子求助一下就有人帮了...
还有可以搜索一下贴子就有了,,,

nyfzh · 发表于 2008-12-23 17:13:09

谢谢楼主奉献！

xiangandqing · 发表于 2008-12-24 16:14:23

正需要，可以还不能下载,努力中

cyanforjuju · 发表于 2008-12-24 20:54:31

我是新人。。。。希望大家支持

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