jjww123 发表于 2009-2-4 23:34

请高手指点VBA填充4边型的问题！

Dim object As AcadSolid

ThisDrawing.SetVariable "fillmode", 1

Set object = ThisDrawing.ModelSpace.AddSolid(e点, f点, h点, g点)

object.color = 6





点已经定义好了。。只要这4个点是二维的。。就可以填充。。。但是如果点定义为三维的就不行。。



高手指点！
页: [1]
查看完整版本: 请高手指点VBA填充4边型的问题！