[LISP程序]：文字刷，将文字内容改成源文字内容

linhui12 · 发表于 2008-3-21 23:59:04

学习一下

wlf168 · 发表于 2008-4-11 09:53:08

下载不了啊!怎么回师?

yaker_77 · 发表于 2008-4-14 19:22:38

我要文本刷，下来看看

目标文本要是能框选就好了！

sss0415 · 发表于 2008-5-3 09:34:13

要这么多钱，不利于交流共享啊

030008 · 发表于 2008-7-18 16:00:25

多谢提供！

predestinate · 发表于 2008-11-21 09:08:29

看中文字刷了很实用

eric.kang · 发表于 2008-11-21 14:08:38

多謝慷慨的分享.

bigheadstld · 发表于 2009-1-4 20:18:42

终于下到了。谢谢提供

wjl1014 · 发表于 2009-1-8 22:50:23

5楼楼主说： 9pt 10pt 11pt 12pt 13pt 15pt

我没钱了，没钱了。

fuxianzhi · 发表于 2009-1-12 20:58:28

这网站的分类框架不清晰，要改进下才好用。目录不够清晰

GamIng · 发表于 2009-1-20 14:31:17

一个小东西居然也要钱。看我的：

;;;文字内容匹配
(defun c:wz
   (/ enn endata txtn ss i ennn ennndata oldtxtlist newtxtlist)
  (command "undo" "be")
  (setq enn (car (nentsel "请选择源文字")));;(setq enn (car (entsel)))
  ;;;(command "chprop" enn "" "c" 1 "")
  (redraw enn 3)
  (setq endata (entget enn))
  (setq txtn (cdr (assoc 1 endata)))
  (setq ss (ssget '((0 . "TEXT"))))
  (setq i 0)
  (repeat (sslength ss)
(setq ennn (ssname ss i))
(setq ennndata (entget ennn))
(setq oldtxtlist (assoc 1 ennndata))
(setq newtxtlist (cons 1 txtn))
(setq ennndata (subst newtxtlist oldtxtlist ennndata))
(entmod ennndata)
(setq i (1+ i))
  )
  ;;(command "chprop" enn "" "c" "bylayer" "")
  (redraw enn 4)
  (command "undo" "e")
  (princ)
)
;;;结束

langjs · 发表于 2009-3-4 21:06:45

下来看看

ljh19991220 · 发表于 2009-6-14 22:44:07

下载学习下，正在学习中

xjking007 · 发表于 2009-10-15 23:48:01

26楼你太强了,看你这么潇洒我想起了,古代的侠客,
虽然我自己不会编程,但心向往之.

yuguole · 发表于 2009-11-3 20:21:19

做个记号明天下怎么有时间限制啊两个多小时下一个疯了

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