約 949,273 件
https://w.atwiki.jp/solidworksapi/pages/21.html
選択 オブジェクト選択 フィーチャー選択 構成部品選択 オブジェクト選択 Function SelectObject(obj As Object, Optional isApend As Boolean = False) As Boolean Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objSelectionMgr As SldWorks.SelectionMgr Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objSelectionMgr = objModelDoc.SelectionManager If isApend = False Then Call objModelDoc.ClearSelection2(True) End If SelectObject = objSelectionMgr.AddSelectionListObject(obj, Nothing) End Function 上へ フィーチャー選択 平面選択 Sub SelectPlane() 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 平面のタイプネーム 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) For Each varFeature In arrayFeatures Set objFeature = varFeature If objFeature.GetTypeName2() = swTnRefPlane Then Call objSelectionMgr.AddSelectionListObject(objFeature, objSelectData) End If Next 処理 ToDo 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 上へ コメント 名前
https://w.atwiki.jp/now_api/pages/10.html
関連ブログ @wikiのwikiモードでは #bf(興味のある単語) と入力することで、あるキーワードに関連するブログ一覧を表示することができます 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/17_161_ja.html たとえば、#bf(ゲーム)と入力すると以下のように表示されます。 #bf
https://w.atwiki.jp/now_api/pages/2.html
メニュー トップページ プラグイン紹介 まとめサイト作成支援ツール メニュー メニュー2 リンク @wiki @wikiご利用ガイド 他のサービス 無料ホームページ作成 無料ブログ作成 2ch型掲示板レンタル 無料掲示板レンタル お絵かきレンタル 無料ソーシャルプロフ ここを編集
https://w.atwiki.jp/now_api/pages/8.html
動画(youtube) @wikiのwikiモードでは #video(動画のURL) と入力することで、動画を貼り付けることが出来ます。 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/17_209_ja.html また動画のURLはYoutubeのURLをご利用ください。 =>http //www.youtube.com/ たとえば、#video(http //youtube.com/watch?v=kTV1CcS53JQ)と入力すると以下のように表示されます。
https://w.atwiki.jp/now_api/pages/5.html
まとめサイト作成支援ツールについて @wikiにはまとめサイト作成を支援するツールがあります。 また、 #matome_list と入力することで、注目の掲示板が一覧表示されます。 利用例)#matome_listと入力すると下記のように表示されます #matome_list
https://w.atwiki.jp/now_api/pages/6.html
更新履歴 @wikiのwikiモードでは #recent(数字) と入力することで、wikiのページ更新履歴を表示することができます。 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/17_117_ja.html たとえば、#recent(20)と入力すると以下のように表示されます。 取得中です。
https://w.atwiki.jp/api_programming/pages/235.html
https //llamalab.com/automate/doc/block/dialog_choice.html Dialog choice A decision block that lets the user select from a list of choices. The fiber will pause until the user has made a choice, cancelled the dialog or the timeout expired. If an array is set as choices, then its elements are used as labels. If a dictionary is set, then the values are used as labels. A number or text is used as the label for a single choice. If null, the no choices will be shown. The sift function can be used to filter the choices. Note! 選択された index/key は、「一つだけ選択」にした場合でも array として返ってくる。そのため、値を用いるには、selected[0] や choices[selected[0]] とする。 Input arguments Title ダイアログに表示されるタイトル Choices possible choices, show as a list. Pre-select デフォルトで選択されている index or keydefault none. Multi-select — whether to allow selection of multiple choices, default is false. No selection — whether to allow no selection, only applicable for multiple choice. Sort — whether the displayed choices should be sorted in alphabetical order. Timeout — time until the notification/dialog is automatically canceled, default is no timeout. Notification channel — UUID of notification channel used for shown notification, default is the flow default or Flow. Show window — whether to show the dialog window directly without having to tap the notification. Only works when no other window is showing. Output variables Selected indices/keys — variable to assign an array with the selected indices/keys.
https://w.atwiki.jp/solidworksapi/pages/15.html
オブジェクト取得 SolidWorks アクティブなドキュメント モデルビュー コンフィグレーション コンポーネント ボディ 面 SolidWorks マクロから取得 Sub GetApplication() Dim objApp As SldWorks.SldWorks Set objApp = Application.SldWorks End Sub 外部プログラムから取得 Sub GetApplicationOutSide() Dim objApp As SldWorks.SldWorks 新規の場合 Set objApp = CreateObject("SldWorks.Application") 既存の場合 Set objApp = GetObject("", "SldWorks.Application") End Sub 上へ アクティブなドキュメント モデルドキュメント Sub GetModelDocument() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc End Sub アセンブリドキュメント Sub GetAssemblyDocument() Dim objApp As SldWorks.SldWorks Dim objAssyDoc As SldWorks.AssemblyDoc Set objApp = Application.SldWorks Set objAssyDoc = objApp.ActiveDoc End Sub パーツドキュメント Sub GetPartDocument() Dim objApp As SldWorks.SldWorks Dim objPartDoc As SldWorks.PartDoc Set objApp = Application.SldWorks Set objPartDoc = objApp.ActiveDoc End Sub 上へ モデルビュー アクティブなモデルビュー Function GetActiveView() As SldWorks.ModelView Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set GetActiveView = objModelDoc.ActiveView End Function 上へ コンフィグレーション アクティブなコンフィグレーション Function GetActiveConfiguration() As SldWorks.Configuration Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConfMgr As SldWorks.ConfigurationManager Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objConfMgr = objModelDoc.ConfigurationManager Set GetActiveConfiguration = objConfMgr.ActiveConfiguration End Function コンフィグレーション一覧 Sub GetConfigurationList() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConf As SldWorks.Configuration Dim astrNames As Variant Dim strName As Variant Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc astrNames = objModelDoc.GetConfigurationNames For Each strName In astrNames Set objConf = objModelDoc.GetConfigurationByName(strName) 処理 ToDo Next End Sub 上へ コンポーネント アクティブなコンポーネント Function GetActiveComponent() As SldWorks.Component2 Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetActiveComponent = objConf.GetRootComponent3(True) End Function アクティブコンフィグレーションの構成部品一覧 Sub GetActiveConfigurationComponentList() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Dim objAssy As SldWorks.Component2 Dim arrayObjComp As Variant Dim objCompVariant As Variant Dim objComp As SldWorks.Component2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set objAssy = objConf.GetRootComponent3(True) arrayObjComp = objAssy.GetChildren For Each objCompVariant In arrayObjComp Set objComp = objCompVariant 処理 ToDo Next End Sub アセンブリの構成部品一覧 Sub GetTopAssemblyComponentList() Dim objApp As SldWorks.SldWorks Dim objAssyDoc As SldWorks.AssemblyDoc Dim arrayObjComp As Variant Dim objCompVariant As Variant Dim objComp As SldWorks.Component2 Set objApp = Application.SldWorks Set objAssyDoc = objApp.ActiveDoc 最上位レベルの構成部品のみ arrayObjComp = objAssyDoc.GetComponents(True) すべての構成部品 arrayObjComp = objAssyDoc.GetComponents(False) For Each objCompVariant In arrayObjComp Set objComp = objCompVariant 処理 ToDo Next End Sub 編集中のコンポーネント Function GetEditTargetComponent() As SldWorks.Component2 Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objEditinglDoc As SldWorks.ModelDoc2 Dim objAssyDoc As SldWorks.AssemblyDoc Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc If objModelDoc.GetType() = swDocumentTypes_e.swDocASSEMBLY Then Set objAssyDoc = objApp.ActiveDoc Set objEditinglDoc = objAssyDoc.GetEditTarget() If objModelDoc Is objEditinglDoc Then Editing Top Level Assembly Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Editing Component Set GetEditTargetComponent = objAssyDoc.GetEditTargetComponent() End If ElseIf objModelDoc.GetType() = swDocumentTypes_e.swDocPART Then Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Set GetEditTargetComponent = Nothing End If End Function 上へ ボディ アクティブなボディ(最初に見つかったボディ) Function GetActiveBody() As SldWorks.Body2 Dim objComponent As SldWorks.Component2 Dim arrayBodies As Variant Dim varBody As Variant Set objComponent = GetEditTargetComponent() arrayBodies = objComponent.GetBodies3(SwConst.swBodyType_e.swSolidBody, Nothing) Set GetActiveBody = Nothing For Each varBody In arrayBodies Set GetActiveBody = varBody Exit For Next End Function 編集中のコンポーネント Function GetEditTargetComponent() As SldWorks.Component2 Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objEditinglDoc As SldWorks.ModelDoc2 Dim objAssyDoc As SldWorks.AssemblyDoc Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc If objModelDoc.GetType() = swDocumentTypes_e.swDocASSEMBLY Then Set objAssyDoc = objApp.ActiveDoc Set objEditinglDoc = objAssyDoc.GetEditTarget() If objModelDoc Is objEditinglDoc Then Editing Top Level Assembly Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Editing Component Set GetEditTargetComponent = objAssyDoc.GetEditTargetComponent() End If ElseIf objModelDoc.GetType() = swDocumentTypes_e.swDocPART Then Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Set GetEditTargetComponent = Nothing End If End Function 上へ 面 最初に見つかったボディのすべての面 Sub GetFaceList() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objBody As SldWorks.Body2 Dim arrayFaces As Variant Dim varFace As Variant Dim objFace As SldWorks.Face2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objBody = GetActiveBody() arrayFaces = objBody.GetFaces() Call objModelDoc.ClearSelection2(True) For Each varFace In arrayFaces Set objFace = varFace 処理 ToDo Next End Sub アクティブなボディ(最初に見つかったボディ) Function GetActiveBody() As SldWorks.Body2 Dim objComponent As SldWorks.Component2 Dim arrayBodies As Variant Dim varBody As Variant Set objComponent = GetEditTargetComponent() arrayBodies = objComponent.GetBodies3(SwConst.swBodyType_e.swSolidBody, Nothing) Set GetActiveBody = Nothing For Each varBody In arrayBodies Set GetActiveBody = varBody Exit For Next End Function 編集中のコンポーネント Function GetEditTargetComponent() As SldWorks.Component2 Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objEditinglDoc As SldWorks.ModelDoc2 Dim objAssyDoc As SldWorks.AssemblyDoc Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc If objModelDoc.GetType() = swDocumentTypes_e.swDocASSEMBLY Then Set objAssyDoc = objApp.ActiveDoc Set objEditinglDoc = objAssyDoc.GetEditTarget() If objModelDoc Is objEditinglDoc Then Editing Top Level Assembly Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Editing Component Set GetEditTargetComponent = objAssyDoc.GetEditTargetComponent() End If ElseIf objModelDoc.GetType() = swDocumentTypes_e.swDocPART Then Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set GetEditTargetComponent = objConf.GetRootComponent3(True) Else Set GetEditTargetComponent = Nothing End If End Function 上へ コメント 名前
https://w.atwiki.jp/api_programming/pages/203.html
下位ページ Content レイアウトの種類 他ファイルのレイアウトを参照する 要素をセットするXMLで定義する 動的にセットする https //developer.android.com/guide/topics/ui/declaring-layout.html#AdapterViews レイアウトの種類 覚えておくと便利!Androidアプリ開発のLayoutの使い方【初心者向け】 | TechAcademy 他ファイルのレイアウトを参照する include を使えば、別のレイアウトxml ファイルを読み込める。このとき、別のファイルに読ませた場合に見分けがつくように、include の中で id を指定する。 Re-using Layouts with include/ | Android Developers レイアウトを使いまわす - 他に定義したレイアウトを読み込ませる方法 | Qiita 要素をセットする XMLで定義する res/value/strings.xml で文字列の配列を定義しておく string-array name="planet_array" item Sunday /item item Monday /item /string-array レイアウトxml の ListView 定義に android entries="@array/(name)" を加える。 android entries - ListView | Android Developers 動的にセットする Array 要素でつくって、Adapter でセットする。 setAdapter - ListView | Android Developers
https://w.atwiki.jp/now_api/pages/7.html
アーカイブ @wikiのwikiモードでは #archive_log() と入力することで、特定のウェブページを保存しておくことができます。 詳しくはこちらをご覧ください。 =>http //atwiki.jp/guide/25_171_ja.html たとえば、#archive_log()と入力すると以下のように表示されます。 保存したいURLとサイト名を入力して"アーカイブログ"をクリックしてみよう サイト名 URL