Luoyunwu2008作品AutoCAD创新知识分享
之
AutoCAD中快速复制文字的快捷命令小程序一．命令的名称及作用1.名称：FT2.作用：快速复制文字，类似于刷属性命令“MATCHPROP”，可以使N多个文字的内容即刻变成最先选取的文字内容，不需要频繁操作“复制”、“粘贴”命令来达成。二．命令的源代码（绝对原创，本人使用AutoCAD二十多年的积累，类似命令还有许多）(DEFUNc:Ft()(setvar\0)(SETQENT_TEXT(ENTSEL\请选择要被拷贝的文字:\(WHILE(=ENT_TEXTNIL)(PRINC\没有选择.\(SETQENT_TEXT(ENTSEL\请选择要被拷贝的文第1页共5页Luoyunwu2008作品字:\)(SETQOLD_ENT_TEXT(ENTGET(CARENT_TEXT)))(SETQCON_TEXT(CDR(ASSOC0OLD_ENT_TEXT)))(WHILE(AND(/=CON_TEXT\(/=CON_TEXT\(PRINC\没有选择文字\(SETQENT_TEXT(ENTSEL\请选择要被拷贝的文字:\(SETQOLD_ENT_TEXT(ENTGET(CARENT_TEXT)))(SETQCON_TEXT(CDR(ASSOC0OLD_ENT_TEXT))))(SETQOLD_TEXT(CDR(ASSOC1OLD_ENT_TEXT)))(SETQTEXT_ALL(SSGET'((-4.\(0.\(0.\(-4.\))(SETQNUM_TEXT_ALL(SSLENGTHTEXT_ALL)CC0第2页共5页Luoyunwu2008作品NUM_ALL0)(WHILE(>NUM_TEXT_ALLCC)(SETQOBJ_1(ENTGET(SSNAMETEXT_ALLCC)))(SETQENT_1(CDR(ASSOC1OBJ_1)))(SETQNEWT(CONS1old_text))(SETQOLDT(ASSOC1OBJ_1))(SETQOBJ_1(SUBSTNEWTOLDTOBJ_1))(ENTMODOBJ_1)(SETQCC(+CC1))(SETQNUM_ALL(+NUM_ALL1)))(PRINC\改变个数:\(PRINCnum_all)(PRIN1))三．如何载入到AutoCAD中步骤很简单：1.将以上源代码复制到记事本中，存盘并命名为“ft.lsp”，存盘位置任意；2.打开AutoCAD，在命令行输入“APPLOAD”，并第3页共5页Luoyunwu2008作品回车，在出现的“加载/卸载应用程序”中找到刚存盘的文件“ft.lsp”，点“加载”，对话框最下方会显示加载成功，再点选“关闭”，关闭对话框；3.在命令行中输入“ft”，即可使用此命令了。四．如何使用1.在命令行中输入“ft”，回车后命令行显示“请选择要被拷贝的文字:”；2.此时选择要复制的文字，如下图：选择“复制”3.此时命令行显示“选择对象：”，此时选择要被改变的文字“粘贴”，可以全部框选；第4页共5页Luoyunwu2008作品4.选好后回车确认，结果如下图：五．总结抛砖引玉，希望对大家在使用AutoCAD时有些帮忙，提高使用的效率，同时也希望有共同爱好的朋友一起分享。下节内容：一个命令搞定剖视图箭头符号。后续内容预告：自动打印（两个字母+点两下鼠标，自动打印N张图纸）；傻瓜图库（创建属于自己的图库，可分类、可编辑、可创建、可删除，我的图库我做主）第5页共5页
AutoCAD中快速复制文字的快捷命令小程序
