高手相救，多条线段的两个属性编号自动递增，并自动赋长度值，求程序

Kall · 发表于 2013-3-18 14:16

本帖最后由 Kall 于 2013-3-27 08:46 编辑

框选当前层多条线段,创建出定义每条线段的属性块，每个属性块有三个值：线段的长度、线段的端点1、线段的端点2,如下图

对于非相交点的端点值从左到右（如果端点的X坐标数值相同，则从上到下）递增，值为P1、P2、P3、P4........

对于相交点的端点值从左到右（如果端点的X坐标数值相同，则从上到下）递增，值为K1、K2、K3、K4.......

谢谢各位大侠，我是菜鸟CAD 用的版本为 2004.增加悬赏只是为活跃此贴，烦请各位大侠帮忙，测试文件

pzweng · 发表于 2013-3-18 14:16

本帖最后由 pzweng 于 2013-4-20 08:00 编辑

今天抽了两个小时试了下，先上fas没问题的话上源码
命令：test

duanshui83 · 发表于 2013-3-18 20:00

这个应该不难，不过最近太忙，没时间写了。

Kall · 发表于 2013-3-24 11:56

哪位老师能给个援手帮忙给个代码啊，谢谢了，论坛类似帖子ZZXXQQ版主和duanshui83 老师给过答案，我也不懂啊

Kall · 发表于 2013-3-28 08:29

再顶一下，把大侠给顶出来

wowan1314 · 发表于 2013-4-6 18:17

呵呵，帮顶，属性块不会用。不然就可以拿悬赏了。

等程序就像找女朋友，不要死命去追求，

这样惯坏了她烦恼你，说不定当你忙完你该忙的事，她已经默默等你很久了。

祝你好运。

pzweng · 发表于 2013-4-13 08:15

都是直线吗，是直线速度就快了，有空试试

Kall · 发表于 2013-4-15 10:09

pzweng 发表于 2013-4-13 08:15
都是直线吗，是直线速度就快了，有空试试

谢谢老师，都是直线，您那天抽空帮忙看看

齐天大圣3386 · 发表于 2013-4-15 18:00

等一个月了？还是自己会编程好啊

Kall · 发表于 2013-4-16 08:54

是啊，自己会编程就好了，学了VB，就会个宏录制

，我这个问题估计是很难或者是很费时间，要不大侠们肯定会帮忙的

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