JwユーザーがAutoCADを左手だけで爆速操作する設定を公開しました

はじめに

鉄骨屋をやっている元設備屋です。

メインのCADはAutoCADですが、もともとJw_cadユーザーだったので「マウスとアイコンで操作するAutoCAD」にずっと違和感がありました。

そのずっと以前はCADAMを使っていました。jwはかなりCADAM寄りと思います。設備ではTfasを使っていました。

Jw_cadは左手キーボードだけでほぼ全操作が完結します。あの速度感をAutoCADで再現したくて、ショートカット設定を育ててきました。今回GitHubに公開したので、設計思想とあわせて紹介します。

設計思想

打鍵数 = 使用頻度の逆数

最もシンプルなルールです。

よく使うコマンドほど少ない打鍵数に配置します。

キー	コマンド	考え方
E	CIRCLE	円は最多用
EE	ARC	円弧は次点
EEE	ELLIPSE	楕円はたまに
G	LINE	直線は最多用
GG	PLINE	ポリラインは次点
D	ERASE	消去は最多用
T	TRIM	トリムは最多用
TT	EXTEND	延長は次点

同じキーを繰り返し打つと上位コマンドに移行する、Jw的な多段操作です。

左手で完結する配置

OやLなど右手側のキーは避けています。

たとえばオフセットをFに置いているのは、O（OFFSET）が右手になるからです。JWの複線。移動もMではなくVにしています（MはJwでも遠い）。

Spaceキー = コマンド繰り返し

AutoCADではEnterとSpaceが同じ動作をします。親指で押せるSpaceを意識的に使うと、Jwの「右クリックで直前操作繰り返し」に近い感覚になります。

キー配置の紹介

作図系

G   = LINE       直線
GG  = PLINE      ポリライン
GGG = GROUP      グループ
GC  = CENTERLINE 中心線
GX  = XLINE      無限線

E   = CIRCLE     円
EE  = ARC        円弧
EEE = ELLIPSE    楕円

H   = HATCH      ハッチング
HH  = HATCHEDIT  ハッチング編集

編集系

D   = ERASE      消去
T   = TRIM       トリム
TT  = EXTEND     延長
F   = OFFSET     オフセット
FC  = FC(LISP)   オフセット→現在画層
C   = COPY       コピー
V   = MOVE       移動
X   = MIRROR     鏡像
R   = FILLET     フィレット
CC  = CHAMFER    面取り
Q   = U          元に戻す

画層系（Rキー統一）

画層操作を全部Rキーに集約しています。

RA  = LAYER      画層管理
RC  = LAYCUR     現在の画層に変更
RG  = LAYON      画層ON
RH  = LAYOFF     画層OFF
RS  = LAYISO     画層アイソレート
RSS = LAYUNISO   アイソレート解除
RV  = AI_MOLC    オブジェクトの画層を現在に
RW  = LAYMCH     画層一致
RWW = LAYWALK    画層ウォーク

寸法系（Sキー統一）

寸法コマンドを全部Sキー（Sunpou）に集約しています。

S   = DIM        寸法（自動判定）
SS  = DIMLINEAR  水平/垂直寸法
SA  = DIMALIGNED 平行寸法
SC  = DIMCONTINUE 連続寸法
SR  = DIMRADIUS  半径寸法
SD  = DIMDIAMETER 直径寸法
SG  = DIMANGULAR 角度寸法

数字キー = トグル系

1  = 直交モード ON/OFF
2  = モデル/ペーパー切替
3  = グリッド ON/OFF
4  = スナップ ON/OFF
5  = 極トラッキング ON/OFF

LISPで痒いところに手を届かせる

W = 属性一括取得

Jwの「属性取得」相当の最重要LISPです。オブジェクトをクリックすると画層・色・線種・文字スタイル・寸法スタイル・ハッチスケールを一括で現在の設定に取り込みます。

(defun c:W (/ e ed ds)
  (setq e (car (entsel "\n属性取得: ")))
  (if e
    (progn
      (setq ed (entget e))
      (if (assoc 8   ed) (setvar "CLAYER"    (cdr (assoc 8   ed))))
      (if (assoc 62  ed) (command "_.-COLOR" (itoa (cdr (assoc 62 ed)))) (command "_.-COLOR" "_BYLAYER"))
      (if (assoc 6   ed) (setvar "CELTYPE"   (cdr (assoc 6   ed))))
      ...
    )
  )
)

FC = オフセット→現在画層

「オフセットしたものを今の画層に」という需要が高いのに標準コマンドがない。OFFSETLAYERMODEを一時的に切り替えて元に戻すLISPです。

(defun c:FC (/ prev)
  (setq prev (getvar "OFFSETLAYERMODE"))
  (setvar "OFFSETLAYERMODE" 1)
  (command "OFFSET")
  (setvar "OFFSETLAYERMODE" prev)
  (princ)
)

F=オフセット、FC=現在画層オフセットと2つが明確に分かれて、左手で完結します。

AC / AD / AS = 文字装飾系

AC = 丸囲み文字
AD = 下線付き文字
AS = 角囲み文字

DS100 / DS50 / DS30 = 縮尺一発変更

(defun c:DS100 ()
  (setvar "DIMSCALE" 100)
  (setvar "TEXTSIZE" 250)
  (command "._DIMSTYLE" "_R" "MY-DIM")
  (princ "\n【縮尺 1:100】") (princ))

縮尺変更のたびにDIMSCALEとTEXTSIZEを手動で変えていた手間がなくなります。

導入方法

GitHubからダウンロードしてください。

https://github.com/Hideaaaa/autocad-jw-shortcuts

acad.pgpを所定のフォルダにコピーしてREINITで再読み込み、acadoc.lspをサポートパスに追加するだけです。詳細はREADMEに記載しています。

おわりに

この設定はChappyとGeminiと Claude に手伝ってもらいながら育ててきました。

Jwから移行してAutoCADが「遅い」と感じている方の参考になれば嬉しいです。Mac対応LISPの情報やキー配置の改善提案など、IssueやPull Requestを歓迎しています。
EOF
echo "Done"