izawaLISP

Bricscad V17 にて動作を確認しています。
 ・2018/09/17 7seg.lsp を追加


■7seg.lsp 2009

 7SEG : デジタル指示調節計の 7 セグメント LED 文字を作成します。

 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)


■BTRIMVX.lsp Ver.1.24 2008/09/27

 ブロックの背景線分をカット、結合するします。
 VisualLISP の IntersectWith、getBoundingBox を使って、BRTIM20.lsp とほぼ同等の機能を提供しています.
 回路設計用 NSQ.lsp では対象のブロックが専用でしたが、汎用ブロックに対してほぼ同等の機能を提供しています.
 NSQ.lsp 同様、選択する図形によって、処理内容が変わります.

 BTR
  ブロックの背景の線分をカット
 BMV
  < BLOCK > ブロックの周囲の線分を結合し、移動後交差する線分をカット
  < LINE > 線分に繋がるブロック、線分を移動
  < TEXT > 文字列を移動
 BCP
  < BLOCK > ブロックを複写し、交差する線分をカット
  < LINE > 線分に繋がるブロック、線分をコピー
  < TEXT > 文字列をコピー
 BCT
  < BLOCK > ブロックに交差する線分を部分削除
  < LINE > 線分を部分削除(交点判断あり)
  < TEXT > 文字列を削除
 BLN
  線分を作成し、それに交差するブロックの背景線分をカット(交点処理付き)
 BLNN
  線分を作成し、それに交差するブロックの背景線分をカット
 BJT
  < BLOCK > ブロックの周囲の線分を結合
 LJT
  < LINE > 複数線分を一括で結合
 BRY
  < LINE > 線分、ブロックの間隔を均一に(機能不十分)
  < BLOCK > 線分、ブロックの間隔を均一に(機能不十分)
 BKP
  指示座標にブロックがあれば削除、無ければ交点シンボルを挿入
 BMX
  複数ブロックのX座標を指示座標に変更
 BMY
  複数ブロックのY座標を指示座標に変更

 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)


■PDIST.lsp 2013/01/12

 CAD 上に現場の写真(制御盤の正面図とか)を張り付けて、寸法を測るLISPです。
 内部で、4点補正を行っています。画像自体はそのままで変わりません。

 CAD上に写真を貼り付け、実際には四角形である部分をポリライン(LWPOLYLINE)で
 左上を始点に右回りで、4点指示し、"C"オプションで閉鎖します。

 PDINIT コマンドを実行し、先に描いたポリラインを選択し、四角形の巾と高さを入力します。
 PDIST コマンドを実行し、2点を指示すると、2点間の距離と偏差が表示されます。

 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)


■PLEM.lsp 2015/08/31

 ポリライン ( LWPOLYLINE ) の直線部分を移動します。
 直線部分の座標を変更しているだけなので、直線部分が交差するように移動したとき、
 円弧は正しく追従しません。

 PLEM : ポリライン ( LWPolyline ) の直線部分を移動します。
 PLEJ : 2つのポリライン ( LWPolyline ) の直線部分を結合します。

 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)


■SCXY.lsp 2009/04/02

 SCXY : 選択図形のX尺度、Y尺度を変えます。

 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)


■TEXCEL.lsp 2008/12/09

 TEXCEL : 表形式の文字列を編集します。
 編集する列数を入力。スタートの左上文字列を選択します。
 指定した回数だけ横 (X) 方向に文字列を検索し、編集します。
 一行の編集が終わると、スタート位置の下 (-Y) 方向の文字列を検索し、編集します。

 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)


■TXUP.lsp 2011/03/14

 TXUP : 数字を含んだ文字列をカウントアップしながらコピー
 TXRP : 文字列置換 (検索文字列:ex "A*"=先頭一致 "A"=部分一致 "*A"=末尾一致)
 TXPLS : 数字を含んだ文字列を加算、減算
 TXPLS2 : 数字を含んだ文字列を加算、減算 (+、±、- の符号対応版)

 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)


■ZENKANA.lsp 2010/03/21
 ZenKana : 半角カタカナを全角に変換
 HanSuji : 全角数字を半角に変換
 HanDai : 数字、アルファベットを含む代替文字を半角に変換
 ZenToHan : 数字、アルファベットだけを半角に変換

 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)


■USO_TOOL.lsp 2009/04/11

 等角図(等測投影図)作成支援LISP

 IsoMak : 選択図形を等角図(等測投影図)に変換
 IsoDim : 寸法作成
 IsoCir : 等角円を作成
 IsoArc : 等角円弧を作成
 IsoArQ : 1/4 等角円弧を指示したコーナーに作成
 IsoBegin : 等角図モード開始.等角図用の文字スタイル、寸法スタイルの作成
 IsoEnd : 等角図モード終了.グローバル変数の解放(初期化)


 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)


■USOX.lsp 2010/01/23

 USOX : 選択した図形を任意の角度の不等角図に変換します.

 ダウンロード (右クリックで 「対象をファイルに保存」 してください。拡張子が変わった場合は、.lsp に変えて下さい)