乐筑天下

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

用vb求交点时如何定义extendoption?

[复制链接]

4

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
29
发表于 2005-1-12 14:27:00 | 显示全部楼层 |阅读模式
用intersectwith方法求交点时,如何定义extendoption?
另外用此法取得点坐标,再用该坐标值继续绘图,会不会有因取舍精度引起的误差?
我在论坛找了半天没找到答案,才在此求助,谢谢帮忙。
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2005-1-12 15:16:00 | 显示全部楼层
[url=http://www.vba.cn/object/acad2004/idh_intersectwith.htm][/url]        [WEB]http://www.vba.cn/object/acad2004/idh_intersectwith.htm[/WEB]
回复

使用道具 举报

4

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
29
发表于 2005-1-12 15:46:00 | 显示全部楼层
斑竹先生,那是在vba中的,actextendnone等在vb中运行提示没有定义。
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2005-1-12 18:46:00 | 显示全部楼层
先做如下定义:复制代码
回复

使用道具 举报

4

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
29
发表于 2005-1-13 09:15:00 | 显示全部楼层
谢谢
如果一条线段和一个圆有一个交点,可以直接取这点进行下一步操作,可是如果有两个交点,该如何操作?是不是应该有index或其他属性?
不想用坐标值另行赋值的做法。
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2005-1-13 13:23:00 | 显示全部楼层
你帮我想想办法:用AutoCad做VBA的二次开发又不想调用对象模型
回复

使用道具 举报

4

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
29
发表于 2005-1-14 10:15:00 | 显示全部楼层
我只是想实现如下功能:
如果只有一个交点:
                                  Intpoints = Circle.intersectwith(Line, 0)
                                         Set IntCircle = AcadApp.addcircle(Intpoints, radius)
如果有两个交点,运行以上语句会提示出错,可能因为Intpoints返回的是两个点的数组值,我知道可以用提取该数组各值方法,确定两点的坐标值。但事实上我不想要坐标值,只想通过这两点进行下一步的操作。
如果有谁知道如何实现或者根本不能实现,请告诉我,谢谢。
回复

使用道具 举报

4

主题

13

帖子

1

银币

初来乍到

Rank: 1

铜币
29
发表于 2005-1-14 11:26:00 | 显示全部楼层
问题已经解决了,谢谢各位。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 20:48 , Processed in 4.546431 second(s), 68 queries .

© 2020-2025 乐筑天下

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