乐筑天下

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

一般直线转变成多端线

[复制链接]

5

主题

15

帖子

1

银币

初来乍到

Rank: 1

铜币
35
发表于 2005-7-14 18:19:00 | 显示全部楼层 |阅读模式
在vba中如何将一般直线转变成多端线?谢谢指点
回复

使用道具 举报

32

主题

73

帖子

3

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
201
发表于 2005-7-14 20:08:00 | 显示全部楼层
获取startpoint endpoint,
然后delete line
再addpolyline不行么?
回复

使用道具 举报

5

主题

15

帖子

1

银币

初来乍到

Rank: 1

铜币
35
发表于 2005-7-17 15:23:00 | 显示全部楼层
这个可以,还有圆弧怎么办?就是在平面内由直线和圆弧组成的怎么变成多段线?
回复

使用道具 举报

17

主题

49

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
116
发表于 2005-7-17 15:43:00 | 显示全部楼层
圆弧本来就是多段线
回复

使用道具 举报

5

主题

15

帖子

1

银币

初来乍到

Rank: 1

铜币
35
发表于 2005-7-18 00:21:00 | 显示全部楼层
我现在是想把连在一起的直线和圆弧合并成一条多段线,可行否?
回复

使用道具 举报

17

主题

49

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
116
发表于 2005-7-18 08:45:00 | 显示全部楼层
如果是封闭的可以用
ThisDrawing.SendCommand "_-Boundary" & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr
获得边界
这样最快

如果不是封闭的想不到好办法
我觉得可以加辅助线,使之封闭,在去掉辅助线和原先的线
回复

使用道具 举报

13

主题

396

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
448
发表于 2005-7-18 08:56:00 | 显示全部楼层
直接用SendCommand 就可以
Sub Pline()
On Error Resume Next
Dim sset As AcadSelectionSet
ThisDrawing.SelectionSets.Item("LineSet").Delete
Set sset = ThisDrawing.SelectionSets.Add("LineSet")
sset.SelectOnScreen

ThisDrawing.SendCommand "_pedit" & vbCr & "M" & vbCr & _
"p" & vbCr & vbCr & "Y" & vbCr & "J" & _
vbCr & vbCr & vbCr
End Sub
回复

使用道具 举报

5

主题

15

帖子

1

银币

初来乍到

Rank: 1

铜币
35
发表于 2005-7-20 10:27:00 | 显示全部楼层
非常感谢大家
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-4 00:44 , Processed in 0.474561 second(s), 69 queries .

© 2020-2025 乐筑天下

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