超级文字复制功能,请试用!

zcsoft · 发表于 2008-8-2 14:20:00

本帖最后由作者于 2008-9-2 8:44:32 编辑

超级文字复制功能,请试用!

像格式刷一样简单实用!

yy225cn · 发表于 2008-8-3 11:21:00

2006下怎么用不起来

命令: _appload 已成功加载 kkfz.VLX。

命令: Type KKFZ to run this program
命令:
命令: kkfz
<选择源文字>
选择对象: <选择目标文字>
选择对象:
nil

zcsoft · 发表于 2008-8-6 13:33:00

请发表评论!

pxm204192 · 发表于 2008-8-6 16:24:00

文字自制功能,autocad本身有这个功能,不知这个有何神奇之处,下载看看......

buxun · 发表于 2008-8-6 21:11:00

最好介绍详细点

zcsoft · 发表于 2008-9-8 07:58:00

见标题

lyq2004 · 发表于 2008-10-16 17:45:00

这个小玩意要注册？

lyq2004 · 发表于 2008-10-16 17:46:00

;;; 文本内容刷,把文字改为同样内容
(defun c:ws (/ sourcetext sourcetextname sourcetextdata sourcetextcontent
    denstextname index n ssa denstextdata denstextpro
    denstextcontent
        )
(setvar "CMDECHO" 0)
(princ "\n<将源文本内容传递给别的文本>")
(setq sourcetext (entsel "\n选择源文本: ")) ; 选择标注
(setq sourcetextname (car sourcetext))
(setq sourcetextdata (entget sourcetextname)) ; 获取实体全部数据
(setq sourcetextcontent (cdr (assoc 1 sourcetextdata))) ; 提取文本内容
(princ (strcat "\n要传递的文本为:<" sourcetextcontent ">"))
(setq ssa (ssget))
(setq n (sslength ssa))
(setq index (- n 1))
(repeat n
    (setq denstextname (ssname ssa index))
    (setq denstextdata (entget denstextname))
    (setq denstextpro (assoc 0 denstextdata))
    (setq index (1- index))
    (setq denstextcontent (cdr (assoc 1 denstextdata)))
    (if (= "TEXT" (cdr denstextpro))
      (command "change" denstextname "" "" "" "" "" "" sourcetextcontent)
    )
)
(princ)
)

jxphklibin · 发表于 2008-11-6 10:15:00

这个东西还注册，唉，也没有什么实用功能！

miny · 发表于 2009-5-21 22:21:00

好用的，谢谢

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

超级文字复制功能,请试用!

本帖子中包含更多资源