描画プロパティ

--------------------
 、株式会社参加無料 = copy_wir_colをtrueに         - ワイヤフレームの色を描画するために
 、株式会社参加無料 = copy_matをtrueに             - 材料を学ぶために
 、株式会社参加無料 = COPY_NAMEをtrueに         - 名前を描画するために
 、（株）フリーは参加 copy_modify = trueに         - 吸引修飾子
 グローバル copy_layer = trueに         - 吸着層
 -------------------- 
のFn FN_copyset = - 吸引性セッター
（
    してみてください（destroydialog copyset_Roll）キャッチ（）
    copyset_Roll rollOutが" 関連性"幅：110、高さ：150
    （
        チェックボックスのchk_wirecolor " 関連する色" POS：20である、9。】幅：70高さ：20である、
        チェックボックスchk_material " 関連資料" [：POS 20は、30 ]幅：70高さ：20である、
        チェックボックスのchk_name " 統一名称" POS：[ 20であり、51は】幅：70高さ：20である、
        チェックボックスchk_modify " 修飾子関連する" POS：[ 20であり、72 ]幅：80高さ：20である
        チェックボックスchk_layer " 統合層" POS：[ 20は、93の幅]：70高さ：20である 
        ボタンbtn_ok " OK " POS：[ 20は、120 ]幅：70高さ：25
        
        copyset_RollオープンのDO
        （
            chk_material.state = copy_mat
            chk_wirecolor.state = copy_wir_col
            chk_name.state = COPY_NAME
            chk_modify.state = copy_modify
            chk_layer.state = copy_layer
        ）
        chk_material変更された状態で行う
            copy_mat = 状態
        chk_wirecolor変更状態で行う
            copy_wir_col = 状態
        chk_name変更状態で行う
            COPY_NAME = 状態
        chk_modify変更された状態で行う
            copy_modify = 状態
        chk_layer変更状態で行う
            copy_layer = 状態
        btn_okに押されたDOを
            destroydialog copyset_roll
    ）
    createDialogをcopyset_Rollスタイル：＃（＃style_toolwindow、#style_sysmenu）
）
FN_copyproのFn = - プロパティを描きます
（
    obj_pick = pickObject（）
     の場合（selection.count！= 0）と（obj_pick！= 未定義）その後、
    （
        IF copy_wir_colその後、（$ .wirecolor = obj_pick.wirecolor） - ワイヤフレームのカラー
         IF copy_matその後、（$ .material = obj_pick.material） - 素材
         IF COPY_NAMEそして- 統一された名前
        （
            以下のための M = 1 selection.countに行う（選択[M] .nameの= 固有名obj_pick.name）
        ）
        IFは、その後、copy_modify - すべての修飾子を学ぶために
        （
            もし obj_pick.modifiers！= 0 その後、
            （
                以下のための M = 1 selection.countへドゥー 
                （
                    
                    以下のための U = obj_pick.modifiers.countに1によって- 1  ない  試み（addModifier選択[M] obj_pick.modifiers [U]）キャッチ（）
                ）
            ）
        ）
        IF -その後、copy_layer 描画層
        （
            vLayer = obj_pick.INodeLayerProperties.layer
             用電子で選択DO vLayer.addNode E
        ）
    ）
    それ以外（メッセージボックス「オブジェクトを選択してください！」）
）