3 added 53 characters in body

I can get the postion with this code

pos = First[
Flatten[#, 1] & /@
First[Entity[


You can see the postion in the map

GeoListPlot[GeoPosition[pos]] I can get their elevation

poseleData = First[
QuantityMagnitude[
GeoElevationData[
Flatten[#, 1] & /@
First[Entity[


Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]


I can plot its discrete plot

ListPointPlot3D[data] But how to connected those discrete points to get a smooth boundary?

I can get the postion with this code

pos = First[
Flatten[#, 1] & /@
First[Entity[


You can see the postion in the map

GeoListPlot[GeoPosition[pos]] I can get their elevation

pos = First[
Flatten[#, 1] & /@
First[Entity[


Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]


I can plot its discrete plot

ListPointPlot3D[data] But how to connected those discrete points to get a smooth boundary?

I can get the postion with this code

pos = First[
Flatten[#, 1] & /@
First[Entity[


You can see the postion in the map

GeoListPlot[GeoPosition[pos]] I can get their elevation

eleData =
QuantityMagnitude[
GeoElevationData[
Flatten[#, 1] & /@
First[Entity[


Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]


I can plot its discrete plot

ListPointPlot3D[data] But how to connected those discrete points to get a smooth boundary?

2 added 1 character in body

I can get the postion with this code

pos = First[
Flatten[#, 1] & /@
First[Entity[


You can see the postion in the map

GeoListPlot[GeoPosition[pos]] I can get their elevation

pos = First[
Flatten[#, 1] & /@
First[Entity[


Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]


I can plot its discrete plot

ListPointPlot3D[data] But how to connected those discrete pointpoints to get a smooth boundary?

I can get the postion with this code

pos = First[
Flatten[#, 1] & /@
First[Entity[


You can see the postion in the map

GeoListPlot[GeoPosition[pos]] I can get their elevation

pos = First[
Flatten[#, 1] & /@
First[Entity[


Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]


I can plot its discrete plot

ListPointPlot3D[data] But how to connected those discrete point to get a smooth boundary?

I can get the postion with this code

pos = First[
Flatten[#, 1] & /@
First[Entity[


You can see the postion in the map

GeoListPlot[GeoPosition[pos]] I can get their elevation

pos = First[
Flatten[#, 1] & /@
First[Entity[


Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]


I can plot its discrete plot

ListPointPlot3D[data] But how to connected those discrete points to get a smooth boundary?

1

# How to plot the 3D-boundary of California or other states

I can get the postion with this code

pos = First[
Flatten[#, 1] & /@
First[Entity[


You can see the postion in the map

GeoListPlot[GeoPosition[pos]] I can get their elevation

pos = First[
Flatten[#, 1] & /@
First[Entity[


Then I get the data

data = Flatten /@ Transpose[{pos, List /@ eleData}]


I can plot its discrete plot

ListPointPlot3D[data] But how to connected those discrete point to get a smooth boundary?