乐筑天下

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

求教,Circle和Mline的IntersectWith不在中心线上

[复制链接]

2

主题

14

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2004-10-15 18:33:00 | 显示全部楼层 |阅读模式
我的多线中红色分别是正负0.5的偏移,蓝色是0,它和直线为什么的交点(已用白色线段连起来了)有时候却不在蓝色线上呢
file:///d:/lml.gif

sw5repj1wqy.gif

sw5repj1wqy.gif

回复

使用道具 举报

2

主题

14

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2004-10-15 18:41:00 | 显示全部楼层

我写的代码如下:                                 Dim objMLine As AcadMLine, pnt
                                ThisDrawing.Utility.GetEntity objMLine, pnt, "请选择插入点:"
                         
                         If Not objMLine.ObjectName = "AcDbMline" Then
                                                         ThisDrawing.Utility.Prompt "请选择插入点"
                                                         Exit Sub
                         End If
                                       
                         Dim tmpCircle As AcadCircle
                         Set tmpCircle = ThisDrawing.ModelSpace.AddCircle(pnt, 0.5)
                         
                         Dim tmpPoint         As Variant
                         tmpPoint = objMLine.IntersectWith(tmpCircle, acExtendBoth)
                               
                         Dim pnt1(0 To 2) As Double
                         pnt1(0) = tmpPoint(3)
                         pnt1(1) = tmpPoint(4)
                         pnt1(2) = tmpPoint(5)
                               
                         Dim pnt2(0 To 2) As Double
                                pnt2(0) = tmpPoint(0)
                         pnt2(1) = tmpPoint(1)
                         pnt2(2) = tmpPoint(2)
                         Dim tmpLine As AcadLine
                         Set tmpLine = ThisDrawing.ModelSpace.AddLine(pnt2, pnt1)
回复

使用道具 举报

34

主题

372

帖子

7

银币

中流砥柱

Rank: 25

铜币
508
发表于 2004-10-15 22:10:00 | 显示全部楼层
可能与你的多线的对齐点(对正方式)有关,把对正方式设置为“无”试试。
回复

使用道具 举报

2

主题

14

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2004-10-15 22:55:00 | 显示全部楼层
我确实是将它设为无的,ML/J/Z
而且,我发现,当我把Circle换成XLine(垂直于那条白线)后,得到的结果更奇怪,交点在很远的地方。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 05:27 , Processed in 4.079363 second(s), 63 queries .

© 2020-2025 乐筑天下

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