AutoCAD LT 作業メモ

• トップページ（index.htm）に戻ります

---

AutoCAD LT を使うときの参考メモです。 他に Jw_cad についても多少メモしています。

• 1. アクションブロック
• 2. 文字の検索・置き換え
• 3. AutoCAD LT と JWW
• 4. ファイルのオープンが遅いときと外部参照
• 5. 画層の数
• 6. AutoCAD LT の図面を Jw_cad で使う場合の縮尺調整
• 7. Jw_cad でレイヤーごとに線種や線色、線幅を設定する
• 8. AutoCAD LT 2013 と Windows10
• 9. マクロ（DIESEL式）を使う
• 10. 中心線付き円のアクションブロック
• 11. 3D 作業で使う LISP
• 12. とりあえず名前が付いた Group を作る LISP
• 13. append で LIST に値を追加する LISP
• 14. Group 化された図形の全長を出す LISP で困ったこと
• 15. 円弧・ARC の長さを出す
• 16. DWG to PDF で出力した PDF の 色がうすい
• 17. 寸法文字を寸法線をまたいで表示する
• 18. 【CADではないです】HTML 内にサーバーのテキストファイルを表示させる

1. アクションブロック

• AutoCAD LT では、図形のブロックを作ることで、作図を容易にすることができます。 このブロックにアクションを付与すると、更に便利になるみたいです。
• ブロック図形のアクションには「ストレッチ」とか「反転」とか色々あります。 ここではボルトのブロック図形にストレッチするアクションを付けます。
  1. ボルトのブロック図形を用意し、ブロックエディタで開きます。
  2. 「ブロック オーサリング パレット」の「パラメータ」 から、「直線状」パラメータを選びます。

     

  3. ストレッチする部分に「直線状」パラメータを付与します。 右赤丸から左赤丸に、寸法線を引く要領です。

     

  4. 「ブロック オーサリング パレット」の「アクション」 から、「ストレッチ」アクションを選びます。 「直線状」パラメータ 距離1 をクリックします。

     

  5. 図形左側の▽（「直線状」パラメータ 距離1 左端）をクリックします。 これがストレッチの始点になります。

     

  6. 図形左側を青点線部分のように、左上をクリック、右下をクリックして囲みます。

     

  7. 図形の伸縮される部分を選択します。 ボルトのダッシュになっている部分（赤丸で囲んだ部分）が選択した線です。

     

  8. これでアクションが付与されました。

     

  9. ブロックエディタを閉じ、図面上でブロック図形を選択すると、図形の左側に▽が付いています。 これをマウスでクリックしてドラッグするとボルトがストレッチされます。 プロパティ内のカスタム項目にある「距離1」の値を変えて変更することもできます。 ストレッチ長さを 30mm、40mm などに調整すると、ひとつのブロック図形で、数種類の長さのボルトを描くことができます。

     

  10. アクションブロックをブロックエディタで編集するとき、パラメータを削除してしまうと、ストレッチなどをしたブロック図形が元の大きさに戻ってしまうかも。 編集するときは注意した方が良いです。

• このページのトップに戻る

2. 文字の検索・置き換え

• AutoCAD LT では、複数のシートを作成することができます。 それぞれのシートを一枚の図面に割り当てて、複数の図面をひとつのファイルにまとめることができます。
• 複数のシートにまたがって文字の置き換えを行いたいときがあります。 例えば、図面枠に記載しているタイトルです。
  1. シートタブをクリックしてシートを選択します。

     

  2. 「検索と置換」を表示して、置き換え後の文字列などを設定します。 ここでは、図面名称「機器詳細図」を「機器取付詳細図」に置き換えます。 「すべて置換」をクリックします。

     

  3. ペーパー空間とモデル空間にある文字が検索され、置き換えられます。 ただし、モデル空間もいっしょに処理されることに注意が必要です。

     

• このページのトップに戻る

3. AutoCAD LT と JWW

• Jw_cad Windows のデータを使用することもあります。
• 仕事で使い始めた CAD は Jw_cad DOS版でした。 何せ、普通で数十万するような CAD を 2D とはいえ、無料で使えたのですから。 使い方の本とかも出ていました。
• その他、図脳 とか VectorWorks とか Ashler Skectch とかをほんの少し使って、AutoCAD LT 95 あたりからほとんど AutoCAD LT（以下ADLT）を使うようになりました。
• その間に Jw_cad も Windows に対応するようになりました（以下 JWW）。
• しばらくぶりに触ってみると、さっぱりわかりません。 使い方を忘れています。 DOS 版とも使い勝手がけっこうちがうような。
• そこで、最低限図面データを操作する上で、覚え直したことをまとめてみました。
  1. ESC キーは押してはいけない
     • ESC キーは、選択状態を解除するとか、ADLT ではよく使うキーです。 何もなくても、押下するのがくせになっていたりします。
     • しかし、JWW で ESCキーを押下すると作業が無かったことにされます。 せっかく描いた図形も消えます。 実際に Undo したいとき以外は押さない方が良いんでは。
  2. 背景色
     • ADLT では画面の作図領域を黒色にすることも多いかと思います。
     • JWW の背景を黒くするには；
       1. 設定 --> 基本設定 --> 色・画面 --> 色彩の初期化 --> 背景色:黒 --> OK
  3. 用紙サイズと枠
     • JWW で用紙を選び、さらに用紙の枠を画面に表示するには；
       1. 用紙サイズ：設定 --> 用紙サイズ --> 選びます
       2. 枠表示：設定 --> 基本設定 --> 用紙枠表示をチェック
  4. 表示位置移動・全体表示・縮小表示・拡大表示
     • マウスの両ボタンを使います。 文字で書くと、一年かかりそうな操作に思える :-)
       1. 表示位置移動：表示したい範囲の中央付近にマウスを移動して、マウスの左右ボタンを同時にクリック
       2. 全体表示：マウスの左右ボタンを同時に押して右上にずらしてボタンを離す
       3. 縮小表示：縮小表示したい範囲の中央付近にマウスを移動して、マウスの左右ボタンを同時に押して左上にずらしてボタンを離す
       4. 拡大表示：拡大表示したい範囲左上付近にマウスを移動して、マウスの左右ボタンを同時に押して右下にずらすと範囲の枠が表示される。好きなところでボタンを離す
  5. 範囲を選ぶ
     • 基本的に、複写や移動、消去とかは、範囲を選んでから行うようです。
     • ADLT ではマウスとシフトキーで自在に選びますが、JWW では左右のボタンを駆使することで選ぶ対象を変えられます。
       1. 範囲（文字除く）：範囲ボタンをクリック --> 選択範囲の始点を右クリックして終点を左クリック
       2. 範囲（文字含む）：範囲ボタンをクリック --> 選択範囲の始点を右クリックして終点を右クリック
       3. 選択追加（線・円・点）：図形を左クリック
       4. 選択追加（連続している線）：シフトキーを押しながら図形を右クリック
       5. 選択追加（文字）：文字を右クリック
     • Ctrl + A で全選択とかあると便利だろうなあと思いました。
  6. 文字の変更
     • 作図されている文字を修正します。
     • ADLT ではダブルクリックで編集できますが、JWW ではまず「文字」コマンドのボタンをクリックします。
       1. 文字ボタンをクリック
       2. 編集したい文字を左クリック
       3. 文字入力ダイアログが表示されるので文字を入力
       4. エンターキーで確定します。確定前に、マウスで文字位置を移動しつつ確定することもできる
  7. レイヤーを選択・変更する
     • ○囲みの 1 〜 F ボタンのそれぞれがレイヤーに対応。 レイヤー名やレイヤーに書き込まれている図形の全体を視覚的に確認するには、任意のボタンを右クリックする。
  8. 描きたいレイヤーで描く、またはレイヤーの切替
     • 描きたいレイヤーに描かれている図形の「設定」→「属性取得」をするだけで、作業レイヤーが切り替わり、取得した線種・線色で描いてくれる。 これは便利だなあと思いました。
     • 「属性取得」といっても、ADLT のように、プロパティの一覧を見られるわけではないようです。
  9. 引き出し線
     • 引き出し線というオブジェクトではなくて、線の集合体。
     • 線コマンドで書きます。
  10. オフセットと複線
      • ADLT での「オフセット」：同心円・平行線を作成する。JWW で言う「複線」
      • JWW での「複線」： ADLT で言う「オフセット」
      • JWW での「オフセット」： 図形の基点位置を、数値を指定してずらすものらしい。 図形の移動や位置変更などに便利そうですが、JWW のインストールの仕方がまずかったのか、この「オフセット」がうまく使いこなせません。
  11. 図形反転：鏡像（ミラー）と複写・移動倍率
      • ADLT で図形を反転させる場合：「鏡像（ミラー）」を使う。
      • JWW で図形を反転させる場合： 「複写・移動」コマンドを使い、複写・移動時の倍率設定を使って上下左右を決める （倍率に｢−1,1｣を設定すると、左右反転、倍率に｢1,−1｣を設定すると、上下反転）
  12. 指定レイヤーを印刷しない
      • ADLT でレイヤーを印刷しない場合：「画層プロパティ管理」で「印刷」の項目をチェックする。
      • JWW でレイヤーを印刷しない場合： 印刷しないレイヤーを「表示のみレイヤ」にする。 印刷時に「出力方法設定」で、「表示のみレイヤーは印刷しない」をチェックして印刷実行。 印刷モードになったまま、適当にボタンをクリックすると印刷されてしまうので注意する．．．。
      • どちらの場合でも、印刷しない補助的なレイヤーを作っておいた方が良いんでは。
  13. 文字の下線
      • ADLT で文字に下線を付ける：文字の前に「%%U」を付ける。
      • JWW で文字に下線を付ける： 文字の前に「^_」を付ける
  14. 似たような図形を選ぶ
      • ADLT で選ぶ：「類似オブジェクトを選択」実行する。
      • JWW で選ぶ：
        1. 「範囲」で「選択範囲」を指定。
        2. 「属性選択」をクリック→選びたい線や線種などを指定。指定したものか、指定外のものかを選んで実行。
        3. このとき、選びたい線種などが分からない場合（DXFファイルなどで読み込んだ場合）は、先に「設定」→「属性取得」で選びたい線をクリックしておくと便利。 「属性選択」を開いたとき、既に「属性取得」で取得した線色・線種に設定されているようです。
  15. 線の太さ（線幅）の表示・非表示
      • ADLT の場合：「線の太さ」アイコンをクリックする。
      • JWW の場合： 「設定」→「基本設定」→「色・画面」→「線幅を表示倍率に比例して描画」にチェックを付ける。 「環境設定ファイル」でも指定できる。 しかしそのときの線幅設定方法がよくわからない．．．。
  16. 点線・一点鎖線など線のピッチ
      • ADLT の場合：「形式」→「線種設定」→「線種管理」で線種尺度を調整。
      • JWW の場合： 「設定」→「基本設定」→「線種」で「ピッチ」の項目を調整。 「画面表示」と「プリンタ出力」で分かれていて、印刷して線種の区別ができないときは、「プリンタ出力」の設定値を小さくしてみる。 「環境設定ファイル」でも指定できる。
  17. 距離を測定したい
      • ADLT の場合：「距離計算」アイコンをクリックする。
      • JWW の場合： 「測定」アイコンをクリックする。
• JWW には「クロックメニュー」という　マウスの方向によってメニューの呼び出す方法があります。 これはあまり理解していないんですが、ADLT というか Windows 全般でよく使われる右クリックメニューのようなものかもしれません。 「クロックメニュー」を使いこなすと、プルダウンメニューやボタンまでマウスを動かすことが少なくなって、結果的に作業も速くなるでしょう。 なぜ右クリックメニューとしなかったのかはわかりませんが、少しでも移動距離を少なくしたり、角度指定を視覚的に行うの最良の手段なのかもしれません。
  でもこれは慣れてくると便利だなあと思いました。
• あらためて使用してみると、
  • ADLT は、色々な紙に作図して、一枚に整理する。
  • JWW は、最初から一枚の図面上に作図する。
  Jw_cad を使う人が「ドラフター感覚」というのは、この辺りのことを言っているのかなあと考えたりする。

• このページのトップに戻る

4. ファイルのオープンが遅いときと外部参照

• ファイルを開いたとき、なんだか遅いときがあります。
• ファイルのサイズがとても大きいのかもしれません。
• その他だと、よく外部参照ファイルがロードされない場合があります。
• ファイルを複製して新しいファイルを作成する場合、前に参照してファイルの指定がそのまま残ってしまうことがあります。 それが繰り返されると、たくさんの参照が残ります。
• あるはずの無い参照先のファイルを探すのに時間がかかり（結局見つからない）、結果的にファイルのオープンが遅くなります。 そうした参照が多いほど、オープンは遅くなります。
• ラスタイメージを扱えないバージョンの AutoCAD LT で作られたファイルにそうしたことが多いかもしれません （ラスタイメージを扱うフリーウェアなどを使用されていたのだと思います）。
• その参照が本当に不要であれば、不要な参照を削除します。
  1. 「外部参照」を開きます。 状態が「！参照されていません」となっているのが、不要な参照です。

     

  2. 不要な参照名をマウスで選び、右クリックで「アタッチ解除」をクリックします。

     

  3. 不要な参照名が削除されました。

     

• このページのトップに戻る

5. 画層の数

• Jw_cad を触ってみると、レイヤーの数が「0 〜 9、A〜F」の 16 レイヤーのようです。
• ということは、AutoCAD LT て作ったファイルを Jw_cad でも読まなければならないという前提がある場合、画層を 16 までにしておいた方が良いということでしょうか。
• 実際に、AutoCAD LT のファイルを、以下の手順で Jw_cad で開いてみると、
  1. レイアウト→モデル変換
  2. DXF R12 で保存
  3. Jw_cad で DXF 読み込み
  出てこないレイヤーがあって、そこに入っていた図形が他のレイヤーに入ってます。
• 試しに、AutoCAD LT 側で 画層を 16 まで絞り、上記の手順で Jw_cad で開いてみると、一部違ったレイヤーに入った図形はありましたが、ほぼ元の画層どおりに納まっています。
• やっぱり画層は 16 までにした方が良いんだろうか。
• なんて思ったら、これは勘違いで、「0 〜 9、A〜F」の 16 レイヤーが 16 グループあるんですね。 16 × 16 で 256 レイヤー。 16 を超えたレイヤーの図形は、次のレイヤーグループのレイヤーに入っていました。
• さらに、各レイヤーグループに縮尺を割り当てることができるので、ひとつの図面に 16 の縮尺を混在させることができる。 このために、レイヤーグループという仕様にされたのかも。

• このページのトップに戻る

6. AutoCAD LT の図面を Jw_cad で使う場合の縮尺調整

• AutoCAD LT のファイルを読み込む場合、特別なファイル変換・コンバートプログラムを使わない限り、AutoCAD LT 側では、「レイアウト→モデル変換」と「DXF R12 で保存」で DXF ファイルを作っておきます。
• この DXF ファイルは、縮尺が 1:1 です。 AutoCAD LT 側で A3 を想定して作図していた場合、Jw_cad で読み込むと、「用紙サイズ A3」「縮尺 1/1」になるようです。
• そこで、どうするかというと、例えば「用紙サイズ A3」「縮尺 1/200」にしたい場合、
  1. Jw_cad で AutoCAD LT の DXF ファイルを読み込む。JWW 形式で新規保存。
  2. 全図形・文字を選択し、「編集」メニューから「コピー」を実行。
  3. 作業中の Jw_cad とは別に新規で立ち上げ、
     • メニューの「設定」→「用紙設定」で、「A3」
     • メニューの「設定」→「縮約・読取」で、縮尺を 「1/200」
     に設定する。
  4. 「編集」メニューから「貼り付け」を実行。
  5. 「倍率」を「200,200」に設定。 「作図属性」の「元レイヤーに作図」をチェック。
  6. 画面の適当な位置をクリックして貼り付け。
  7. 全図形・文字を選択し、「移動」でうまく A3 図面範囲内に収める。
• という手順で、出来た。
• これはどういうことかというと、同じ「A3 図面枠」でも、縮尺によって、枠の大きさが異なるということ。 AutoCAD LT では、ペーパー空間に枠を書く場合、いつでも大きさは同じです。 つまり、すべてをモデル空間で描いているのと同じことか。
• 一枚の図面に 1/20、1/10 が混在している DXF の場合は、
  1. Jw_cad で AutoCAD LT の DXF ファイル（1/1）から全図形をコピー。
  2. 作業中の Jw_cad とは別に新規で立ち上げ、「A3」「1/20」に設定。
  3. 「編集」メニューから「貼り付け」を実行。倍率を「20,20」にする。
  4. レイヤーグループ [1] を書き込み状態にする。
  5. 「縮約・読取」で、縮尺を 「1/10」
  6. レイヤーグループ [0] の 1/10 部分を切り取り。
  7. レイヤーグループ [1] に「貼り付け」。倍率を「0.5,0.5」にする。
  8. 更に別縮尺があれば、新しいレイヤーグループを書き込み状態にし、縮尺を設定して貼り付けを繰り返し。
• 慣れると便利です。 しかしこれを今度、AutoCAD LT に戻せと言われるとぞっとします。 何をメインにして作図するか、レイヤー構成、縮尺の混在制限など、作図の際は色々と考えたほうが良さそうです。
• 考えたら、下記のように使うと、いつも同じ図面枠を使えるので良いんでないか。
  • レイヤーグループ [0]：縮尺 1/1 で図面枠用。
  • レイヤーグループ [1]〜：作図用。
  でも DXF とかにすると、また図形が 1/1 になってしまうか。

• このページのトップに戻る

7. Jw_cad でレイヤーごとに線種や線色、線幅を設定する

• AutoCAD LT だと、「画層プロパティ管理」で設定できます。 しかし、Jw_cad ではそれらしいメニューた見当たりません。
• 調べてみると、拡張子が「jwf」という「環境設定ファイル」を作り、以下の項目を定義したら対応できるらしい。
  • LAYCOL：レイヤーごとの「線色」の既定値設定（初期値：「0」）
  • LAYWID：レイヤーごとの「線幅」の既定値設定（初期値：「-1」）
  • LAYTYP：レイヤーごとの「線種」の既定値設定（初期値：「0」）
• 作成した環境設定ファイルを「設定」→「環境設定ファイル」→読み込みます。
• 細かい説明が書かれている「sample.jwf」を元にして作成すると良いようです。 しかし sample.jwf を コピーして、別名にしたファイルの内容を修正して読み込んでみましたが、反映してくれませんでした。
• そこで、上記の LAYCOL、LAYWID、LAYTYP だけを抜き出したファイルを作成して読み込んだところ、その内容を反映してくれました。 sample.jwf には、多数の設定が記述されているので、相互に影響があったのかもしれません。でもちがうかも。
• 仕事を頼むときは、資料の中にこの環境設定ファイルも渡した方が良いかも。 レイヤーをどう使うかはもちろん、線種・線色などはきちんと決めておいた方が良いです。 手書きより修正時間は短くなるとはいえ、なんだかんだと時間がかかるというのはもったいないです。
• しかし、0〜9、10〜19 それぞれの線種と番号の対応を調べるのが一苦労でした。
• 環境設定ファイルを読み込んでも、既存の線や図形の色が勝手に変わるわけではなさそう。 Jw_cad で AutoCAD LT での「By Layer」のような設定を見つけきれませんでした。 線色や線幅などの変更のたびに、図形を選択して属性変更を実行しなければならないので、この辺りはちょっと Jw_cad の方が使いづらいような。 結局「慣れ」なんでしょうけど。
• しかし、レイヤーとか画層ごとに線種・線色・線幅の基本を決めておくというのはひとつの指針ですが、そうでない考えもあるのかも。 Jw_cad に「By Layer」属性が無いとしたら、その辺りは自由にどうぞということかもしれません。
• レイヤー名も設定できるようです。
  • LAYNAM：レイヤーごとの「レイヤー名」設定

• このページのトップに戻る

8. AutoCAD LT 2013 と Windows10

• AutoCAD LT 2013 が入っている Windows7 の PC を Windows10 にアップグレードしてみた。 いつかはしなくてはならないことなので。
• 普段よく使っている Excel とか AutoCAD LT 2013 にメーラーがちゃんと動いてくれるか不安でしたが、無事動いてくれているようです。
• ああ、良かった。

• 参照リンク：Windows7 から Windows10 にした : page_0002.htm

• 戻る

9. マクロ（DIESEL式）を使う

• プログラムとか自動化といえば、前は VBA で操作したり、レギュラー版であれば AutoLISP というのがあります。
• AutoCAD LT ではそういったプログラミングができません。 手早い操作の習得やブロックを用意したりして作業の効率化を図りますが、DIESEL式 というのを利用したマクロを作ることができます。
  その時によく参照するのが、「AutoCADマクロ屋本舗」というすごいページです。
  • AutoCADマクロ屋本舗 ： http://ameblo.jp/totthi-macro/
• ここで好きなマクロが以下の３つです。
  • 長穴作図：http://ameblo.jp/totthi-macro/entry-11057463017.html
  • ブロック化：http://ameblo.jp/totthi-macro/entry-10936949160.html
  • ブロック⇔グループ変換：http://ameblo.jp/totthi-macro/entry-11450868379.html
  ブロック化のマクロは、データ量が多くてグループ化した図形の移動処理が遅くなったりするときに、仮にブロック化すると、少しは処理が早くなるような気がします。

• このページのトップに戻る

10. 中心線付き円のアクションブロック

• 穴というか円を作図して十字中心線を入れるとき、普通に作図すると、円の半径によって中心線の長さを揃えたりするのが面倒です。 そこで、中心線付き円のアクションブロックを作ってその作業を簡単にします。

  1. 円と十字中心線を配置したブロック図形を用意して、ブロックエディタで開きます。 ブロックの基点は円の中心にします。 各オブジェクトのレイヤや線種は好みです。

     

  2. 「ブロック オーサリング パレット」の「パラメータ」 から、「直線状」パラメータを選びます。 円の半径にあたる部分にパラメータを付与します。

     

  3. 「ブロック オーサリング パレット」の「アクション」 から、「尺度変更」アクションを選びます。 「直線状」パラメータ 距離1 をクリックします。 続いて、対象となるオブジェクトを選択します。 左クリックで円と十字の中心線がを選択して、右クリックで確定します。

     

  4. 左側の矢印を選んで削除します。

     

  5. これでアクションが付与されました。

     

  6. 大きさを変えるには、右側の矢印をクリックして右方向にドラッグします。 プロパティウィンドウの「カスタム」の項目にある「距離1」の値を変えても変わります。 図形の移動は、ブロックの基点をクリックしてドラッグします。

     

     これで、円の大きさに合わせて十字中心線の長さも変わります。

• このページのトップに戻る

11. 3D 作業で使う LISP

• AutoCAD の DWG ファイル互換という「IJCAD」や「BriscCAD」を使ってみると、3Dモデルが使いたくなって、更に LISP も使いたくなります。
  • 参照リンク：AutoCAD LT 互換CAD とか 3D などのメモ（考え中）

• 3D といえば、X と Y の他に Z という値が出てきます。 Z 位置から上に行ったり下がったり、図形位置のを調整が必要になります。

• そこで Z 方向関係で使いそうな LISP を考えてみた。 LISP を使ったことはあっても作ったことはほとんどなかったので、Web ページがとても参考になりました。

  1. X と Y 位置は変えず、Z 方向にだけ移動にする。

     (defun c:ObjMoveZ ()
       (setq ss (ssget)
         rz (rtos (getreal "Z 方向の移動距離をタイプ: "))
         rd (strcat "0,0," rz)
       )
       (command "_.move" ss "" "0,0,0" rd)
     )
     

  2. X と Y 位置は変えず、Z 方向に複写にする。 これは move が copy になるだけです。

     (defun c:ObjCopyZ ()
       (setq ss (ssget)
         rz (rtos (getreal "Z 方向の複写距離をタイプ: "))
         rd (strcat "0,0," rz)
       )
       (command "_.copy" ss "" "0,0,0" rd)
     )
     

  3. X と Y 位置は変えず、Z = 0 の位置に移動にする。図形位置のリセットの意味合いもあります。しかしこれがけっこう悩みました。

     (defun c:ObjMoveZero()
       (setq ensel (car (entsel 
       	"移動の基準となる移動図形（線・円・引出し線・ポリライン・ブロック）を一つ選択: ")))
       (setq ss (ssget))
       (if (= "LINE" (cdr (assoc 0 (entget ensel))))
         (progn
           (setq MoveDist (rtos(caddr(cdr (assoc 10 (entget ensel))))))
         )
       )
       (if (= "CIRCLE" (cdr (assoc 0 (entget ensel))))
         (progn
           (setq MoveDist (rtos(caddr(cdr (assoc 10 (entget ensel))))))
         )
       )
       (if (= "LEADER" (cdr (assoc 0 (entget ensel))))
         (progn
           (setq MoveDist (rtos(caddr(cdr (assoc 10 (entget ensel))))))
         )
       )
       (if (= "LWPOLYLINE" (cdr (assoc 0 (entget ensel))))
         (progn
           (setq MoveDist (rtos(cdr (assoc 38 (entget ensel)))))
         )
       )
       (if (= "INSERT" (cdr (assoc 0 (entget ensel))))
         (progn
           (setq MoveDist (rtos(caddr(cdr (assoc 10 (entget ensel))))))
         )
       )
       (if (= "-" (substr MoveDist 1 1))
         (progn
           (setq MoveDist (substr MoveDist 2 (strlen MoveDist)))
         )
         (progn
           (setq MoveDist (strcat "-" MoveDist))
         )
       )
       (print (strcat "0,0," MoveDist))
       (command "_.move" ss "" "0,0,0" (strcat "0,0," MoveDist))
       (princ)
     )
     

     • 選択した図形の DXF テーブルから Z 位置を調べて、その値が-（マイナス）ならその分だけ上へ、+（プラス）なら下方向移動して Z 位置 = 0 にします。
     • 最初は、entsel で図形を一つ選択し、entmod とかで DXF テーブルを書き換えようと考えましたが、直接ファイルをいじって何かあると困る。
     • そのため move コマンドを使うことにした。 すると、オブジェクトを ssget で選ばなければなりませんが、そのおかげで複数選べるようになった。
     • 最初の entsel で選べるのは、線・円・引出し線・ポリライン（ポリゴン）・ブロック（インサート) だけです。 図形の種類によって、DXF テーブル上 Y 位置を示すリスト番号が違ったりする（ほとんど 10 ですが ポリラインは 38 など）。
     • このとき、ブロックが 3D回転などされていると、図形のプロパティで見る X Y Z 位置と DXF テーブル内の X Y Z に食い違いで出て、あらぬ方向に移動されてしまいます（DXF テーブルの Z に Y の値が入っていたりする）。
       例えば、プロパティは下のようになっていても、3D回転されている場合、DXFの（リスト番号 X Y Z）表示では (10 489816 21747.5 245950) となっていたりする。
       
       
       
       
     • そんなときはブロックを分解してもいいんですが、いちいち分解するのは大変。 その結果、他に移動する図形（回転されていないもの）を選び、その Y の値だけ動かすことにして、上記の LISP のようになりました。

• このページのトップに戻る

12. とりあえず名前が付いた Group を作る LISP

• 単にグループ化すると、名前が「*A40」とかになるので、とりえあえず別な名前を付けておきたい場合の LISP。
• この例では、グループ化される時、先頭に「DENKI」の文字が付いたグループ名が、DENKI1、DENKI2、DENKI3、DENKI4 〜と付与されます。

  (defun c:GRPCQ (/ selectionset number Groupname objdict grpdict)
    (setq objdict (namedobjdict))
    (setq grpdict (dictsearch objdict "ACAD_GROUP"))
    (if (setq selectionset (ssget "_:L"))
      (progn
        (setq number    1
              Groupname (strcat "DENKI" (itoa number))
        )
        (while (member (cons 3 Groupname) grpdict)
          (setq Groupname
                 (strcat "DENKI" (itoa (setq number (1+ number))))
          )
        )
        (command "_.-group" "c" Groupname "" selectionset "")
      )
      (princ)
    )
    (princ)
  )
  

  • 最初にこれを作った時、ループの 2 回目にグループを作る際、必ず「定義が重複する」と返してくる。
  • なんでか？とさんざん考えましたが、結果は簡単でした。 先頭文字の "DENKI" を "Denki" にしていたためでした。
  • dict 内を探すとき、「DENKI1」と「Denki1」は区別されるようですが、実際に -group でグループ化する場合、「DENKI1」と「Denki1」は同じになります。
  • 最初にグループ化する場合、「Denki1」という名前を付けても、実際には「DENKI1」で登録されます。
  • 2回目にグループ名の重複を検索する場合、dict の中に「DENKI1」は有っても、「Denki1」は無いと判断するため、「Denki1」という名前が作られ、結局グループ化で定義が重複と言われてしまう。
  • なぜこれに気が付かなかったかというと、別に作ったブロックを作成する LISP で「tblsearch」を使ったときは、「DENKI1」を「Denki1」と見なしてくれたからです。 例えば、以下のように、「DENKI5」の次に「Denki6」というブロックを登録してくれました。

    (2 . "DENKI1") 
    (2 . "DENKI2") 
    (2 . "DENKI3") 
    (2 . "DENKI4") 
    (2 . "DENKI5") 
    (2 . "Denki6") 
    

    同じような「tbl」と「dict」でも違うんですね。
  • 名前を作る場合は、注意するようにします。

• このページのトップに戻る

13. append で LIST に値を追加する LISP

• 考え方が正しいか分かりませんが、AutoLISP で言う LIST というのは、値の集合という点では「配列」に似ていると思います。
• 作られた LIST には値を追加することができる。 そのときには、append を使います。
• AutoCAD の Help だとこうです。

  (append [list ...])
  
  Examples
    Command: (append '(a b) '(c d))
    (A B C D)
    Command: (append '((a)(b)) '((c)(d)))
    ((A) (B) (C) (D))
  

• 下記の LISP をループの中に入れ、どんどん LIST に値を追加することを考えました。
  A は LIST で、B は LIST に追加する値。

  (setq A (append A B))
  

  しかしエラーです。引数の型がちがうらしい。 確かにちがう。 append ではなく、list にすると、どんどん追加されますが、結果はカッコだらけです。 おまけに最初は A という LIST がないので nil になります。 それはそうだ。

  (setq A (list A B))
  
  結果例
  ((((nil <図形名: 22beb230>) <図形名: 22bec070>) <図形名: 22beb1f0>) <図形名: 22bebcf0>) 
  

• 悩んだ結果、こうなった。

  (setq A (append A (list B)))
  
  結果例
  (<図形名: 22bdc9b0> <図形名: 22bdd0b0> <図形名: 22bdc830> <図形名: 22bdc270>) 
  

  list を使って、追加する B を A と同じ型にしたら良いと理解しています。
  結果例の list の最初に nil が格納されていないのを見ると、最初に A という list を作らなくても良さそう。
• あと、気が付いたのは、BricsCAD や IJCAD で出力される DXF コード内の名前がちょっと違っていた。
  1. IJCAD では、<図形名: xxxxxxxx>
  2. BricsCAD では、<Entity name: xxxxxxxx>
  3. JDRAF では、<EName: xxxxxxxxxxxxxxxx>

• このページのトップに戻る

14. Group 化された図形の全長を出す LISP で困ったこと

• 図形が Group 化されていて、その Group毎の長さをまとめて集計する LISP を使っています。
• 集計の対象になるオブジェクトは、LINE、 LWPOLYLINE としています。 また、その手順は以下としています。
  1. GroupName を "ACAD_GROUP" から順番に取得
  2. GroupName 毎の Entity Data を調べる
  3. その Entity Data から(340)情報を抜きだして List を作る
  4. その List を基に Group 内の図形長を集計
• GroupName を調べるには、dictsearch を使い、その GroupName から そのグループの Entity 情報を取得します。

  (setq xxxx (reverse (dictsearch (cdar [GroupName辞書]) [調べる GroupName])))

• これで得られる Group のEntity 情報の例が以下です。 reverse を指定しているので、情報の順が逆になっています。

  ((340 . <EName:  0000000013cd5cd0>) (340 . <EName:  0000000013cd9cc0>) (340 . <EName:  0000000013cd55e0>) (340 . <EName:  0000000013cd55b0>) (340 . <EName:  0000000013cd9cc0>) (340 . <EName:  0000000013cd55e0>) (340 . <EName:  0000000013cd55b0>) (71 . 1) (70 . 0) (300 . "") (100 . "AcDbGroup") (330 . <EName:  0000000013c25880>) (102 . "}") (330 . <EName:  0000000013c25880>) (102 . "{ACAD_REACTORS") (5 . "5B1D") (0 . "GROUP") (-1 . <EName:  0000000013cda680>)) 

• 上の中の (340) で示されているものが図形の情報です。 ここから (340) の情報だけをまとめた List を作ると下記のようになります。

  (while (setq [(340)のデータ] (assoc 340 [Group のEntity 情報]))
      (setq [追加する(340)のデータ] (cdr en))
      (setq [List 名] (append [List 名] (list [追加する(340)のデータ])))
      .......
  )
  List 結果 :
  (<EName:  0000000013cd5cd0> <EName:  0000000013cd9cc0> <EName:  0000000013cd55e0> <EName:  0000000013cd55b0> <EName:  0000000013cd9cc0> <EName:  0000000013cd55e0> <EName:  0000000013cd55b0>)

• これを見ると、何か変です。 同じ内容の (340) がタブっています。 例えば、<EName: 0000000013cd55e0> です。
• 調べてみると、Group 化した図形の中に、INSERT（ブロック図形）が含まれていると、こんな出力になるようです。 LINE と LWPOLYLINE だけなら、問題ないです。 「Group 化するときは LINE と LWPOLYLINE だけ」気を付けていたのですが、どうも気持が悪いです。 それにケーブルの場合は、ブロック図形になっているケーブル記号もいっしょに Group 化しておいた方が分かりやすい。
• そこで、Group 化するときに同じ(340)のデータは入れないことを考えたが、Find とか Search とか、色々考えてみた。 悩んでしまって、困ったなあと思ったが、結局よく使っていた member を使うだけのことだった。

  (while (setq [(340)のデータ] (assoc 340 [Group のEntity 情報]))
      (setq [追加する(340)のデータ] (cdr en))
      (if (= nil (member [List 名] [追加する(340)のデータ]))
          (setq [List 名] (append [List 名] (list [追加する(340)のデータ])))
      )
      .......
  )
  List 結果 :
  (<EName:  0000000013cd5cd0> <EName:  0000000013cd9cc0> <EName:  0000000013cd55e0> <EName:  0000000013cd55b0>)

• これで(340)が重複しない List が出来上がったので、ここから、LINE、LWPOLYLINE、INSERT で条件づけて長さを調べればよくなった。 でもよく考えると、CIRCLE とか ARC とかの条件も入れておいた方が良いか。
• なんだかんだと「member」は役に立つなあと思いました。

• このページのトップに戻る

15. 円弧・ARC の長さを出す

• LINE や LWPOLYLINE の長さを出す Lisp を作っていたが、LWPOLYLINE が分解された場合、もしかしたら一部が ARC になってしまう場合があるので、ARC の長さも考えるようにした。 そのとき、ラジアン = θ の考え方について少し考えてしまった。
• 円弧の長さを導く公式や解き方は色々あるようですが、DXF グループコードでは角度がラジアン表記になっているので、次の公式を使ってみる。

  円弧の長さ l = 2πr × (θ/2π)

• DXF グループコードで必要なデータは、下記の例のようです。Entity の判断をするなら、(0 . "ARC")も必要。
  • (40 . 3.0) ・・・半径 r
  • (50 . 0.0) ・・・始点のラジアン θs
  • (51 . 4.71238898) ・・・終点のラジアン θe
• 公式の r はグループコード 40 の値。上記の例では 3.0�o。
• θはラジアンの差になりますが、始点θs と 終点θe、どちらの値が大きいか考えないといけない。
  • 終点が大きいときは、単純に 終点θe - 始点θs = θ
    （上記の例だと、4.71238898 - 0.0 = 4.71238898）
  • 始点が大きいときは、(始点θs - 終点θe) × 2π の絶対値 = θ
• 以上の r と θ を上記の公式にあてはめる。 公式も、実際には 2 が消えるので下記のように単純になる。

  円弧の長さ l = πrθ/2

• このページのトップに戻る

16. DWG to PDF で出力した PDF の 色がうすい

• 普段使っている AutoCAD LT 2013 には、LINE や「マルチシート DWF をパブリッシュ...」という、大変便利なメニューがあります。
• これは、出力するファイルやそのシートを指定して、設定したページ設定で連続出力してくれるものです。
• DWF ファイルの他に、PDF や普通のプリンタに出力できて、PDF の場合は一つのファイルにまとめてくれます。
• PDF の場合、PDF 出力するためのプロッタが必要になりますが、AutoCAD では「DWG to PDF」というプロッタが入っていて、これを使えば、Adobe Acrobat などの PDF 主力用ドライバーはいりません。
• しかし、この「DWG to PDF」で作った PDF ファイルの見た目がどうも... 例えばこれです。

  

  上の画像は、PDF ファイルを Adobe Acrobat Reader で開いたものです。 1024×768 のモニターに表示した画面をキャプチャしました。 印刷スタイルには標準の「monochrome」を使用。 直線以外がうすく見えます。 特に右上の直線やカーブが混ざったものは、線の太さの設定が変？と疑われてもしかたがない。 もちろんそんなことはなくて、ズームインしたり、紙に印刷するとちゃんとしています。
• もとになった DWGファイルはこういうもの。

  

• これを Windows に入っている「Microsoft PDF」で印刷してみたらこうなった。

  

  線が直線も曲線も斜め線も、くっきり見えます。
• 普段は「DWG to PDF」で出力したものを提出していますが、場合によってはこの見栄えについて指摘されたりします。 つまり「見栄えがおかしい」＝「CAD上の線設定やレイヤ設定の不備」と見られてしまうのです。
• Adobe Acrobat Reader の設定で「ラインスムージング」とかの設定を外したりすると、うすくならずに見えるのですが、質がどうにも。 カクカクでいけません。 この設定変更で満足される方はいなさそう。

  

• どういったときにこうなるかというと、こんな結果になった。
  1. 「DWG to PDF」の場合は、「〜パブリッシュ...」による連続印刷でも、普通に「印刷...」から一枚ずつ印刷しても、うすくなる。
  2. 「Microsoft PDF」の場合は、「〜パブリッシュ...」による連続印刷で、全部または一部のページがうすくなる。 「印刷...」から一枚ずつ印刷した場合は、濃くなると言うか正常に見える。
  3. 連続印刷で、一部のページがうすくなる場合、それは DWG ファイルが 2枚以上のシートで構成され、2枚目以降がうすくなる場合が多い。 1枚目のシートだけがちゃんと見える。
  4. 「Microsoft PDF」の代わりに、フリーの PDF ドライバーを使って印刷した場合、「Microsoft PDF」と同じような結果になった。
  5. PDF のオリジナルである Adobe Acrobat のドライバーは持っていなかったので試していない。なぜなら高いし...
• そこで、「DWG to PDF」の出力が精細過ぎるのかと思い、そのプロパティで解像度を変更して、「印刷...」から PDF に出力してみた。

  オリジナル設定
  

  400 dpi にしてみる
  

  見た目はあまり変わらない。
  

  300 dpi にしてみる
  

  くっきりしてきましたか？。
  

  200 dpi にしてみる
  

  かなり濃くなった。
  

• 解像度の変更でくっきりになったが、「〜パブリッシュ...」で解像度を変更したページ設定を割り当てて連続印刷してみたら、やっぱりうすかった。 解像度を小さくすると、Adobe Acrobat Reader 上でズームインしても線の太さが細い。 最大 6400% にしてオリジナルの設定で出力したものと比較すると、太さが全然ちがう。
• 「DWG to PDF」のプロパティを変更して見た目が変わるのは分かりましたが、「〜パブリッシュ...」の連続印刷ではどうしてもくっきりした PDF にならない。
• パブリッシュのオプションで、「マルチシート」ではなく「シングルシート」で一枚ずつ出力するようにしても、うすく出てしまう。 「Microsoft PDF」でも変わらずうすくなる。 状況によるのだろうか。
• しかたがないので、「Microsoft PDF」で一枚ずつ「印刷...」で PDF にして、後でまとめることにしました。 これがいちばん確実そう。
• しかし「Microsoft PDF」って、ファイル名が日本語だと、埋込のファイル名が文字化けするようですが、ばらばらの PDF ファイルを結合すると、それは消えてしまうようなので気にしないことにした。
• とにかく「〜パブリッシュ...」がもうちょっとうまく動いてくれればなあ、とか思いながら、自分の環境のせいだったら悲しい。
• ＜追記1＞
  良いところは、PDF の保存先を選ぶダイアログが Windows 仕様なので、保存場所や保存名を指定しやすいところ。 ただ、この PDF っていうのは、どこのベンダーのものに限らず、プリントする度にデータを吸い取られているような気がしたりするのは心配しすぎか。
• ＜追記2＞
  ふと思ったが、メモリーが足りないんだろうか。 今は Windows10 Pro 64bit で 6GB メモリー。 もしかすると連続印刷の場合は、もっとメモリーが必要なのか。 といっても、今の PC の仕様は、8GB までだが。

• このページのトップに戻る

17. 寸法文字を寸法線をまたいで表示する

• 寸法線の文字。

  

• カッコの部分の手前で改行するとこうなる。

  

• 寸法線をまたがせたいと思って、寸法線のプロパティで「フィット」→「寸法線の移動」→「寸法線を移動、引出線なし」に設定して文字を移動するとこうなる。

  

• またがった部分が消えてしまうので、線を引いたりする・・・

  

• しかし、これではかっこわるすぎる。 このときは、改行文字の \P の代わりに \X にすると、寸法線を消さずにまたいでくれる。

  

  

• このページのトップに戻る

18. 【CADではないです】HTML 内にサーバーのテキストファイルを表示させる

• Web ブラウザに表示した HTML 内にサーバーのテキストファイルを表示したいときによく使うのは、サーバとのHTTP通信を行う XMLHttpRequest です。
• XMLHttpRequest でサーバー上のファイルを読み込んで .innerHTML で HTML に記述されている、<div id="ID名"></div> の中にファイル内容を表示させます。
• このとき、何もしないと改行を無視して読み込まれます。
• 数行なら問題ないのでしょうが、長いログファイルとかだと見づらいに決まってます。
• よくあるのは、.match で読み込んだファイル内の改行コードを探して .repalce で HTML のタグ <br> に置き換えることだと思います。
• その他、ログファイルとかだと等幅フォントの方が見やすいので HTML のタグでフォントも指定しなくてはなりません。
• しかしふと考えると、HTML には見た目通りに表示させる <pre></pre> があったではないか？
• そこで <div> タグを <pre> で囲んで <pre><div id="ID名"></div></pre> とすると、で囲むと見た目通りのログファイル表示になりました。

• このページのトップに戻る

---

光回線

サーバー・ドメイン

---

※本ページのイラスト・イメージは、プリントアウトファクトリー様 (https://www.printout.jp/) のクリップアートを使用しています。

Copyright(c) 有限会社 岡田電工 Okada Denko Ltd. All Rights Reserved.

HP開設 2003年
2015年10月
2015年11月
2015年12月
2016年1月
2016年4月
2016年5月
2016年6月
2016年7月
2016年12月
2018年12月