【源码】框选直线动态拉伸
本帖最后由 荒野孤行 于 2015-4-11 19:22 编辑各位，编写了一个关于批量选择直线，然后动态拉长或缩短直线的程序。图2是用CAD里面的命令LENGTHEN对单条直线执行的效果。
附上附件源码：
JUST LEARNING'S NICE CODE 谢谢楼主的分享 楼主 这个挺好 你可以研究下这个
框选直线动态拉伸edata版本
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=108877&fromuid=338795
edata 发表于 2014-1-1 01:32
你可以研究下这个
框选直线动态拉伸edata版本
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=108877 ...
看了下回复时间，你写程序写到那么晚呃。
你是专业开发程序的么？ 荒野孤行 发表于 2014-1-1 09:38 static/image/common/back.gif
看了下回复时间，你写程序写到那么晚呃。
你是专业开发程序的么？
不是的，只是兴趣，大冷天的，还没空调，写完调试好，才发现很晚了。。。
lisp不懂，只是从编程的角度考虑。
问题的难点应该在于如何判断是延伸那一边。对于普通的线段，可以根据原来端点1和最终端点1与原来端点2的相对位置来判断是伸长还是缩短以及长度和方向，但是对于垂直或者水平（取决于你是如何判断方向位置的），如何确定是延伸哪个点？毕竟在这种情况下，两个点都是一样的，如果需要用户去手工选择，也就失去了批量的意义了。
建议楼主先考虑上面的极限情况，找出一个能适用所有情况的算法。 可以自定义长度吗？ 混沌初开 发表于 2014-1-3 19:19 static/image/common/back.gif
可以自定义长度吗？
不可以，是通过鼠标当前位置点做与直线的垂直线，交点即直线伸缩的位置 edata 发表于 2014-1-1 10:23 static/image/common/back.gif
不是的，只是兴趣，大冷天的，还没空调，写完调试好，才发现很晚了。。。
看下我写的效果，是否有不同？ 荒野孤行 发表于 2014-1-4 10:52 static/image/common/back.gif
看下我写的效果，是否有不同？
和我最初的想法有些像，因为时间关系，所以只写了框选直线，
目前和我的程序差异
1，选择方式，我是框选，通过框选内判断拉伸点。而你采用(ssget)普通方式，更灵活。比如直线重叠，很好用。
2，因为我锁定了拉伸点，简单模拟的lengthen命令的dy效果，所以拉伸点的时候很好控制。而你采用判断grread拖动点与起点、终点距离来判定拉伸点，方式灵活，但是bug是改变拉伸点的时候没有恢复原来的起点终点，而导致原来起点或终点会改变，以前我也回复个类似的帖。
3，因为模拟lengthen，所以我的右键是放弃，空格、回车确定
4，grdraw 连线的点 不一样。
程序是拿来用的，能适合自己用才是好程序。
edata 发表于 2014-1-4 12:35
和我最初的想法有些像，因为时间关系，所以只写了框选直线，
目前和我的程序差异
1，选择方式，我是框选 ...
是的，如果按esc键则应该恢复到之前，这个我没想出来怎么写，只能通过用户后退操作来返回了。