明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2708|回复: 8

如何知道一个点是在多线的内侧还是外侧(偏移多线时用)?

[复制链接]
发表于 2005-5-26 21:24 | 显示全部楼层 |阅读模式
现在想实现这种效果:用户在多线的两侧单击一下,通过判断点在多线的内侧还是外侧以决定该多线的偏移方向。但是点在多线的哪侧我判断不出来,请问哪位大哥有办法,帮忙解决一下,谢谢了!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2005-5-27 08:40 | 显示全部楼层
Public Obj As Object
Public Pnt As Variant
Sub test()
Dim a, handle
a = 20 ThisDrawing.Utility.GetEntity Obj, Pnt, vbCrLf & "选择多段线:"
ThisDrawing.Utility.GetPoint Pnt, vbCrLf & "指定点以确定偏移所在一侧:" handle = Obj.handle
ThisDrawing.SendCommand "offset" & Str(a) & vbCr & "(handent " & Chr(34) & handle & Chr(34) & ")" & vbCr & _
"(list " & Str(Pnt(0)) & Str(Pnt(1)) & Str(Pnt(2)) & ")" & vbCr & vbCr End Sub
 楼主| 发表于 2005-5-27 16:43 | 显示全部楼层
2楼楼主,你种方法可以实现偏移,但由于a=20这个值永远都是正值,所以无论你选择哪一侧,也就是无论选点A还是点B,这个多线永远都是向一侧偏移(当图示多线为逆时针方向画时永远向B侧偏移)。我求助的目的就是想通过判断点与多线的位置关系来动态设定a的正负值,也就是通过判断A点或B点在多线的内侧或外侧(图示多线为逆时针方向画的)来设定a=-20还是a=20,请问有办法吗?
发表于 2005-5-27 18:02 | 显示全部楼层
Public Obj As Object
Public Pnt As Variant
Sub test()
Dim a, handle
a = 20 ThisDrawing.Utility.GetEntity Obj, Pnt, vbCrLf & "选择多段线:"
Pnt=ThisDrawing.Utility.GetPoint (, vbCrLf & "指定点以确定偏移所在一侧:")
'此处修改了 handle = Obj.handle
ThisDrawing.SendCommand "offset" & Str(a) & vbCr & "(handent " & Chr(34) & handle & Chr(34) & ")" & vbCr & _
"(list " & Str(Pnt(0)) & Str(Pnt(1)) & Str(Pnt(2)) & ")" & vbCr & vbCr End Sub [glow=255,red,2]文字[/glow]
 楼主| 发表于 2005-5-28 13:46 | 显示全部楼层
谢谢!这次可以了!
 楼主| 发表于 2005-6-2 20:12 | 显示全部楼层
wyj7485大哥,现在又出了点问题,我还想利用偏移后的多线对象,好像用SendCommand这种方法偏移出来的对象都无法得到,是不是这样的?有没有解决方法,可以使我能够得到偏移后对象节点的坐标,谢谢了!
发表于 2005-6-3 10:13 | 显示全部楼层
本帖最后由 作者 于 2005-6-3 10:44:02 编辑

Public Pt As Variant'放到全局变量定义区
Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
If Object.ObjectName = "AcDbPolyline" Then
Pt = Object.Coordinates
End If
End Sub
发表于 2005-6-3 18:10 | 显示全部楼层
本帖最后由 作者 于 2005-6-15 16:39:32 编辑

这种方法最好: set objentity=ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count-1)
发表于 2018-2-7 15:41 | 显示全部楼层
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 17:14 , Processed in 0.264629 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表