【RR】绘制云线_v3.3.0

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

20240404-v3.2(3.1忘了改啥了)
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


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上还会出错，也并非完美。

争取早日加上 引线说明