iproperty属性问题求教

使用iLogic可以在iproperty中做出，你參考看看

yanzhilong 发表于 2024-12-8 06:27
使用iLogic可以在iproperty中做出，你參考看看...

外观可以在软件工具栏直接选择啊。当然了如果你一定要用ilogic的话也是可以的，请参照如下代码

• 
  
• Dim oDoc As PartDocument = ThisDoc.Document
  
• Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition
  
• Dim AppearanceLibraryName As String = "外观库名称"
  
• 
  
• ' 获取外观库
  
• Dim AppLib As AssetLibrary = Nothing
  
• Try
  
•         AppLib = ThisApplication.AssetLibraries.Item(AppearanceLibraryName)
  
• Catch
  
•         MsgBox("找不到名为的外观库 '" & AppearanceLibraryName,, "捡得有 iLogic")
  
•         Exit Sub
  
• End Try
  
• 
  
• Dim AppColours As AssetsEnumerator = AppLib.AppearanceAssets
  
• Dim ColourArray As New ArrayList
  
• 
  
• ' 将所有外观名称写入ArrayList
  
• For Each A As Asset In AppColours
  
•     ColourArray.Add(A.DisplayName)
  
• Next
  
• 
  
• ' 按字母顺序排列数组
  
• ColourArray.Sort()
  
• 
  
• ' 使用库中的外观列表创建参数。
  
• 
  
• ' 参数
  
• Try
  
• MultiValue.List("外观") = ColourArray
  
• Catch
  
• ' 参数不存在-创建它
  
• Dim oParam As Parameter = oDef.Parameters.UserParameters.AddByValue("外观", ColourArray(0), UnitsTypeEnum.kTextUnits)
  
• MultiValue.List("外观") = ColourArray
  
• End Try
  
• '设定零件外观
  
• iProperties.PartColor=外观
  

复制代码

yanzhilong 发表于 2024-12-8 06:27
使用iLogic可以在iproperty中做出，你參考看看...

我的方法比較簡單一點
因iLogic無法直接獲取外觀庫清單
所以
清單名稱要自己輸入

方法：
1.
在參數中建立使用者參數"color"，並建立外觀庫既有名稱的多值清單

2.
iLogic寫入
iProperties.PartColor = color

yjhwzw 发表于 2024-12-11 00:31
我的方法比較簡單一點
因iLogic無法直接獲取外觀庫清單
所以...

非常感谢，受教了。。。