AutoCADで使える便利なLispコード10選【業務率UP】

結論：この記事では、AutoCADで業務効率を大幅に向上させるための便利なLispコードを10個厳選して紹介します。これらのコードを活用することで、作業時間を短縮し、ミスを減らすことができます。

Table of Contents

1. 線分を一括で削除するLispコード

作図中に不要な線分ができてしまった場合、このコードを使うことで一括削除が可能です。以下のコードをAutoCADに入力してください。

(defun c:del-lines () (command "_.erase" (ssget '((0 . "LINE"))) "") (princ))

使い方：コマンドラインに「del-lines」と入力するだけで、全ての線分を一括で削除できます。

特定のオブジェクトを簡単に移動させることができるコードです。選択したオブジェクトを指定した距離だけ移動させることができます。

(defun c:move-obj () (command "_.move" (ssget) "" (getpoint "\n移動先を指定: ")) (princ))

使い方：コマンドラインに「move-obj」と入力し、移動したいオブジェクトを選択します。

レイヤーの管理は非常に重要です。このコードを使うことで、複数のオブジェクトのレイヤーを簡単に変更できます。

(defun c:change-layer () (setq newLayer (getstring "\n新しいレイヤー名を入力: ")) (command "_.chprop" (ssget) "" "LA" newLayer) (princ))

使い方：コマンドラインに「change-layer」と入力し、新しいレイヤー名を入力します。

特定の範囲内のオブジェクトを選択する際に役立つコードです。範囲を指定することで、必要なオブジェクトだけを抽出できます。

(defun c:filter-obj () (setq pt1 (getpoint "\n範囲の第一点: ")) (setq pt2 (getpoint "\n範囲の第二点: ")) (command "_.select" (list pt1 pt2)) (princ))

使い方：コマンドラインに「filter-obj」と入力し、範囲を指定します。

選択したオブジェクトのプロパティを一目で確認することができる便利なコードです。

(defun c:show-properties () (foreach item (ssname (ssget) 0) (command "_.properties" item) (princ)) (princ))

使い方：コマンドラインに「show-properties」と入力します。

印刷設定を簡単に行うためのコードです。このコードを使えば、面倒な設定が不要になります。

(defun c:quick-print () (command "_.plot" "y" "DWG To PDF.pc3" "A3" "Landscape" "1:1" "Fit" "y" "y" "y") (princ))

使い方：コマンドラインに「quick-print」と入力します。

特定の角度でオブジェクトを回転させるための便利なコードです。

(defun c:rotate-obj () (command "_.rotate" (ssget) "" (getpoint "\n回転の基点を指定: ") (getangle "\n回転角度を指定: ")) (princ))

使い方：コマンドラインに「rotate-obj」と入力します。

図面のスケール設定が手軽に行えるコードです。

(defun c:set-scale () (setq scale (getreal "\nスケールを入力: ")) (command "_.scale" (ssget) "" (getpoint "\n基点を指定: ") scale) (princ))

使い方：コマンドラインに「set-scale」と入力します。

オブジェクトの色を一括で変更できる便利なコードです。

(defun c:change-color () (setq newColor (getint "\n新しい色番号を入力: ")) (command "_.chprop" (ssget) "" "C" newColor) (princ))

使い方：コマンドラインに「change-color」と入力し、新しい色番号を入力します。

図面を簡単にエクスポートするためのコードです。

(defun c:export-drawing () (command "_.export" "JPEG" (getstring "\nファイル名を入力: ")) (princ))

使い方：コマンドラインに「export-drawing」と入力し、ファイル名を指定します。

以上が、AutoCADで業務効率を向上させるための便利なLispコード10選です。これらのコードを活用することで、作業のスピードアップやミスの軽減が期待できます。ぜひ試してみてください。

次のステップとして、実際にこれらのコードをAutoCADに導入してみましょう。「こちらからAutoCADを試す」ことができます。

さらに、作業効率を向上させるためのアプリやツールもチェックしてみてください。あなたの作業がよりスムーズに進むことを願っています。