呼吸的鱼 发表于 2007-3-12 21:34:00

如何将偏移后所得的直线转变成直线实体

<p>我在用VBA编程中使用了偏移语句，程序如下：</p><p>Dim p(0 To 2) As Double, p1(0 To 2) As Double<br/>Dim l As AcadLine</p><p>p(0) = 0: p(1) = 20: p(2) = 0<br/>p1(0) = 100: p1(1) = 400: p1(2) = 0</p><p>Set l = ThisDrawing.ModelSpace.AddLine(p, p1)</p><p>Dim l1 As Variant</p><p>&nbsp;l1 = l.Offset(80)</p><p>偏移后所得的l1并不是直线实体，请问我如何将偏移后所得的l1转换成直线实体？<br/></p>

laoliu09 发表于 2007-3-12 23:03:00

甚么意思？运行正常啊！

呼吸的鱼 发表于 2007-3-12 23:23:00

<p>是运行正常，但是我用偏移的属性所得到的l1不是直线实体，好像是一个地址，我怎么才能把l1变成直线实体呢。</p><p>比如我再想对l1进行镜像，如：</p><p>l1.mirror()却不行，因为l1不是直线实体，我怎么才能将l1变为直线实体呢？</p>

jkbanana 发表于 2007-3-13 08:46:00

<p>Sub test()</p><p>Dim p(0 To 2) As Double, p1(0 To 2) As Double<br/>Dim l As AcadLine</p><p>p(0) = 0: p(1) = 20: p(2) = 0<br/>p1(0) = 100: p1(1) = 400: p1(2) = 0</p><p>Set l = ThisDrawing.ModelSpace.AddLine(p, p1)</p><p>Dim l1 As Variant</p><p>&nbsp;l1 = l.Offset(80)</p><p>'获得偏移后的直线实体</p><p>Dim l2 As AcadLine<br/>Set l2 = l1(0)<br/>l2.color = acRed&nbsp; '把偏移后的直线变成红色</p><p><br/>End Sub</p>

呼吸的鱼 发表于 2007-3-13 14:34:00

非常感谢您的帮助

我试过了您写的语句，非常好用，解决了直线实体的问题，非常感谢，以后可能还要请您多多指教。
页: [1]
查看完整版本: 如何将偏移后所得的直线转变成直线实体