ansa中part怎么转化成pid？

这个只能用二次开发来实现很简单的defbutton Part2PId()Tool{print("############Hello god!!###########");i=0;for(ent=GetFirstEntity(NASTRAN,"ANSAPART");ent;ent=GetNextEntity(NASTRAN,ent)){GetEntityCardValues(NASTRAN,ent,"Name",name);faces=CollectEntities(NASTRAN,ent,"FACE",0);if(MatLen(faces)==0){return;print("No face found");}newpid=CreateEntityVa(NASTRAN,"PSHELL","MID");GetEntityCardValues(NASTRAN,newpid,"PID",pid);SetEntityCardValues(NASTRAN,newpid,"Name",name);foreach face in faces{SetEntityCardValues(NASTRAN,face,"PID",pid);}i++;}print(i+" : part successfully changed pid");} 查看原帖>>