【FA】阿甘文字刷_v5.0

kucha007

阿甘写的文字刷，用了很久，非常好用!
http://bbs.mjtd.com/forum.php?mo ... 376&fromuid=7329538

个人出于学习的目的，梳理了一遍程序，然后增加了一些阿甘没有加进去的天正对象，欢迎大家使用

kucha007

20240402-v5.0
1-模式4截取字符串时，取为首尾忽略，刷为首尾保留
2-修复CAD标注无文字替代时无法替换的情况。直径、半径、角度标注无文字替代时，将取测量值并添加对应的符号。
3-修复天正T20_v10图名标注无法获取的情况


20240204-v4.9
1-非替换模式下，可刷源数据本身(原先不行)
2-下给上时，当上标含<镀锌、不锈钢>或下标含<电镀、氟碳漆、螺栓、参见、详见、详*图>时,合并后的上标后面将添加英文逗号!

20240128-v4.8
1-扩写取刷项后为截取字符串。取和刷各由两个参数控制截取字符串的位置(命令分别是数字1和数字2)。
    两个参数从前从后向中间截取字符串，截取得到两个参数中间的字符串
    天正做法标注存在多行时参数表示行数，单行时参数表字符串位置。
2-增加做法倒置的子命令Z，可通过该命令颠倒内外做法(同时移除做法的空行)
3-增加下给上的子命令G，可通过该命令将天正箭头引注和引出标注的下标合并到上标(如果有)
4-根据精度四舍五入天正坐标标注及天正标高标注，相当于取刷所见所得(同时处理正负零标高)
5-梳理天正标高取刷的逻辑关系，同时修复bug
6-天正多行文字可直接刷天正做法标注

20240113-v4.7
1-取消连字符模式，改为更灵活的取刷项后（具体可设置项后识别位置）
(取时项位后的字符将被删除，刷时项位后的字符将被替换。该模式下天正做法的项位指的是行数)
2-修复取刷天正做法标注的逻辑。做法标注刷其它对象时，去除格式。
3-修复bug：天正标高上下标刷取错误
4-模式太多，增加关键词B。原先的F是模式向后翻，增加的B是模式向前翻

20240109-v4.6
1-上下标和设置全存为系统变量，方便跨文件使用。关键词R可重置为缺省值
2-增加一些逻辑判断，避免空选对象、误选对象、输错关键词导致使用默认值
3-使用默认值：仅可通过空格和回车使用默认值
4-切换模式的快捷键由M改为F,以便左手可以便捷输入关键词

20231016-v4.5
1-上下标存为系统变量，支持跨文件使用

20230905-v4.4
1-支持CAD标注：CAD半径+CAD直径+线性标注+对齐标注+角度标注+坐标标注+弧长标注+折弯标注
2-点选天正标高时，如果为模式为<仅刷下标>且标高为单层无下标时，添加下标。

202306157-v4.3
天正单层标高支持上下标拆分更新（前提是使用天正的注释方式，即带&符号，这类方式也可以动态更新标高）
支持天正做法标注，可以把做法刷给做法。

202030606-v4.2
增加模式切换，看是把文字内容全部替换/追加到前面/追加到后面
连字符位置默认为0，即不根据连字符位置拆分字符串(原来是3)

20230605-v4.1
应坛友建议，增加对2021以上版本的判断
https://help.autodesk.com/view/ACD/2024/ENU/?guid=GUID-1853092D-6E6D-4A06-8956-AD2C3DF203A3

202030604-v4.0
拆分字符串函数和另一个帖子的保持一致：http://bbs.mjtd.com/forum.php?mo ... 912&fromuid=7329538
使用连字符模式时，特殊符号拆分为单字符。

202030602-v3.9
当只刷下标且上标存在时，把上标给下标。

202030602-v3.8
用grread重写了部分代码，输入关键词可不用再回车。
增加关键词：R重置参数，前三项复位成起始状态，一步到位。
增加匹配模式：只刷上标。
优化其它细节。

20230525-v3.7
对于天正的箭头引注和引出标注，有时候需要单独刷下标。所以增加了关键词，看是上下标一起刷，还是单独把获取的上标文字刷给天正下标。

20230511-v3.6
个人偶尔需要刷图号，但图号前面的图类和连字符不需要，所以就加了一个识别连字符拆分字符串的功能。具体各位用用便知。

lxl217114

可以增加一个连刷模式么：
就是执行FA命令以后，可以一直执行：选择【源文字】——>【需要改变的文字】的这个步骤，
相当于执行完成一次【源文字】——>【需要改变的文字】操作后，软件默认回到选择【源文字】这个步骤，然后周而复始。

vbiaw0024

;保存YaHW系统变量，保存到cad安装目录下的YaHWWZSVAL.TXT by YaHW 2017/03/13
        (defun YaHW:SaveSysVarYaHW(valname valvalue infotext / acadpath f datalist data valvalue_old i isthere)
                (setq acadpath(vlax-get-property (vlax-get-acad-object) 'Path))
                (if (= infotext "")(setq infotext "no infotext"))
                (if (null (findfile "YaHWWZSVAL.TXT"))
                        (progn ;若文件不存在
                                (setq f (open (strcat acadpath "\\YaHWWZSVAL.TXT") "w"))
                                (prin1 (list valname valvalue infotext) f)
                                (close f)
                        )
                        (progn ;若文件已存在
                                (setq datalist '())
                                (setq f (open (strcat acadpath "\\YaHWWZSVAL.TXT") "r"))
        (while (setq data (read-line f))
                                        (setq datalist (cons data datalist))
        )
                                (close f)
                                (setq datalist (reverse datalist))
                                (setq       i 0
                                        isthere 0)
                                (repeat (length datalist)
                                        (if (= valname (car (read (nth i datalist))))
                                                (progn
                                                        (setq datalist (subst (vl-prin1-to-string (list valname valvalue infotext)) (nth i datalist) datalist))
                                                        (setq isthere 1)
                                                )
                                        )
                                        (setq i (1+ i))
                                )
                                (if (= 1 isthere)
                                        (progn
                                                (setq f (open (strcat acadpath "\\YaHWWZSVAL.TXT") "w"))
                                                (prin1 (read (nth 0 datalist)) f)
                                                (close f)
                                                (setq i 1)
                                                (setq f (open (strcat acadpath "\\YaHWWZSVAL.TXT") "a"))
                                                (repeat (- (length datalist) 1)
                                                        (write-line "" f)
                                                        (prin1 (read (nth i datalist)) f)
                                                        (setq i (1+ i))
                                                )
                                                (close f)
                                        )
                                        (progn
                                                (setq f (open (strcat acadpath "\\YaHWWZSVAL.TXT") "a"))
                                                (write-line "" f)
                                                (prin1 (list valname valvalue infotext) f)
                                                (close f)
                                        )
                                )
                        )
                )
                (princ)
        )
        ;读取YaHW系统变量 by YaHW 2017/03/13
        (defun YaHW:ReadSysVarYaHW( / acadpath data datalist i f)
                (setq acadpath(vlax-get-property (vlax-get-acad-object) 'Path))
                (if (findfile "YaHWWZSVAL.TXT")
                        (progn
                                (setq datalist '())
                                (setq f (open (strcat acadpath "\\YaHWWZSVAL.TXT") "r"))
                                (while (setq data (read-line f))
                                        (setq datalist (cons data datalist))
                                )
                                (reverse datalist)
                                (close f)
                                (setq i 0)
                                (repeat (length datalist)
                                        (set (read (car (read (nth i datalist)))) ;注意字符和表之间的转换，字符串是不能作为变量名的
                                                (cadr (read (nth i datalist)))       ;car对字符串也是不起作用的
                                        )
                                        (setq i (1+ i))
                                )
                        )
                        nil
                )
        )

yaojing38

谢谢分享，，学习学习！

p-3-ianlcc

谢谢楼主的分享！～
下载来试试看

lxl217114

厉害了，我的哥。这个插件儿是我启动组必备

hiviki

楼主请问LSP和fas这两个文件是 一样的吧？

kucha007

lxl217114 发表于 2023-4-29 20:50
厉害了，我的哥。这个插件儿是我启动组必备

很难不同意～

kucha007

hiviki 发表于 2023-4-30 07:32
楼主请问LSP和fas这两个文件是 一样的吧？

一样的，只是源码权限更高

菜鸟初来乍到

感谢楼主分享

szhorse

两年的时间你已经牛13哄哄的了，写的插件非常好用
话说你的屁打怎么没后续了

kucha007

szhorse 发表于 2023-4-30 10:43
两年的时间你已经牛13哄哄的了，写的插件非常好用
话说你的屁打怎么没后续了

因为暂时够用了啊~现在还能想到要加的一点就是判断缩放后的图块