Sudip,
the option Method -> ("StraightEdges" -> ...)
and/or the command ImageLines[]
might be helpful, e.g.:
img = Import["https://reference.wolfram.com/language/ref/Files/EdgeDetect.en/I_9.png"];
lineImg = EdgeDetect[img, Method -> ("StraightEdges" -> 0.3)];
lines = ImageLines[lineImg, .15];
HighlightImage[lineImg, lines]