« 2011年3月 | トップページ | 2011年5月 »

2011年4月26日 (火)

形鋼を斜面でカット2

SketchUp専用掲示板の話題からですが、
以前、解説した形鋼を斜面でカットする方法を再考してみました。 Start

Cut

| | コメント (5) | トラックバック (0)

2011年4月16日 (土)

csvファイルのインポート

Excelブックを開く時、同一フォルダ内の csvファイルをインポートするVBAマクロです。
マクロ名"Auto_Open()"は、ファイルをオープンすると、マクロを実行します。

注)コメント行(先頭に ' )は、デフォルト設定なので削除しても動作します。
--------------------
Sub Auto_Open()
'   "アクティブシート/セル指定"
    Worksheets("Sheet1").Activate
    Range("A1").Activate
'   "外部データのインポート"
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & ActiveWorkbook.Path & "\sample.csv", Destination:=Range("A1"))
        .Name = "sample"
'       .FieldNames = True
'       .RowNumbers = False
'       .FillAdjacentFormulas = False
'       .PreserveFormatting = True
'       .RefreshOnFileOpen = False
'       "データ更新"
        .RefreshStyle = xlOverwriteCells
'       .SavePassword = False
'       .SaveData = True
'       "列幅自動調整なし"
        .AdjustColumnWidth = False
'       .RefreshPeriod = 0
'       .TextFilePromptOnRefresh = False
'       .TextFilePlatform = 932
'       .TextFileStartRow = 1
'       .TextFileParseType = xlDelimited
'       .TextFileTextQualifier = xlTextQualifierDoubleQuote
'       .TextFileConsecutiveDelimiter = False
'       .TextFileTabDelimiter = False
'       .TextFileSemicolonDelimiter = False
'       "カンマ区切り"
        .TextFileCommaDelimiter = True
'       .TextFileSpaceDelimiter = False
'       .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
'       .TextFileTrailingMinusNumbers = True
'       "クエリテーブル更新"
        .Refresh BackgroundQuery:=False
'       "クエリテーブル削除"
        .Delete
    End With

| | コメント (0) | トラックバック (0)

2011年4月 3日 (日)

反転移動/複写

左右/上下方向に反転移動/複写する外部変形です。  download
寸法値は、上下反転で寸法線の上側、左右反転で左側になります。

Mirror

注) ご利用の環境で十分動作確認を行ない、自己責任でご使用ください。

<使用方法>
◇範囲選択から、左AM0時「確定 基点(free)」を実行。
◇水平線または、垂直線を(L)クリック。

<注意事項>
1.反転は、左右/上下方向に適用。。
  基準線に水平/垂直以外の線を選択した場合は、未実行となります。
2.ブロック図形は、選択できません。
3.日影 真北データ/日影 建物高さ/2.5Dデータは除外してください。
  選択した場合は、未実行となります。
4.寸法図形解除した累進寸法は、対象位置に反転できない場合があります。
5.文字は、一部の方向を除いて文字基点が反転します。
(環境設定ファイルのMOSETの8番目が1で設定されている場合)

| | コメント (0) | トラックバック (0)

« 2011年3月 | トップページ | 2011年5月 »