【RR】绘制云线_v4.0.7

kucha007 · 发表于 2022-12-13 22:14:07

本帖最后由 kucha007 于 2024-10-12 20:46 编辑

【源码公开】

在保留作者信息的前提下

免费使用和修改

kucha007 · 发表于 2023-5-16 00:45:09

本帖最后由 kucha007 于 2024-10-12 20:40 编辑

20241012-v4.0.7
1-修复提示文字的BUG
2-修改某些文字表达，修改某些关键词。
3-源码公开，在保留作者信息的前提下，欢迎使用和修改

20240727-v4.0.6
1-临时动态时，记录云线最大弧长作为默认值
2-云线移层时，修改扩展数据的日期到当前

v4.0.5(忘记改啥了)

20240613-v4.0.4
1-默认层颜色取消做为全局变量（用了一段时间感觉不是很方便）
2-云线默认层色为254号浅灰色
3-文字默认层色为2号黄色

20240603-v4.0.3
1-云线默认层之前是按月新建层，细化为按月的上中下旬。
2-默认层颜色作为跨文件变量使用
3-云线默认层色为242号酒红色
4-文字默认层色为216号淡紫色

20240522-v4.0.2
1-旧云线自动归层：
      变更较多，标云线也较多，就需要处理以前圈过的云线。
      增加此功能用于提取云线的创建日期，并且根据日期建立不可打印层，再将对象移动过去。
      但是因为我之前没有考虑过这个问题，因此4.0以下的版本并没有记录云线的创建时间，也就无法识别，不支持使用该功能。
2-由于扩充了多种标注文字的模式，所以之前的导出标注和现在逻辑太一样
      新版本将不能再收集并导出旧版本的云线文字。

20240515-v3.3.4
1-支持取块轮廓(平行于UCS)
2-增加前缀切换：时间/人员/人员+时间/无内容
3-标注比例增减时，记录在本文件中。跨文件始终和天正或者CAD标注比例一致
      修复当前比例小于增减倍数时仍然减少的情况
      增减倍数作为全局变量，同一文件不再清空
4-绘制圆形云线时，不再使用初始点(动态无法捕捉)，而是提示选择圆心点(方便捕捉准确的圆心)
5-绘制折线云线时，不再使用初始点(动态无法捕捉)，而是提示选择起点(方便捕捉)。
      折线偏移时，两端也向外偏移
6-同一CAD命名空间内，变量跨文件始终保持一致。缺省时才使用默认值

20240427-v3.3.3
1-初次启动时，默认不标字(原来是标字，所以有点烦)
2-增加拾取点绘制折线，并且双向偏移生成云线(绘制时可随时撤回上一点)。
3-点选对象时，如果是直线或者不闭合的多段线，则双向偏移多段线生成云线(忽略圆弧)
      点选对象时，如果对象为属性定义，则归属于文字类。和文字一样，生成最小边界框作为云线依据

20240427-v3.3.2
1-修复框叉：不涉及云线调整的图可使用框叉，叉掉
      关键词D可只选程序创建的框叉进行删除，避免误删除。清空改为删除!
      关键词A可将当前布局的所有视口全锁定并且启动显示。
      特别的情况在布局中，绘制框叉后将判断下方是否有开启的视口？
      如果有就提示是否关闭显示避免卡顿？输入关键词Y进行关闭，关键词N忽略(默认为Y，空格使用默认)
      当前选项将作为下一次的默认选项，如果下一个框叉下方如果还有显示的视口导致出现提示时，可空格使用上一次的选项。
2-先选非锁对象再输入命令时：
      如果所选对象的图层包含云线图层，则提示输入标字比例。否则全部移动到云线图层
      如果输入比例，则将云线图层的对象进行拉线标字
      如果输入关键词，则将所选对象移动到关键词对应的图层(一般移动到不打印图层)

20240425-v3.3.1
1-增加关键词B绘制框叉(用于标记未调整的内容)

20240424-v3.3.0
1-增加了画圆的关键词
2-增加旧云线层(不可打印)，可以把过往的云线扔进去
3-静态绘制云线时，输入关键词D可以临时变成动态云线
4-先选对象再输命令，可以标字或通过对应的关键词移动到对应的图层
(但如果所选对象全都是云线不打印层的，就把它移到云线层)

20240404-v3.2
1-增加标注文字的选项(有修改和批注和检查3种模式，根据关键词切换)，多行文字默认字高5*文字比例
(文字比例在天正存在时取天正比例，天正不存在时取CAD标注比例，切换到标字要求确认，此时一般空格即可)
(多行文字对齐为左上和左下,根据在目标点在云线的上侧或者下侧进行判断)
(多行文字放置后自动进入编辑)
(无论UCS如何，多行文字始终和视图保持水平)
2-点选对象时，如果选择文字类(CAD文字+天正文字+天正图名+天正标高)，则生成文字外框作为云线依据
3-在布局空间动态转静态时，为了避免弧长较大无法生成云线。当弧长值大于100时，弧长值等于100
4-选择图层色时，屏蔽Bylaer和Byblock避免Grdraw出错
5-切换云线层关键词改为L，颜色为254。默认图层先判断，存在则不新建。避免改变打印状态和颜色
(新增图层深灰色不可打印，可用于存放以前的变更云线，此图层始终更新为不可打印图层，慎用!)
6-支持多选对象进行拉线标注，当先选对象后输命令时，也可如此
(若先选的对象全部在深灰色不可打印层，则直接移动到云线图层)
7-先选对象再输命令添加关键词：C移动到云线图层，N移动到不可打印图层。直接空格或输入标字比例则标注文字
8-为云线文字增加扩展数据，方便提取导出为CSV表格
9-程序必须联网使用！调整部分子函数，尝试限制使用时间
10-可以动态绘制圆形云线
11-修复bug：提示文字的角度和多行文字一样，始终平行于视图
12-画临时对象时，颜色始终为当前色（之前为白色）
13-不标字时可循环绘制云线，直到空格退出。若未绘制云线就直接空格，则提示选择非锁对象(修复之前点选锁定对象出错的bug)
14-修复之前判断当前层是否锁定的bug

(3.1忘改啥了)

20231012-v3.0
1-弧长值写入系统变量便于跨文件使用
2-修改控制图层是否打印的方式(关键词切换)
3-切换控制图层颜色的方式，修改后不退出程序
4-默认层锁定时，云线图层切换为当前层。
5-修改默认层名称命名方式，减少两位使其更短。
6-修改默认层的颜色为241号索引色(原先为1)

20230702-v2.8
1-优化推荐弧长的计算方式
2-优化动态云线弧长的计算方式(避免弧长过小，也避免弧长过大)
3-首次使用程序，在布局空间中为静态弧长。其他空间为动态
4-修复程序出错时产生的问题(具体忘了。

20230627-v2.7
1-用Gread重写了主程序。同时完善了代码
2-增加动态/静态弧长选项，默认为静态
3-点选对象进一步支持：椭圆、样条曲线
4-增加了对锁定图层和冻结图层的判断,避免出错
5-修复BUG：原先变量名重复，ESC中断容易删错矩形。

20230615-v2.6
1-点选对象时支持圆
2-修复BUG：点选对象生成云线时,ECS中断会恢复所选的对象

20230522-v2.5
1-用grread重写绘制矩形部分的逻辑，缺点是不能捕捉。不过不捕捉反倒是好事。
一步到位解决了倾斜UCS出错的问题+绘制旋转矩形后再使用CAD的REC命令矩形没有回正的错误。
2-调整弧长的精度为小数点后两位，避免使用米单位制图时精度不够(推荐弧长目前还是整数，后面可能还得改改推荐逻辑)
20230516-v2.4
重新梳理了程序，做了些优化。
1-有可选关键词时，空格执行第一个。
2-推荐弧长的方式改为打印在命令行，仅做建议，不直接替换值
3-绘制矩形时除了可以旋转，还可以快捷键P切换到绘制封闭多边形(不能捕捉)

1.3版本修复了空文件出错的问题+如果输命令前选择了对象，就把对象移动到对应的图层(同时设置对象随层)
1.6版本加了一些关键词：[颜色C/打印P/重置R]。默认参数为：云线图层红色且可打印，最大弧长5mm
1.7版本更新了新建图层的子程序，减少一些判断，速度更快。
1.8版本更新了程序逻辑，只有在没有图层或者修改图层参数时才新建/更新图层。免得每次运行程序都处理图层造成卡顿。
1.9版本当前图层锁定时entlast无法抓取对象，增加弹窗警告
2.0版本受坛友启发，矩形部分重写。默认为画矩形(指定第一点后回车绘制自由矩形)，回车空输入则选对象(支持直线、圆弧、多段线、二维多段线)。
2.1版本画矩形时，根据矩形大小推荐最大弧长。ESC中断删除已绘制的矩形
2.2版本增加关键词S，可以在当前图层和默认层之间切换。颜色、打印、重置也做了小调整。

kucha007 · 发表于 2022-12-15 16:44:23

szhorse 发表于 2022-12-15 15:37
我去，你不能更新一次收我一次费啊，我赚点钱容易吗

不好意思，老是更新失败。但上传却能上传成功。旧版也可以用的，没什么太大影响

cgjcgjcgj · 发表于 2022-12-26 10:04:26

感谢分享

229096767 · 发表于 2022-12-14 08:41:29

感谢分享

22千里之外 · 发表于 2022-12-14 11:00:33

学习了，谢谢分享

szhorse · 发表于 2022-12-14 15:28:33

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

【RR】绘制云线_v4.0.7

本帖子中包含更多资源

评分