【RR】绘制云线_v4.0.7

kucha007

原来这样就可以判断command有没有产生新的对象= =
新文件entlast会出问题，最好在使用entlast前先创建一个临时实体，最后再删掉就是了

1. (setq e0 (entlast));记录实体起始点
   
2. (command "RECTANG" (getpoint) (getpoint))
   
3. (if (setq en2 (entnext e0));
   
4.   (princ "command产生了新的对象")
   
5.   (princ "command没有产生新的对象")
   
6. )

(setq e0 (entlast));记录实体起始点<br /> (command "RECTANG" (getpoint) (getpoint))<br /> (if (setq en2 (entnext e0));<br />   (princ "command产生了新的对象")<br />   (princ "command没有产生新的对象")<br /> )

kucha007

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，可以在当前图层和默认层之间切换。颜色、打印、重置也做了小调整。

p-3-ianlcc

支持、赞一个！
谢谢楼主的分享！

fxlt619

要是能加上引线说明就完美了

kucha007

fxlt619 发表于 2023-5-19 09:16
要是能加上引线说明就完美了

论坛有类似的。我这个程序在倾斜的ucs上还会出错，也并非完美。

hf423

使用效果不错，选择对象时，可以加上圆么？

kucha007

hf423 发表于 2023-6-15 21:53
使用效果不错，选择对象时，可以加上圆么？

可以，已经更新了，下最新的就行了

3278

牛牛，倾斜的ucs上还会出错优化一下呗

kucha007

3278 发表于 2023-6-16 12:18
牛牛，倾斜的ucs上还会出错优化一下呗

早就做优化了吧？你下最新的再看一下

依然小小鸟

kucha007 发表于 2023-5-19 10:08
论坛有类似的。我这个程序在倾斜的ucs上还会出错，也并非完美。

争取早日加上 引线说明