willrun 发表于 2010-6-4 15:39:00

好用

Timnis 发表于 2010-6-13 10:17:00

有没有使用说明啊？

Timnis 发表于 2010-6-13 10:22:00

大哥，<font face="Verdana">未知命令“ASDF1”。按 F1 查看帮助。</font>怎么搞的，骗钱的吗？

scnjlwb 发表于 2010-6-17 21:01:00

是命令，还加载宏？

12013169 发表于 2010-10-9 16:02:00

<p>看看如何用</p>

gzbccy 发表于 2010-11-5 21:31:00

<p>路过，看到，帮顶一下</p>

mogm127 发表于 2010-11-6 11:34:00

没钱还是有点小困难

tcsl9621 发表于 2011-5-9 23:56:44

这个我用LISP编过。

ningyong58 发表于 2011-6-2 09:46:34

Sub lfd()
Dim oSpl As AcadSpline, oPl As AcadPolyline
Dim Pt
With ThisDrawing
    Set oSpl = .HandleToObject("215")‘画一条样条曲线，list获得样条曲线的handle
    Pt = oSpl.ControlPoints
    Set oPl = .ModelSpace.AddPolyline(Pt)
End With
oPl.color = acGreen

End Sub

紫色狂澜 发表于 2011-6-23 16:44:08

这个不错啊，重新下载下
页: 1 2 [3] 4
查看完整版本: 样条曲线转多段线