cad 程序里没有acadrectang这个实体名称用sendcommand的方法object.SendCommand "Rectang " & x1 "," & y1 " " & x1 "," & y1 " "或者先定义四个点用多线段的方法画,s是四个坐标点dim s(0 to 7) as doubleDim lwp As AcadLWPolylineset lwp=object.AddLightWeightPolyline(s)