hgo1984924 发表于 2011-1-12 16:11:50

关于多段线修剪的问题?

本帖最后由 hgo1984924 于 2011-1-12 16:15 编辑

如下图所示

    多段线与两条直线有交点,需通过VBA程序将多段线
在两直线外侧的部分修剪掉,现交点坐标可以通过
IntersectWith函数求得,问如何修剪


问题详解:上图中多段线的定点个数不定而且很多上千个

,交点位置不一定在多段线顶点处,如何实现修剪。
我用SendCommand函数传入tr命令无法实现后台修剪,
只能通过get系列函数从屏幕获得,不知怎么解决。


请各位高手出手相帮,本人才疏学浅实在是没办法了。。。


chmenf087 发表于 2011-1-12 18:40:37

sendcommond 也可以,需要用到handle: 即<图元名: 7ef95400>
可以建一个动态数组来存放图元名。然后用lisp表达式来进行修剪
但是用sendcommond会出现一个问题就是修剪得方向是哪一侧不确定,所以建议用修改beganpoint和endpoint 的方法

hgo1984924 发表于 2011-1-13 14:37:36

楼上的兄弟说的很好 用send命令后 可以通过利用起终点坐标来定位修剪的方向
可是总是出错 我自己写的测试程序可以通过 但嵌套进主程序就不行了
要是能有别的一个思路就好 send函数用的总是很不爽啊

hgo1984924 发表于 2011-1-13 14:48:15

回复 chmenf087 的帖子

修改beginpoint和endpoint 的方法 具体怎么操作呢
页: [1]
查看完整版本: 关于多段线修剪的问题?