问个问题，求某点导数只能先求出导数，再代点吗，能不能一步解决

电脑连不上网，只能手打了

并非如此。至于为什么你第一条指令会失败，帮助文档中的这两条已经解释：
1. Plot treats the variable x as local, effectively using Block.
2. Plot has attribute HoldAll and evaluates f only after assigning specific numerical values to x.
我懒得具体解释，写几条有效的给你研究
Plot[Evaluate@D[x^4*Sin[x+1]-x^2,x],{x,-2,2}]
With[{expr=D[x^4*Sin[x+1]-x^2,x]},Plot[expr,{x,-2,2}]]
Plot[#,{x,-2,2}]&@D[x^4*Sin[x+1]-x^2,x]
Plot[Function[x,x^4*Sin[x+1]-x^2]'[x],{x,-2,2}]
Plot[Block[{x},D[x^4*Sin[x+1]-x^2,x]],{x,-2,2}]
Plot[D[x^4*Sin[x+1]-x^2,x]/.x->vx,{vx,-2,2}]
（最后一条不推荐，容易理解但执行效率稍低点）