C# と VB.NET の質問掲示板

■No103817 (魔界の仮面弁士 さん) に返信
> ■No103815 (shiro さん) に返信

魔界の仮面弁士　様

いつもアドバイス有難うございます。
早速次のように実施しました。


    Private startPoint As Point
    Private endPoint As Point

MouseDown

          '耐力壁

            Case "wall"

                startPoint = SnapToGrid(e.Location)

MouseMove

           Case "wall"

                If isPlacing Then

                    endPoint = SnapToGrid(e.Location)

                    PictureBox1.Invalidate()

MouseUp

        isPlacing = False

        Dim newWall As New Wall(startPoint, endPoint) '新しい壁を準備

        wallList.Add(newWall) 'それを壁一覧に加える

        'wallList.Add(New Wall(startPoint, endPoint))

        '剛性値を別の値とするために

        'wallList.Add(New Wall(startPoint, endPoint, 2.2))

        PictureBox1.Invalidate()

Paint

        For Each w In wallList
            e.Graphics.DrawLine(pen7, w.StartPoint, w.EndPoint)
        Next

    Public Sub ExportToCSV(pillarList As List(Of Pillar), wallList As List(Of Wall))

        ' ファイルパスを指定
        Dim filePath As String = "export.csv"
        Using writer As New StreamWriter(filePath)
 
            writer.WriteLine("Type,Index,X,Y,Stiff")
 
            ' 柱データを書き込み
            For Each pillar In pillarList
                writer.WriteLine($"C,{pillar.Index},{pillar.X},{pillar.Y}")
             Next

            ' 壁データを書き込み
            For Each wall In wallList
 
                writer.WriteLine($"W,{wall.Index},{wall.StartPoint},{wall.EndPoint},{wall.Stiffness}")

            Next
        End Using

その結果、コンパイルエラーもなく、次のとおり出力されました。
気になるのがWの1〜4が出力されていることでした。
関係ない出力だと思うのですが。

W5~8は柱のCと座標が整合していました。


Type	Index	X	Y	Stiff		
C	1	40	40			
C	2	40	80			
C	3	80	80			
C	4	80	40			
W	1	{X=0	Y=0}	{X=0	Y=0}	2.5
W	2	{X=0	Y=0}	{X=0	Y=0}	2.5
W	3	{X=0	Y=0}	{X=0	Y=0}	2.5
W	4	{X=0	Y=0}	{X=0	Y=0}	2.5
W	5	{X=40	Y=40}	{X=40	Y=80}	2.5
W	6	{X=40	Y=80}	{X=80	Y=80}	2.5
W	7	{X=80	Y=80}	{X=80	Y=40}	2.5
W	8	{X=80	Y=40}	{X=40	Y=40}	2.5


> ＜ひとりごと＞
> 
> 建築構造体としての柱というニュアンスであれば、Pillar クラスではなく Column クラスの方が単語的に望ましいかな…。
> でも Column だと、グリッドや CSV などの「Row/Column」の意味に混同されそうで、命名的に悩んでしまった。
> 
> Column 　⇒ 柱、あるいは建築物の中で装飾的・構造的に並んでいる縦の柱
> Pillar 　⇒ 建物の主要構造を支える支柱、記念碑や大黒柱などといった中心的存在あるいは意匠的に独立した支柱
> Pier 　　⇒ 建築・土木分野の専門用語で「柱状の構造物」「基礎・橋脚・大型の柱」を指す
> Post 　　⇒ 支柱・杭、小さい柱や看板の支え
> Pole 　　⇒ 細長い棒・支柱、電信柱や旗竿など
> Stanchion⇒ 鉄パイプなどの支柱・枠、工事現場の柵や支柱
> Support　⇒ 支えとしての支柱、構造体のサポート部材
> Beam 　　⇒ 横向きの梁、水平な構造体
> 
> 方眼上に配置するための柱なので、GridColumn とか? こちらは WPF の Grid.Column を連想してしまいそう。
> 
> StructuralColumn クラスという名前にすれば明確にはなるけれど、それだと Wall に比べて名前が冗長すぎるか。
> 
> Pier であれば、Pillar と Column の中間的なニュアンスとなり、Row/Column との混同も避けられるけれど、
> そもそも専門用語過ぎて伝わらないだろうなぁ…。(一般語としての Pier は、桟橋・埠頭の意味で使われる)


Pillarは地下の杭などに使われます。
上部構造の柱はcolumnが使われます。

今回は動かせることが目的でしたので、そのまま使用していました。