約 3,086,697 件
https://w.atwiki.jp/solidworksapi/pages/16.html
表示 再表示 最大表示 回転1 回転2 イメージ品質 平面表示切替 すべての部品を表示 選択した部品のみ表示 再表示 Sub Refresh() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objModView As SldWorks.ModelView Dim rect As Variant Set rect = Nothing Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objModView = objModelDoc.ActiveView Call objModView.GraphicsRedraw(rect) End Sub 上へ 最大表示 Sub FitView() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Call objModelDoc.ViewZoomtofit2 End Sub 上へ 回転1 Const PI As Double = 3.14159265358979 Const PI_Radian As Double = 180 Function Radian(ByVal Degrees As Double) As Double Radian = (PI / PI_Radian) * Degrees End Function Function Degrees(ByVal Radian As Double) As Double Degrees = (PI_Radian / PI) * Radian End Function Sub ViewRotate1() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc 矢印キー操作時の回転角度設定 Call objApp.SetUserPreferenceDoubleValue(swUserPreferenceDoubleValue_e.swViewRotationArrowKeys, Radian(15)) 画面下に向かって回転(矢印キー下と同等) objModelDoc.ViewRotateminusx 画面左に向かって回転(矢印キー左と同等) objModelDoc.ViewRotateminusy 画面上を右に回転(ALT+矢印キー左と同等) objModelDoc.ViewRotateminusz 画面上に向かって回転(矢印キー上と同等) objModelDoc.ViewRotateplusx 画面右に向かって回転(矢印キー右と同等) objModelDoc.ViewRotateplusy 画面上を左に回転(ALT+矢印キー右と同等) objModelDoc.ViewRotateplusz 画面下に向かって90度回転 objModelDoc.ViewRotXMinusNinety 画面上に向かって90度回転 objModelDoc.ViewRotXPlusNinety 画面左に向かって90度回転 objModelDoc.ViewRotYMinusNinety 画面右に向かって90度回転 objModelDoc.ViewRotYPlusNinety End Sub 上へ 回転2 Sub ViewRotate2() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objModView As SldWorks.ModelView Dim OrientationValue As MathTransform Dim dblArray() As Double Dim dblZenithAngle As Double Dim dblAzimuth As Double Dim dblZ_DirectionX As Double Dim dblZ_DirectionY As Double Dim dblZ_DirectionZ As Double Dim dblWork As Double Dim rect As Variant Set rect = Nothing Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objModView = objModelDoc.ActiveView Set OrientationValue = objModView.Orientation3 dblArray = OrientationValue.ArrayData 等角投影の設定 方位角(Z軸) dblAzimuth = -45 dblWork = Tan(Radian(30)) 天頂角 dblZenithAngle = -1 * Degrees(Atn(dblWork / Sqr(-dblWork * dblWork + 1))) Z方向(X 右方向=+1 Y 上方向=+1 Z 手前方向=+1) dblZ_DirectionX = Sgn(dblAzimuth) dblZ_DirectionY = Sgn(dblZenithAngle) If dblAzimuth 90 Or dblAzimuth -90 Then dblZ_DirectionZ = -1 ElseIf dblAzimuth 90 And dblAzimuth -90 Then dblZ_DirectionZ = 1 Else dblZ_DirectionZ = 0 End If Z軸角(Z,X,Yの順に設定が優先される) dblArray(6) = Sin(Radian(Abs(dblAzimuth))) * dblZ_DirectionX dblArray(8) = Sin(Radian(Abs(dblZenithAngle))) * dblZ_DirectionZ dblArray(7) = Abs(dblArray(6) * dblArray(8)) * dblZ_DirectionY X軸角 dblArray(0) = dblArray(6) * -1 dblArray(1) = dblArray(7) dblArray(1) = 0 dblArray(2) = dblArray(8) dblArray(2) = 0 Y軸角 dblArray(3) = 0 dblArray(4) = Cos(Radian((dblZenithAngle)) * dblZ_DirectionY * -1) dblArray(5) = dblArray(8) dblArray(5) = 0 OrientationValue.ArrayData = dblArray objModView.Orientation3 = OrientationValue Call objModelDoc.ViewZoomtofit2 Call objModView.GraphicsRedraw(rect) End Sub 上へ イメージ品質 Sub ChangeImageQuality() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objExtension As SldWorks.ModelDocExtension Dim dblCurrent As Double Dim dblMax As Double Dim dblMin As Double Dim dblNew As Double Dim dblUnit As Double Dim intLevel As Integer Const intDivisions As Integer = 4 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objExtension = objModelDoc.Extension 現在のイメージ品質取得 Call objExtension.GetUserPreferenceDoubleValueRange(swUserPreferenceDoubleValue_e.swImageQualityShadedDeviation, dblCurrent, dblMin, dblMax) dblUnit = (dblMax - dblMin) / CDbl(intDivisions) intLevel = ((dblMax - dblCurrent) / dblUnit) + 1 intLevel = Val((InputBox("イメージ品質(1~" (intDivisions + 1) ")", "イメージ品質設定", intLevel))) If intLevel = 1 Then dblNew = dblMax ElseIf intLevel intDivisions Then dblNew = dblMin Else dblNew = dblMax - (dblUnit * (intLevel - 1)) End If イメージ品質設定 Call objExtension.SetUserPreferenceDouble(swImageQualityShadedDeviation, swUserPreferenceOption_e.swDetailingNoOptionSpecified, dblNew) End Sub 上へ 平面表示切替 アクティブなドキュメントの平面表示を切り換える(アイテムの視認性ではなく、実際の表示・非表示を切り換える) Sub ToggleDisplayPlane() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objExtension As SldWorks.ModelDocExtension Dim objFeatureMgr As SldWorks.FeatureManager Dim objFeature As SldWorks.Feature Dim arrayFeatures As Variant Dim varFeature As Variant Dim objSelectionMgr As SldWorks.SelectionMgr Dim objSelectData As SldWorks.SelectData Dim intFirstItemVisible As Integer 平面のタイプネーム Const swTnRefPlane As String = "RefPlane" Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Call objModelDoc.ClearSelection2(True) Set objExtension = objModelDoc.Extension Set objFeatureMgr = objModelDoc.FeatureManager Set objSelectionMgr = objModelDoc.SelectionManager Set objSelectData = objSelectionMgr.CreateSelectData arrayFeatures = objFeatureMgr.GetFeatures(True) intFirstItemVisible = 0 For Each varFeature In arrayFeatures Set objFeature = varFeature If objFeature.GetTypeName2() = swTnRefPlane Then If intFirstItemVisible = 0 Then intFirstItemVisible = objFeature.Visible End If Call objSelectionMgr.AddSelectionListObject(objFeature, objSelectData) End If Next If intFirstItemVisible = swVisibilityState_e.swVisibilityStateHide Then Call objModelDoc.UnBlankRefGeom Else Call objModelDoc.BlankRefGeom End If Call objModelDoc.ClearSelection2(True) End Sub 上へ すべての部品を表示 Sub ShowAllPart() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Dim objComponent As SldWorks.Component2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set objComponent = objConf.GetRootComponent3(True) Call SelectAllComponent(objComponent) Call objModelDoc.ShowComponent2 Call objModelDoc.ClearSelection2(True) End Sub Sub SelectAllComponent(objAssyComponent As SldWorks.Component2, Optional isApend As Boolean = False, Optional isApendSuppressed As Boolean = False) If isApend = False Then Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Call objModelDoc.ClearSelection2(True) End If Dim arrayObjComp As Variant Dim objCompVariant As Variant Dim objComponent As SldWorks.Component2 If isApendSuppressed Or (objAssyComponent.IsSuppressed = False) Then Call objAssyComponent.Select4(True, Nothing, False) arrayObjComp = objAssyComponent.GetChildren() For Each objCompVariant In arrayObjComp Set objComponent = objCompVariant Call SelectAllComponent(objComponent, True, isApendSuppressed) Next End If End Sub 上へ 選択した部品のみ表示 Sub ShowSelectedPartOnly() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objComponent As SldWorks.Component2 Dim objSelectionMgr As SldWorks.SelectionMgr Dim arraySelectedComponents() As SldWorks.Component2 Dim i As Integer Dim intSelectedCount As Integer Dim intComponentCount As Integer Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objSelectionMgr = objModelDoc.SelectionManager intComponentCount = 0 intSelectedCount = objSelectionMgr.GetSelectedObjectCount2(-1) If intSelectedCount 0 Then For i = 1 To intSelectedCount Set objComponent = objSelectionMgr.GetSelectedObjectsComponent3(i, -1) If Not (objComponent Is Nothing) Then intComponentCount = intComponentCount + 1 ReDim Preserve arraySelectedComponents(1 To intComponentCount) Set arraySelectedComponents(intComponentCount) = objComponent End If Next If intComponentCount 0 Then Call objModelDoc.Extension.SelectAll Call objModelDoc.HideComponent2 Call objModelDoc.ClearSelection2(True) For i = 1 To intComponentCount Call SelectAllComponent(arraySelectedComponents(i), True) Next Call objModelDoc.ShowComponent2 Call objModelDoc.ClearSelection2(True) End If End If End Sub Sub SelectAllComponent(objAssyComponent As SldWorks.Component2, Optional isApend As Boolean = False, Optional isApendSuppressed As Boolean = False) If isApend = False Then Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Call objModelDoc.ClearSelection2(True) End If Dim arrayObjComp As Variant Dim objCompVariant As Variant Dim objComponent As SldWorks.Component2 If isApendSuppressed Or (objAssyComponent.IsSuppressed = False) Then Call objAssyComponent.Select4(True, Nothing, False) arrayObjComp = objAssyComponent.GetChildren() For Each objCompVariant In arrayObjComp Set objComponent = objCompVariant Call SelectAllComponent(objComponent, True, isApendSuppressed) Next End If End Sub 上へ コメント 名前
https://w.atwiki.jp/toho/pages/2183.html
記憶 ~MAIKAZE music works~ サークル 舞風(MAIKAZE) Disc 1 Number Track Name Arranger Vocal Original Works Original Tune Length 01 緑眼のパルスィ~Deep green eyes~ 時音 時音 東方地霊殿 渡る者の途絶えた橋 [5 24] 緑眼のジェラシー 02 散りゆく時-FINAL- 時音 沙紗 飛鳥 東方永夜抄 恋色マスタースパーク [4 54] 03 月夜の華 時音 時音 東方永夜抄 幻視の夜 ~ Ghostly Eyes [5 04] 04 Endless Line 時音 時音 オリジナル [5 05] 05 トワイライト 時音 憐歌 オリジナル [4 38] 06 願いの欠片~snowdrop 時音 沙紗 飛鳥 オリジナル [4 24] 07 散りゆく時(piano version) 時音 沙紗 飛鳥 東方永夜抄 恋色マスタースパーク [4 13] 08 Novel 時音 時音 オリジナル [1 53] 09 トオリアメ 時音 時音 オリジナル [3 07] 10 緑眼のパルスィ~Deep green eyes~ (Off Vocal) 時音 - 東方地霊殿 渡る者の途絶えた橋 [5 23] 緑眼のジェラシー 11 散りゆく時-FINAL- (Off Vocal) 時音 - 東方永夜抄 恋色マスタースパーク [4 57] 12 ⑨線 時音 時音 オリジナル [6 13] Disc 2 Number Track Name Arranger Original Works Original Tune Length 01 六十年目の職務放棄最終裁判 時音 東方花映塚 彼岸帰航 ~ Riverside View [5 03] 六十年目の東方裁判 ~ Fate of Sixty Years 02 我が家の兎は確信犯 時音 東方永夜抄 狂気の瞳 ~ Invisible Full Moon [3 57] 東方花映塚 お宇佐さまの素い幡 03 幻想郷の泉 時音 東方萃夢想 萃夢想 [2 08] 04 フラワリング・ステイ・ナイト 時音 東方花映塚 フラワリングナイト [4 02] 05 私に斬れない物はあんまり無い! 時音 東方花映塚 東方妖々夢 ~ Ancient Temple [3 26] 06 上海月蝶館 時音 東方紅魔郷 上海紅茶館 ~ Chinese Tea [4 39] 07 もうみすちーしか凍らない 時音 東方花映塚 もう歌しか聞こえない ~ Flower Mix [4 49] おてんば恋娘の冒険 08 夜桜 時音 東方妖々夢 幽雅に咲かせ、墨染の桜 ~ Border of Life [4 54] 09 百鬼夜行 時音 東方永夜抄 千年幻想郷 ~ History of the Moon [2 22] 10 渡り舟 時音 東方花映塚 彼岸帰航 ~ Riverside View [4 26] 11 月蝶華想 時音 東方妖々夢 東方妖々夢 ~ Ancient Temple [3 47] 12 東の国の眠らない少女の夜 時音 東方花映塚 風神少女 [4 19] 東方文花帖 東の国の眠らない夜 風の循環 ~ Wind Tour 13 ムーンナイトジャズ 時音 東方永夜抄 ヴォヤージュ1969 [4 13] 14 ミクロファンタジア 時音 東方妖々夢 ネクロファンタジア [4 39] 15 つれづれなるままに 時音 東方花映塚 花は幻想のままに [04 34] 16 そして川となる 時音 東方妖々夢 幽霊楽団 ~ Phantom Ensemble [04 07] 17 鬼と幻の宴 時音 東方萃夢想 御伽の国の鬼が島 ~ Missing Power [03 08] 18 永久の終章 時音 東方永夜抄 Eternal Dream ~ 幽玄の槭樹 [04 19] 詳細 舞風(MAIKAZE)の過去CD・コンプリートアルバム コミックマーケット74(2008/08/16)にて初頒布 イベント価格:1500円 レビュー 今や東方二次創作アニメサークルとしてすっかり著名な舞風の過去作品をまとめた音楽集。 現時点では入手困難なものからの再録が中心なので、最近東方同人に興味をもったような人、東方華想神月~東方天ノ神月以降にサークルのファンになった人にはオススメできる。 出展は以下の通り。 ・月蝶華(サンシャインクリエイション30(2006/01/29)初頒布)・・・ Disc2 Tr.1~7 および Tr.12 ・東方月蝶華想(東方不敗小町2(2006/09/24)初頒布)・・・ Disc1 Tr.3 および Disc2 Tr.8~14 ・エム★ケーサウンズ2007(コミックマーケット71(2006/12/31)初頒布)・・・ Disc1 Tr.4~7 ・東方アニメプロジェクト・予告集(博麗神社例大祭4(2007/05/20)初頒布)・・・ Disc2 Tr.15~18 ・Novel+(博麗神社例大祭4(2007/05/20)初頒布・非プレスCD)・・・ Disc1 Tr.8 および 9 ただし(コンプリートと銘打ってはいるが)、エム★ケーサウンズ2007収録曲の一部や、過去のヴォーカルもののカラオケ音源等は含まれていない。オリジナル曲も入っているので、その辺りが気になる向きはご注意を。 目玉として"渡る者の途絶えた橋/緑眼のジェラシー"のヴォーカルアレンジ(Disc1 Tr.1)が新しく収録されている。これはシンガーソングライティング監督にしてサークル主である時音氏自身がマイクを取り、哀切としたクリーントーンヴォーカルで聴かせる一曲。東方華想神月~東方天ノ神月の流れを汲む、美しくオリエンタルなムードを湛えた逸品である。 全体を通した印象として、やはりサークルの個性と時音氏の堅実なアレンジ能力が光る内容だと言って良い。キャッチーなポップセンスを披露したかと思いきや叙情的なバラードもしれっと歌ってしまう正統派歌唱のヴォーカル曲をはじめ、クラシック、テクノ、民族音楽、ジャズ・フュージョンまでをも守備範囲に含む振幅の広い音楽性など、昔の作品とて決して侮れない良さを持つ楽曲群に改めて驚きを禁じえない。 このサークル特有の"透明感"を一挙に味わうには最適の音楽集だろう。 -- 蝦夷の人 (2009-07-19 21 27 53) 散りゆく時-FINAL-が、ロックマンに使われてそうな感じだなあ。 -- 名無しさん (2012-06-26 21 03 57) 名前 コメント
https://w.atwiki.jp/iwannabethewiki/pages/3392.html
製作者 BaronBlade DL先↓ http //www.mediafire.com/download/8nhyh18j64jc4h7/I+Wanna+Be+the+Inferno.zip
https://w.atwiki.jp/iwannabethewiki/pages/4555.html
製作者 Makedounia DL先↓ http //www.mediafire.com/file/roys5y15nos5fyw/I+wanna+best+the+needle+2.rar
https://w.atwiki.jp/iwannabethewiki/pages/4384.html
製作者 lvyuki DL先↓ http //www.mediafire.com/file/ll91wcv222ctht2/I+wanna+be+the+clarence.zip
https://w.atwiki.jp/toho/pages/5840.html
thE2 サークル Diverse System Number Track Name Arranger Lyrics Vocal Original Works Original Tune Length 01 上白沢慧音の随想 fanfan. 黒岩サトシ fi-fy 東方永夜抄 懐かしき東方の血 ~ Old World [04 24] プレインエイジア エクステンドアッシュ ~ 蓬莱人 02 Instruments naotyu- - - 東方風神録 ネイティブフェイス [04 34] 03 Lunar Dial estha - - 東方紅魔郷 月時計 ~ ルナ・ダイアル [07 23] 04 Polar Night 月代 彩 - - 東方靈異伝 Highly Responsive to Prayers [08 13] 05 Sabbath Syrufit eerie 綾倉盟 東方幻想郷 Break the Sabbath [05 20] 06 Breaks 矢鴇つかさ - - 東方永夜抄 ヴォヤージュ1970 [04 53] 07 Insect Poison REDALiCE - - 東方永夜抄 蠢々秋月 ~ Mooned Insect [04 46] 08 UFO Cruise t+pazolite - - 東方星蓮船 夜空のユーフォーロマンス [04 53] 09 プレインエイジア[Cyber Experiment] 削除 - - 東方永夜抄 プレインエイジア [03 56] 10 ハテナビト コンプ コンプ ランコ 東方紅魔郷 妖魔夜行 [03 28] 11 私達が恋した幻想郷 篠螺悠那 - - 東方風神録 神々が恋した幻想郷 [04 18] 12 Necro Fantasia (ALR Rewind Remix) Masayoshi Minoshima - - 東方妖々夢 ネクロファンタジア [05 57] 詳細 博麗神社例大祭8(2011/03/13)にて頒布予定 (東北地方太平洋沖地震の影響により開催中止) イベント価格:1,000円 ショップ価格:1,260円(税込) Arranger fanfan.:(君の美術館) naotyu- :(studio7.com) estha:(XL Project) 月代 彩:(Hikari + Creative) Syrufit:(Studio “Syrup Comfiture”) 矢鴇つかさ:(Sound Online) REDALiCE:(ALiCE S EMOTiON) t+pazolite:(C.H.S) 削除:(削除された部屋[Deleted room]) コンプ:(豚乙女) 篠螺悠那:(ササラヤ) Masayoshi Minoshima:(Alstroemeria Records) レビュー 名前 コメント
https://w.atwiki.jp/iwannabethewiki/pages/2691.html
製作者 D5ro★ DL先↓ http //www.mediafire.com/download/lzi6czrzvxytwmh/I+wanna+be+the+%E3%81%AF%E3%82%8A%E3%82%93%E3%81%94%21%21.zip
https://w.atwiki.jp/utapri_shininglive/pages/834.html
楽曲情報難易度・ノーツ数 解禁条件 備考 コメント 楽曲情報 曲名 The New World 属性 ドリーム 歌 四ノ宮那月 作詞 上松範康(Elements Garden) 作曲 上松範康(Elements Garden) 編曲 藤間仁(Elements Garden) 難易度・ノーツ数 EASY NORMAL HARD PRO ★ 2 4 7 10 ノーツ数 91 153 317 503 解禁条件 キャンペーン(2018/6/1~2018/6/30) 備考 初出:キャンペーン(2018/6/1~2018/6/30) コメント
https://w.atwiki.jp/akatonbo/pages/2971.html
The distorted world 作詞/タマムシ 今の世界に愛想つかして、別世界へと逃げこんだはいいが、たどり着いた場所は The distorted world 怒りがヨロコビ、喜びがイカリ、泣くことがワラウコトで笑うことがナクコト。 そこで見た夢は、手足をちぎられて、口にその肉片を詰められているわけのわからない夢。 誰かここから出してくれ、出してくれたらなんでもスルカラ…。
https://w.atwiki.jp/gamemusicbest100/pages/3757.html
Otherworld アザーワールド 収録作品:ファイナルファンタジーX[PS2]/ディシディア ファイナルファンタジー[PSP] 歌:Bill Muer 作曲者:植松伸夫 作詞者:Alexander O. Smith ギター:釜木茂一 ベース:平山文昭 ドラム:田辺千尋(藤岡千尋) 概要 ファイナルファンタジーXの冒頭ムービー及びラスボス戦で使用されたBGM。主人公ティーダの父であるジェクトのテーマ曲。 ファイナルファンタジーシリーズ初のデスメタル調の楽曲で、ボーカルのBill Muer氏によるグロウルが特徴的。 また、ムービーで流れる時とラスボス戦では音源が微妙に異なっている。(リマスター版ではムービーでの音源で統一されている) 半熟英雄4の四次元ボイルド戦では植松伸夫氏本人によるアレンジが使用されている。 過去ランキング順位 第6回みんなで決めるゲーム音楽ベスト100 670位 第8回みんなで決めるゲーム音楽ベスト100 838位 第9回みんなで決めるゲーム音楽ベスト100 688位 第10回みんなで決めるゲーム音楽ベスト100 536位 第11回みんなで決めるゲーム音楽ベスト100 682位 第14回みんなで決めるゲーム音楽ベスト100 884位 第16回みんなで決めるゲーム音楽ベスト100 734位 第17回みんなで決めるゲーム音楽ベスト100 540位 みんなで決めるスクウェア・エニックス名曲ベスト100 271位 第2回みんなで決めるスクウェア・エニックス名曲ベスト100 152位 みんなで決めるゲームソングBEST100 155位 第2回みんなで決めるゲームソングBEST100 61位 第3回みんなで決めるゲームソングBEST100 76位 みんなで決めるラストバトルBGMベスト100 57位 FINAL FANTASY BGMランキング 96位 第2回みんなで決めるラストバトルBGMベスト100 108位 みんなで決めるプレイステーション2BGMランキング 157位 収録サウンドトラック FINAL FANTASY X Original Soundtrack iTunes Store ファイナルファンタジー X オリジナル・サウンドトラック https //itunes.apple.com/jp/album/final-fantasy-x-original-soundtrack/id62445727 DISSIDIA FINAL FANTASY Original Soundtrack