[求助]急！求助！关于在VBA中使用ACAD命令行的问题

流浪狗

谢谢楼上各位！谢谢！！


那么我需要填充时 也需要加载填充的样式吗？，怎么加载呢？也能给个加载的程序吗？

雪山飞狐_lzh

填充时,不需要加载填充的样式 尽量不用SendCommand Sub ttt()
On Error Resume Next
Dim objlay As AcadLayer
Set objlay = ThisDrawing.Layers.Add("1")
objlay.Color = 2
ThisDrawing.Linetypes.Load "acad_iso10w100", "acad.lin" objlay.Linetype = "acad_iso10w100"
End Sub

流浪狗

可是我现在需要画剖面线，由于没有资料靠参考，我运用不好，你能给个的范例吗？



另外我想作样条曲线，但是也不懂得用，pointsarray,startangent,endtangent,都是指什么啊？也能给个范例吗？不胜感激！