[求助]：圆（弧），直线，椭圆（弧）转变为多段线

nbzfx · 发表于 2005-1-7 14:51:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

用什么办法可以将某个对象（如圆（弧），直线，椭圆（弧））转变为多段线

雪山飞狐(lzh) · 发表于 2005-1-7 21:00:34

圆用两个半园拼、直线读取坐标重生成、椭圆（？）用近似圆画法（忘了，自己找找吧）用四段圆弧拼

wlzhzj · 发表于 2005-1-10 14:10:32

AutoLISP、Visual LISP只要下面这行就行了，vba就麻烦多了
(command "pedit" "m" "_all" "" "" "j" "")

luob72 · 发表于 2005-3-12 17:45:04

楼上的，pedit不能改圆为多义线哦

mlr_nj · 发表于 2005-3-15 14:39:41

ThisDrawing.SendCommand ("pedit" & vbCr & "m" & vbCr & "_all" & vbCr & vbCr & "j" & vbCr & vbCr & vbCr)

3楼看看http://www.mjtd.com/bbs/dispbbs. ... ID=30826&page=1
我认为初学者该评论的不要轻易说哪个软件好，而是自己学的精不精

saraqi · 发表于 2005-3-23 11:41:36

用Pedit无法将圆转为多义线，得另想办法。

chuqi26 · 发表于 2005-3-24 18:44:18

最初由 saraqi 发布
[B]用Pedit无法将圆转为多义线 [/B]

如果要加粗，可以创建面域

雪山飞狐(lzh) · 发表于 2005-3-24 20:49:48

偶以前在明经通道上发过圆转多义线的纯VBA方法（不用SendCommand方法），VBA里不推荐用SendCommand方法

yj821005 · 发表于 2005-3-25 08:05:45

用两个半圆弧代替：
Public Function yuanzhuang(yuan1 As AcadCircle)
Dim yp(0 To 5) As Double
Dim q As AcadLWPolyline
yp(0) = yuan1.Center(0) - yuan1.Radius
yp(1) = yuan1.Center(1)
yp(2) = yuan1.Center(0) + yuan1.Radius
yp(3) = yuan1.Center(1)
yp(4) = yuan1.Center(0) - yuan1.Radius
yp(5) = yuan1.Center(1)

Set q = ThisDrawing.ModelSpace.AddLightWeightPolyline(yp)
q.SetBulge 0, 1
q.SetBulge 1, 1

yuan1.Delete

End Function

账号		自动登录	找回密码
密码			立即注册

[求助]：圆（弧），直线，椭圆（弧）转变为多段线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子