样条曲线转多段线

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

好用

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

有没有使用说明啊？

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

大哥，未知命令“ASDF1”。按 F1 查看帮助。怎么搞的，骗钱的吗？

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

是命令，还加载宏？

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

看看如何用

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

路过，看到，帮顶一下

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

这个不错啊，重新下载下

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