YYU动态3点式绘制矩形专用不重复不打印图层宽窄变化型修订云线兼修改多种线型改为云线
本帖最后由 寒潮大冬瓜 于 2025-11-5 15:37 编辑YYU动态3点式绘制矩形专用不重复不打印图层宽窄变化型修订云线兼修改多种线型改为云线(cad2026和中望建筑2024实测→截图有体现)→绘制完三点矩形→继续拖动鼠标就是动态调整云线模式！YYU启动代码→空格键连续2次就进入"LWPOLYLINE,POLYLINE,LINE,CIRCLE,ARC,SPLINE,ELLIPSE"修改模式！→支持二次再动态调整→还是在原来的大小基础上动态调整……
3点式绘制矩形的含义就是：不管如何点取→都是四个直角，不会绘制成平行四边形或者其他不规则的多边形！
比较适合设计或现场技术人员进场修订图纸的需要！设置为默认不打印的好处是不小心打印出来蓝图废了！有问题可以在用笔圈画一下还能补救!
通过3点矩形创建成功
支持修改为云线的线型："LWPOLYLINE,POLYLINE,LINE,CIRCLE,ARC,SPLINE,ELLIPSE"
代码摘录：
计算矩形尺寸以确定合适的云线弧长
设置基础弧长 - 根据对象尺寸智能调整
(princ "\n*** 进入动态调整模式，移动鼠标调整云线效果，单击确定，ESC取消 ***")
我自己修改一下代码，便于自己应用，也是我给的建议 (合并2点矩形和3点矩形，因为两点矩形运用的场景更多）：
1 模式的流程
A:在第一点：如果用户左键点第一点，继续 B
如果用户右键（或回车) → 用 ssget 选择不同形状线，生成云线
B:如果用户橡皮线拉出左键点第二点 → 两点矩形模式；
如果用户右键（或回车） → 自动切换到三点矩形模式 并且关闭正交：斜矩形。
2 弧长不需要每次都从0 拉伸。可以在model space 和paper space设置两个定值，这样云线比例保持一致，美观。如果有需要再去拉伸弧长，这样增强了制图效率
。。。。。
; 刷新屏幕并绘制参考线
(redraw)
(grdraw p0 p1 8)
(if (= (getvar "TILEMODE") 0)
(setq k 6)(setq k 450)
)
; 动态计算弧长 - 根据鼠标距离调整
(setq l (+ k (distance p0 p1)))
。。。。。。
3 简化 LM:XXX
为什么不是r就是正交矩形,再关键字r,就是带角度.
然后是对角点,这样只需要两点就可以完成这个功能了. 这个可以斜着选三个点→绘制出来的图就是矩形！ dandee 发表于 2025-11-9 23:57
我自己修改一下代码，便于自己应用，也是我给的建议 (合并2点矩形和3点矩形，因为两点矩形运用的场景更多） ...
源码下载的好处就是能自己深化并升级！最后自己分享出来→还能挣币！
页:
[1]