September 29, 2017 at 9:33 am
bwide
Subscriber

This is the code 


Dim oAnsoftApp


   Dim oDesktop


   Dim oProject


   Dim oDesign


   Dim oEditor


   Dim oModule


   Set oAnsoftApp = CreateObject("Q3DExtractor.ScriptInterface")


   Set oDesktop = oAnsoftApp.GetAppDesktop()   


   oDesktop.NewProject   


   Set oProject = oDesktop.GetActiveProject


   oProject.InsertDesign "Q3D Extractor", "Q3DDesign1", "", ""   


   Set oDesign = oProject.SetActiveDesign("Q3DDesign1")


   Set oEditor = oDesign.SetActiveEditor("3D Modeler")


oEditor.ImportDXF ("NAMEptions", "FileName:=",  _


  "CUsers/jawhar/Desktop/dfg/wi3.dxf", "Scale:=", 0.001, "AutoDetectClosed:=",  _


  true, "SelfStitch:=", true, "DefeatureGeometry:=", false, "DefeatureDistance:=",  _


  0, "RoundCoordinates:=", false, "RoundNumDigits:=", 4, "WritePolyWithWidthAsFilledPoly:=",  _


  false, "ImportMethod:=", 1, "2DSheetBodies:=", false, ("NAME:LayerInfo", ("NAME:0", "source:=",  _


  "0", "display_source:=", "0", "import:=", true, "dest:=", "0", "dest_selected:=",  _


  false, "layer_type:=", "signal"), ("NAME:cond", "source:=", "cond", "display_source:=",  _


  "cond", "import:=", true, "dest:=", "cond", "dest_selected:=", false, "layer_type:=",  _


  "signal")))


Set oEditor = oDesign.SetActiveEditor("3D Modeler")


oEditor.Unite ("NAME:Selections", "Selections:=",  _


  "cond_1,cond_2,cond_3,cond_26,cond_27,cond_39,cond_40,cond_52,cond_59,cond_60,c" & _


  "ond_4,cond_5,cond_28,cond_41,cond_53,cond_7,cond_29,cond_30,cond_42,cond_61,co" & _


  "nd_9,cond_8,cond_43,cond_6,cond_54"), ("NAME:UniteParameters", "KeepOriginals:=",  _


  false)


oEditor.Unite ("NAME:Selections", "Selections:=",  _


  "cond_18,cond_19,cond_34,cond_35,cond_47,cond_48,cond_57,cond_64,cond_17,cond_2" & _


  "0,cond_21,cond_58,cond_67,cond_36,cond_49,cond_22,cond_65,cond_69,cond_38,cond" & _


  "_51,cond_25,cond_24,cond_23,cond_50,cond_37"), ("NAME:UniteParameters", "KeepOriginals:=",  _


  false)


oEditor.Unite ("NAME:Selections", "Selections:=",  _


  "cond_31,cond_44,cond_10,cond_11,cond_12,cond_13,cond_14,cond_32,cond_45,cond_5" & _


  "6,cond_63,cond_66,cond_68,cond_55,cond_62"), ("NAME:UniteParameters", "KeepOriginals:=",  _


  false)


oEditor.Unite ("NAME:Selections", "Selections:=",  _


  "cond_16,cond_15,cond_33,cond_46"), ("NAME:UniteParameters", "KeepOriginals:=",  _


 


  false)


but the problem is in the command oEditor.Unite I want to make autoamtic selections since each time the numbers of conds is changed