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

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

本帖最后由 作者 于 2008-9-2 8:44:32 编辑 <br /><br /> <p>超级文字复制功能,请试用!</p><p>像格式刷一样简单实用!</p><p></p>

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

<p>2006下怎么用不起来</p><p>命令: _appload 已成功加载 kkfz.VLX。</p><p><br/>命令: Type&nbsp; KKFZ&nbsp; to run this program<br/>命令:<br/>命令: kkfz<br/>&lt;选择源文字&gt;<br/>选择对象: &lt;选择目标文字&gt;<br/>选择对象:<br/>nil</p>

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

请发表评论!

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

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

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

<p>最好介绍详细点</p>

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

<p>见标题</p>

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

<p>这个小玩意要注册？</p>

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

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

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

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

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

好用的，谢谢
页: [1] 2
查看完整版本: 超级文字复制功能,请试用!