乐筑天下

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

[求助]画线倒角 vba里可以解决的问题在net里怎么弄

[复制链接]

5

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
28
发表于 2011-3-7 15:11:00 | 显示全部楼层 |阅读模式
vba里:画2条直线 :Set myline1 = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)Set myline2 = ThisDrawing.ModelSpace.AddLine(pnt3, pnt4)然后倒角:ThisDrawing.SendCommand "_fillet" & vbCr & "r" & vbCr & "" & bendr & "" & vbCr & "" & "(Handent """ & myline1.Handle & """)" & _"" & vbCr & "" & "(Handent """ & myline2.Handle & """)" & "" & vbCr倒角后 line1和line2的端点是会变化的:line1的endpoint和line2的startpoint 变为倒角产生的圆弧的2个端点  但是在.net里画线可能定义直线和画直线是分开的 2条直线倒角后 line1和line2的端点没有变化 我需要向vba里可以变化 跪求解决方法
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2011-3-7 15:15:00 | 显示全部楼层
倒角可以看这里
不过你后面的说明没看懂
回复

使用道具 举报

5

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
28
发表于 2011-3-7 15:31:00 | 显示全部楼层
回复
我刚开始画的2条直线是连起来的 就是说pnt2=pnt3的
vba倒角后line1.endpoint变化了(原来是pnt2,现在不是),line2.startpoint也变化了
但是net里2直线的端点没有变 我引用的时候 还是为pnt2
回复

使用道具 举报

5

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
28
发表于 2011-3-8 16:12:00 | 显示全部楼层
回复
这个是我vba里编的 想换成net的 ph和sh是常数 关键是倒角过后 myline1 myline2端点会变化 麻烦您帮我看看阿 谢谢啦
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET1")
pnt1 = ThisDrawing.Utility.GetPoint(, "输入点:")
pnt1(2) = ph: pnt2 = pnt1: pnt2(2) = sh: pntt = pnt1
Set myline1 = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)
pnt2 = ThisDrawing.Utility.GetPoint(pnt1, vbCr & "输入下一点:")
pnt2(2) = ph
Set myline2 = ThisDrawing.ModelSpace.AddLine(pnt1, pnt2)ThisDrawing.SendCommand "_fillet" & vbCr & "r" & vbCr & "" & bendr & "" & vbCr & "" & "(Handent """ & myline1.Handle & """)" & _
"" & vbCr & "" & "(Handent """ & myline2.Handle & """)" & "" & vbCr
ssetObj.Select acSelectionSetLast
Set mycircle(0) = ThisDrawing.ModelSpace.AddCircle(myline1.StartPoint, pr)
regionObj = ThisDrawing.ModelSpace.AddRegion(mycircle)
Set mypath = ssetObj.Item(i)
wirelength = ssetObj.Item(i).ArcLength + myline1.Length + wirelength
i = i + 1
Set mypipe = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), mypath)Set mycircle(0) = ThisDrawing.ModelSpace.AddCircle(myline1.StartPoint, pr)
regionObj = ThisDrawing.ModelSpace.AddRegion(mycircle)
Set mypath = myline1
Set mypipe = ThisDrawing.ModelSpace.AddExtrudedSolidAlongPath(regionObj(0), mypath)
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2011-3-8 21:52:00 | 显示全部楼层
不要发送命令,二楼有直接实现倒角的例子
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 13:01 , Processed in 0.386816 second(s), 62 queries .

© 2020-2025 乐筑天下

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