ゑ、ゑ、ゑ？

Windows10 2020 May Update失敗メモ

Mon, 28 Sep 2020 00:34:56 +0900

いままで大型アップデートを適用しても問題なかったので

今回も来てるじゃねぇかと思い

気軽にWindows10 2020 May アップデート…

ダウンロードもインストールも問題なく完了

Windows10の更新を構成しています 0%完了

から一向に進まない…

取り敢えず寝て起きたら終わってるかと放置

・

10数時間放置していたが一向に終わらないので

「Windows10 アップデート更新を構成しています 0%」

でググるティーチャーに聞いてみる

色々引っかかったがマイ○ソソフトサポートが丸投げ放棄してる

マイクロソフトのコミュニティでも

引っかかったので見てみたが役に立たず…

（初歩的なこと以外はだいたい役に立たない）

他の個人ブログなどで電源切れば元の状態に戻ると書かれていたので

電源長押ししてを強制オフ…

（※最悪ハードにダメージ与えてデータが飛ぶこともあるので自己責任で）

再度電源を入れると更新の適用に失敗したため構成を元に戻しています…

というような表示が出てもとに戻って起動したので

今度は不要なUSB機器を外してからアップデート

（個人的な経験上アップデートとかで引っかかることが多い

特に外付けHDDやSDD、アップデートの際に全ファイル走査してる？）

しかし…今度はもっとやばいことにUEFI起動後

ブートできずNTLDR Is Missing …と表示される…

データ破壊されたのか…と思い

修復ディスクに一縷の望みを託す…

スタートアップ修復…ポチー！やったか！？

・

はッ…OSファイルが見つかりませんでした…

終わった…終わったのか…まだだ！まだ終わっていない！

取り敢えず修復ディスクからコマンドプロンプトで

データは生きているか確認してみる

Systemデータは権限で見れないようだが

他のデータは生きているのを確認

取り敢えずデータは生きてそうなので

修復ディスクをドライブから取り出しコンセントを抜き

完全にシャットダウンしてもう一度再起動

・

DISK BOOT FAILURE, INSERT SYSTEM DISK AND PRESS ENTER

はッッ？ブートディスクが見つからない？

UEFIの設定を見てみる優先度はDVDドライブ、M.2 SSDの順番になっているのを確認し

設定は変わっていないのを確認しM.2 SSDを指定してブート

DISK BOOT FAILURE, INSERT SYSTEM DISK AND PRESS ENTER

がでて起動できず…今まで起動できていたのになんでだ…

その下にWindows Boot Managerというのが出来ていたが無視していたが…

スマホで調べるとUEFIからはこちらを優先でブートしたほうが

いい的なことを書いてあるブログなどがあった

これで無理なら諦めるかと思ったが

Windows Boot Managerからブートしたら問題なく起動した…

しかし、腑に落ちない最初は更新を構成していますから進まず

その後再度更新したら今度は今までのM.2 SSD直の起動ができず

Windows Boot Managerからしか起動しなくなった…

MultiBootみたいなことはしてないからどうでもいいんだけど

Windows UpdateのせいでUEFI巻き込んで壊れてる可能性が高いから

気持ち悪い…UEFI初心者の俺にはアップデートはオソロシイ…

Windows Boot Managerは複数OSがある場合に表示されるみたいなのを見たし

何らかのトラブルでアップデートを消しきれずOSの残骸が残ってるのだろうか…

ディアゴスティーニ傑作カンフー映画ブルーレイコレクション

Sun, 04 Sep 2016 21:14:25 +0900

ディアゴスティーニ傑作カンフー映画ブルーレイコレクションを

定期購入申し込みした。

サモ・ハンとユン・ピョウが目当てだけど

他のもブルーレイは持ってないのでこの機会に…

テーマ的に仕方ないとはいえブルース・リーと

ジミー・ウォングは結構BD出てるので

もし第二弾があればサモ・ハンは他のデブゴンシリーズとか

ユン・ピョウはチャンピオン鷹とかあわよくば

日本でDVD化されていない作品の数を増やしてほしい。

ポケモンGOでひよこちゃんゲット

Sun, 24 Jul 2016 19:40:19 +0900

散歩がてらポケモンGOをやってみたけど
神社とか公園はわかるけど
郵便局とか民家のよくわからん看板やオブジェとかが
ポケストップになっているのはどうなのか…
一部は無くなってたり建物自体が変わってたりもしてた
まぁ、近くに行ってアイテムもらうだけだからいいんだろうけど
工場の中とかのポケストップはどうするんだろうか…

しかし、ポケモンGOは起動しっぱなしじゃないと
歩いた距離がカウントされないので起動させたままのため
セーバーをオンにしても充電の減りが早い
格安スマホのArrowRM02では3時間しか持たない…
遠出する際は補助バッテリー必須。

辺鄙な場所でも桜が舞ってるポケストップは
それなりに人がいて奴らもトレーナーか
と、思うと少し可笑しかった。

水ポケモンが欲しくて大川周辺を歩いたけど
天神祭前日だからかもうすでに結構な数の船が止まってた
それとたくさん露天も出て営業中でした。
でも7月25日は雨模様どうなるんだろう…。

ひよこちゃんゲット

ねこ診断キャンペーン

Fri, 25 Mar 2016 23:55:39 +0900

あなたに一番近い猫は…

ねこ診断はこちらから

Windows10が不調なのでWindows8.1に戻す…

Sun, 20 Mar 2016 14:00:48 +0900

Dell　Vostro420を使い続けて9年
PCが古すぎるのかWindows10に替えてから
ブルースクリーンが頻発する…
XPやWindows8.1の時は問題なかったんだが
仕方なく8.1に戻す
メールとブックマークのバックアップを忘れる…
FirefoxとThunderbirdを使っていたので
Windows.oldからサルベージ

以下の手順で復元可能。

＜Windows.oldからFirefoxブックマークの復元＞
Firefoxのブックマークは以下のフォルダに変更があった際バックアップがある。

C:\Windows.old\Users\ユーザー名\AppData\Roaming\Mozilla\Firefox\Profiles\*****.default\bookmarkbackups

※ユーザー名は環境により異なります。
※*****の部分は自動生成された文字列が入ります。

ファイル名はbookmarks-年月日_ブックマーク数_自動生成文字列といった感じの
拡張子「.jsonlz4」のファイルがある

bookmarks-2016-03-09_709_*****==.jsonlz4

最新のバックアップをFirefoxのブックマークからインポートすれば復元できる。

＜Windows.oldからThunderbirdのアカウントメール復元＞
Thunderbirdは以下のフォルダにアカウントやメールのデータがある

C:\Windows.old\Users\ユーザー名\AppData\Roaming\Thunderbird\Profiles\*****.default

※ユーザー名は環境により異なります。
※*****の部分は自動生成された文字列が入ります。

予めThunderbirdインストールしておき一度起動すると以下のファイルができるので
C:\Users\ユーザー名\AppData\Roaming\Thunderbird\Profiles\*****.default

C:\Windows.old\Users\ユーザー名\AppData\Roaming\Thunderbird\Profiles\*****.default
上記のフォルダ内ファイルをすべてコピーし
C:\Users\ユーザー名\AppData\Roaming\Thunderbird\Profiles\*****.default
Thunderbird起動した際にできた上記のフォルダに張り付ける
※貼り付ける前に念のため中のファイルは全て消しておく

メールが思いのほか簡単に復元できて助かった…

ミートソーススパゲティ作った

Sat, 19 Mar 2016 13:30:32 +0900

味はコンソメとケチャップとソース次第。
作ったと言ってもソースなどは以下市販のを混ぜただけ。
市販のカゴメコンソメ　1　個
カゴメケチャップ　大匙　2
カゴメウスターソース　大匙　1
イカリとんかつソース　大匙　1

まぁ、市販のソースですし美味いよ。

＜材料費＞
牛豚合挽きひき肉260g　430　円
トマトペーストミニパック　1袋 27　円
玉ねぎ　1個　30　円
人参半分　30　円
調味料ソース光熱費諸々　100　円くらい
材料費等合計　617　円

大阪府最低賃金858円と換算して
調理時間は約30分ほどの人件費　429　円

総合計金額　1046　円

大体四人前ぐらいなので
材料光熱費だけなら一人前平均　154　円
調理時間を人件費と考えると一人前平均　262　円

節約できると思って作ったけど
市販のミートソースは安いのだと
二人前260gで98円位で売ってるので
ミンチ足しても作るより買ったほうが割安なのか…
自炊の方が節約とはいったい…うごごご

AutoLispで直交直角作図コマンド

Fri, 26 Feb 2016 23:59:08 +0900

作ったAutoLisp公開
Nigmasのieコマンドのような直角直交入力コマンド
愛用していたCAD用地形図ツールが使えなくなったので作成

AutoCADデフォルトでないのかね…

なぜかCommand系の仕様変更があったのか
古いバージョンのAutoCADでは
よくわからないところでエラーが出る。
2015以降では (*push-error-using-command*)を宣言して
Command-sを使えみたいなことを調べたら出てきた
だが古いバージョンのCADでは動かなくなるので
AutoLispのバージョンを調べて
2015以降のみ(*push-error-using-command*)を宣言して
回避する方法で対策をした。
が、イマイチ理解できていないのでerror処理中に
ストップする…宣言するだけではダメみたい
error以降もバージョンでcommand-sか
comanndに振り分けるように処理をした…
仕方ないね…

AutoCAD2015で動作確認
保存したLSPファイルをアプリケーションロードすれば使えます。
↓をコピペしてテキストで拡張子LSPで保存
;直交直角ポリライン入力
(defun C:ortpline()
    (rapline_init)

    (setq gflag 1)

    (setq enlist (ssadd))

    (setq ptcnt 1)
    (setq p1 (getpoint (strcat "\n" (itoa ptcnt) " 点目を指示")))
    (princ "\n")
    (if (= p1 nil)(exit))
    (setq p2 p1)
    (setq ps1 p1)
    (setq ptcnt (+ ptcnt 1))

    (while 1
        (setq p0 p1)
        (setq p1 p2)
        (initget "F G O S U R E")
        (setq p2 (getpoint p1 (strcat "\n" (itoa ptcnt) " 点目を指示または [基準角なし(F)/基準角の取得(G)/開放(O)/非調整閉合(S)/元に戻す(U)/モデルを再作図(R)/直角閉合(Ent)]:")))
        (princ "\n")

        (if (= p2 nil)(exit));直角閉合(エンターキー)

        (if (= (type p2) 'STR)(progn
            (cond
                ((= p2 "F");基準角なし(F)
                    (setq p2 p1)
                    (setq gflag nil)
                    (setvar "SNAPANG" SNAPANG)
                    (setvar "ORTHOMODE" 0)
                )
                ((= p2 "G");基準角の取得(G)
                    (setq p2 p1)
                    (setq gp1 nil)
                    (setq gp2 nil)
                    (while (= gp1 nil)
                        (setq gp1 (getpoint "\n基準角1点目を指示"))
                    )
                    (setq gp2 nil)
                    (while (= gp2 nil)
                        (setq gp2 (getpoint gp1 "\n基準角2点目を指示"))
                    )

                    (setq rad (angle gp1 gp2))    ;２点角度
                    (setq l (distance gp1 gp2))    ;２点の長さ
                    (setvar "SNAPANG" rad)
                    (setvar "ORTHOMODE" 1)

                    (setq gflag 1)
                )
                ((= p2 "O");開放(O)
                    (setq p2 p1)

                    (setq ps1 nil)
                    (setq ps2 nil)
                    (setq pe1 nil)
                    (setq pe2 nil)
                    (exit)
                )
                ((= p2 "S");非調整閉合(S)
                    (if (= ele nil)(exit));図形がない場合
                    (if (equal ps1 p1)(exit));閉じられている場合

                    (setq p2 ps1)
                    (setq pe1 p1)
                    (setq pe2 p2)

                    ;線分作成
                    (setq CMDECHO (getvar "CMDECHO"))(setvar "CMDECHO" 0)
                    (setq OSMODE (getvar "OSMODE"))(setvar "OSMODE" 0)
                    (command "_LINE" p1 p2 "")
                    (setvar "CMDECHO" CMDECHO)
                    (setvar "OSMODE" OSMODE)
                    (setq el2 (entlast))    ;最後の図形名を取得
                    (ssadd (entlast) enlist);作成した図形を選択セットに追加

                    (setq ps1 nil)
                    (setq ps2 nil)
                    (setq pe1 nil)
                    (setq pe2 nil)
                    (exit)
                )
                ((= p2 "U");元に戻す(U)
                    (setq p1 p0)
                    (setq p2 p0)
                    (if (> ptcnt 2)(progn
                        (setq ptcnt (- ptcnt 1))
                        (setq n (sslength enlist))
                        (if (> n 0)(progn
                            (setq en (ssname enlist (- n 1)))
                            (setq e (entget en (list "*")));エンティティ取得
                            (setq p2 (cdr (assoc 10 e)))
                            (ssdel en enlist)
                            (entdel en)

                            (if (> n 1)(progn
                                (setq el2 (ssname enlist (- n 2)))
                                (setq e (entget el2 (list "*")));エンティティ取得
                                (setq p2 (cdr (assoc 11 e)))

                                (setq pe1 (cdr (assoc 10 e)))
                                (setq pe2 (cdr (assoc 11 e)))
                                (setq ele el2)        ;最後の図形名
                            )(progn
                                (setq pe1 nil)
                                (setq pe2 nil)
                                (setq el2 nil)        ;最新の図形名
                                (setq ele nil)        ;最後の図形名
                            ))
                        ))
                    )(progn
                        (princ "これ以上戻せません\n")
                    ))
                )
                ((= p2 "R");モデルを再作図(R)
                    (setq p2 p1)
                    (command "REGEN")
                )
                ((= p2 "E");直角閉合(E)
                    (exit)
                )
                (t (setq p2 p1));それ以外
            )

        )(progn

            ;線分作成
            (setq CMDECHO (getvar "CMDECHO"))(setvar "CMDECHO" 0)
            (setq OSMODE (getvar "OSMODE"))(setvar "OSMODE" 0)
            (command "_LINE" p1 p2 "")
            (setvar "CMDECHO" CMDECHO)
            (setvar "OSMODE" OSMODE)

            (if (= ptcnt 2)(progn
                (if (= gflag 1)(progn
                    (setq rad (angle p1 p2))    ;２点角度
                    (setq l (distance p1 p2))    ;２点の長さ
                    (setvar "SNAPANG" rad)
                    (setvar "ORTHOMODE" 1)
                ))
                (setq ps1 p1)
                (setq ps2 p2)

                (setq pe1 nil)
                (setq pe2 nil)
                (setq el2 nil)        ;最新の図形名を取得
                (setq ele nil)        ;最後の図形名

                (setq el1 (entlast))    ;最後の図形名を取得
                (setq els el1)        ;最初の図形名
                (ssadd (entlast) enlist);作成した図形を選択セットに追加
            )(progn
                (setq pe1 p1)
                (setq pe2 p2)

                (setq el2 (entlast))    ;最新の図形名を取得
                (setq ele el2)        ;最後の図形名
                (ssadd (entlast) enlist);作成した図形を選択セットに追加
            ))
            (setq ptcnt (+ ptcnt 1))
        ))
    )

    (rapline_exit)
)
;図形削除
(defun entdels(p / n i en)
    (if p (progn
        (setq n (sslength p))
        (setq i 0)
        (while (> n i)
            (setq en (ssname p i))
            (prin1 en)(princ "\n")
            (entdel en)
            (setq i (+ i 1))
        )
    ))
)
;交差で閉じる
(defun intclose()
    (if (and ps1 ps2 pe1 pe2)(progn
        (if (> ptcnt 4)(progn
            (setq pcl (inters ps1 ps2 pe1 pe2 nil))
            (if pcl (progn    ;交差補正
                (setq e (entget els (list "*")));エンティティ取得
                (setq e (subst (cons 10 pcl) (assoc 10 e) e))
                (setq e (subst (cons 11 ps2) (assoc 11 e) e))
                (entmod e)
                (setq e (entget ele (list "*")));エンティティ取得
                (setq e (subst (cons 10 pe1) (assoc 10 e) e))
                (setq e (subst (cons 11 pcl) (assoc 11 e) e))
                (entmod e)
            )(progn
                ;角度
                (setq rad (angle ps1 ps2))    ;1点目2点目間の角
                (setq deg (* 180.0 (/ rad pi)))    ;ラジアン→度
                (setq deg (+ deg 90))        ;90度
                (if (> deg 360) (setq deg (- deg 360)))
                (setq rad (* pi (/ deg 180.0)))    ;度→ラジアン
                (setq p1 ps1)
                (setq p2 (polar p1 rad 1))

                (setq pcl (inters pe1 pe2 p1 p2 nil))
                (if pcl (progn    ;交差補正
                    (setq p2 pcl)

                    ;線分作成
                    (setq CMDECHO (getvar "CMDECHO"))(setvar "CMDECHO" 0)
                    (setq OSMODE (getvar "OSMODE"))(setvar "OSMODE" 0)
                    (setq autolispver (atoi (substr (ver) 13 4)));Visual LISP version
                    (if (>= autolispver 2015)(progn    ;2015以上
                        (command-s "_LINE" p1 p2 "")
                    )(progn                ;2014以下
                        (command "_LINE" p1 p2 "")
                    ));2015以降エラー後にcommandを使用すると強制的にエラーになる。
                    (setvar "CMDECHO" CMDECHO)
                    (setvar "OSMODE" OSMODE)

                    (setq e (entget ele (list "*")));エンティティ取得
                    (setq e (subst (cons 10 pe1) (assoc 10 e) e))
                    (setq e (subst (cons 11 pcl) (assoc 11 e) e))
                    (entmod e)

                    (setq pe1 p2)
                    (setq pe2 p1)

                    (setq ele (entlast))        ;最後の図形名
                    (ssadd (entlast) enlist)    ;作成した図形を選択セットに追加
                ))
            ))
        ))
    ))
)
;開始処理
(defun rapline_init()
    (setq autolispver (atoi (substr (ver) 13 4)));Visual LISP version
    (if (>= autolispver 2015)(progn
        ;AutoCAD 2015 からcommand系関数を使う時エラーが出るので
        (*push-error-using-command*)
        ;(princ "\n(*push-error-using-command*)を宣言しました。\n")
    ))

    (setq ErrBack *ERROR*)
    (setq *ERROR* rapline_error)

    (setq CLAYER (getvar "CLAYER"))
    (setq OSMODE (getvar "OSMODE"))
    (setq SNAPANG (getvar "SNAPANG"))
    (setq ORTHOMODE (getvar "ORTHOMODE"))

    (setq ps1 nil)
    (setq ps2 nil)
    (setq pe1 nil)
    (setq pe2 nil)
    (setq els nil)
    (setq ele nil)
    (setq enlist nil)
)
;終了処理
(defun rapline_exit()
    (setq *ERROR* ErrBack)
    (setq ErrBack nil)

    (setvar "CLAYER" CLAYER)
    ;(setvar "OSMODE" OSMODE)
    (setvar "SNAPANG" SNAPANG)
    (setvar "ORTHOMODE" ORTHOMODE)

    (if (> (sslength enlist) 1)(progn
        (intclose);交差で閉じる
        ;(entdels enlist);図形削除

        ;線分結合
        (setq CMDECHO (getvar "CMDECHO"))
        (setvar "CMDECHO" 0)
        (if (>= autolispver 2015)(progn    ;2015以上
            (command-s "_PEDIT" "M" enlist "" "Y" "J" "0.0" "")
        )(progn                ;2014以下
            (command "_PEDIT" "M" enlist "" "Y" "J" "0.0" "")
        ));2015以降エラー後にcommandを使用すると強制的にエラーになる。
        (setvar "CMDECHO" CMDECHO)
    ))

    (setq ps1 nil)
    (setq ps2 nil)
    (setq pe1 nil)
    (setq pe2 nil)
    (setq els nil)
    (setq ele nil)
    (setq enlist nil)

    (gc)

    (princ)
)
;エラー処理
(defun rapline_error (msg /)
    (if (and
        (/= msg "quit / exit による中止")
        (/= msg "関数は取り消されました")
    )(progn
        (princ "rapline_error: ")
        (princ msg)
    ))

    (rapline_exit)
)
↑ここまで

Windows10 32bitにした

Thu, 11 Feb 2016 20:34:26 +0900

Windows10にしたはいいが
VB6で作ったツールが一部動かない…
SPランタイムも入れたはずだが
MSSTDFMT.DLLがないと怒られる…
そういえば忘れてたことがあったと思い
とりあえずコマンドプロンプトから
REGSVR32 C:\windows\System32\MSSTDFMT.DLL
を実行！

・
・・・
・・・・・

0x8002801c がうんたらかんたとエラーが…

あ”？

小一時間ほど考える…
結局、管理者として実行しろとの事だった…
OSの入ってるドライブとかは
管理者として実行しないと動かないとは…
XPから乗り換えるといろいろ権限がややこしく意味がわからん
セキュリティが向上したとは思えないんだが…

レイヤー一覧をテキストファイルに保存

Sun, 30 Aug 2015 23:05:06 +0900

しばしば仕事でAutoLispでちょっとしたものを作るけど
たまにリファレンスに載っていなかったり
使い方がわからない関数があるんだよなぁ…

↓昔作ったAutoLispのレイヤー一覧テキストファイル書き出し
----------------------------------------------------------------
;レイヤ名リストのテキストファイル作成
(defun c:lntotext()
    (setq FileName "c://LNTOTEXT.txt");ファイル保存場所

    (princ "レイヤリストを<")
    (princ FileName)
    (princ ">へ作成します\n")

    (setq f (open FileName "w"));ファイル作成オープン
    (foreach row (layer-name-list)
        '(princ row)
        '(princ "\n")
        (write-line row f)
    )
    (close f);ファイルクローズ

    (princ "ファイルを<")
    (princ FileName)
    (princ ">へ作成しました\n")

    (princ)
)

;ソートしたレイヤ名リストを返す
(defun layer-name-list (
    /
    lst
    layer
)
    (vl-load-com);AutoLisp機能拡張読込

    (vlax-for layer (vla-get-Layers
            (vla-get-ActiveDocument
                (vlax-get-acad-object)
            )
        )
            (setq lst (cons (vla-get-name layer) lst))
    )

    (acad_strlsort lst);文字列リストソート
)
----------------------------------------------------------------

久々に自炊

Tue, 25 Aug 2015 21:55:23 +0900

最近は豆腐と納豆ばかりでしたが
久々に自炊で肉詰めピーマンを…
足も治ってきたしもうそろそろ散歩を再開するか…