乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 77|回复: 3

关于多段线修剪的问题?

[复制链接]

3

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
22
发表于 2011-1-12 16:11:00 | 显示全部楼层 |阅读模式
如下图所示

04bm5yarlnm.JPG

04bm5yarlnm.JPG


    多段线与两条直线有交点,需通过VBA程序将多段线
在两直线外侧的部分修剪掉,现交点坐标可以通过
IntersectWith函数求得,问如何修剪
问题详解:上图中多段线的定点个数不定而且很多上千个
,交点位置不一定在多段线顶点处,如何实现修剪。
我用SendCommand函数传入tr命令无法实现后台修剪,
只能通过get系列函数从屏幕获得,不知怎么解决。
请各位高手出手相帮,本人才疏学浅实在是没办法了。。。
回复

使用道具 举报

8

主题

138

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
170
发表于 2011-1-12 18:40:00 | 显示全部楼层
sendcommond 也可以,需要用到handle: 即
可以建一个动态数组来存放图元名。然后用lisp表达式来进行修剪
但是用sendcommond会出现一个问题就是修剪得方向是哪一侧不确定,所以建议用修改beganpoint和endpoint 的方法
回复

使用道具 举报

3

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
22
发表于 2011-1-13 14:37:00 | 显示全部楼层
楼上的兄弟说的很好 用send命令后 可以通过利用起终点坐标来定位修剪的方向
可是总是出错 我自己写的测试程序可以通过 但嵌套进主程序就不行了
要是能有别的一个思路就好 send函数用的总是很不爽啊
回复

使用道具 举报

3

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
22
发表于 2011-1-13 14:48:00 | 显示全部楼层
回复
修改beginpoint和endpoint 的方法 具体怎么操作呢
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-1 03:11 , Processed in 0.645553 second(s), 63 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表