ピクセル幅とるの書いてみたけど MeiryoKe_Console が等幅じゃないことが判明してしまってショック
以下 0 から (max-char) までの文字のピクセル幅の uniq 値をソートして出力するコード

(let* ((font-name "ＭＳ ゴシック")
(font-obj (open-font (find-font (font-spec :name font-name))))
(table (make-char-table nil))
width-list
result)
(mapc (lambda (c)
(let ((pixel-width
(ignore-errors (aref
(aref
(font-get-glyphs font-obj 0 1 (char-to-string c))
0)
4))))
(when pixel-width
;; (set-char-table-range table c pixel-width)
(add-to-list 'width-list pixel-width))))
(number-sequence 0 (max-char)))
;; (optimize-char-table char-width-table)
;; (cons (sort width-list '<) table)
(sort width-list '<)
)