[求助]怎样创建填充图形

xia_jxs

 各位大侠 ：

  在ATUOLISP中用(command "solid" in_pk31 in_pk30 in_pk32 in_pk31 \)命令可以创建一个

三角填充图。

VBA中怎样实现此功能？

我用下面的命令，系统提示输入点无效

ThisDrawing.SendCommand "solid" & vbCr & "pick_point_first(0)" & vbCr & "point_arrow(0)" & vbCr & "point_arrow(1)" & vbCr & "pick_point_first(0)" & vbCr

谢谢各位大侠帮忙