【转帖】insertdwgordxffile

yang686526

insertdwgordxffile
i am trying to write a macro to import a dxf onto a surface and extrude it as a hole. the macro works except for the key function; insertdwgordxffile. it just seems to fail silently when run in a macro. it seems to work fine when used manually. has anyone had any luck with a work around for this?
works fine for me:
option explicit
dim swapp as sldworks.sldworks
dim part as modeldoc2
sub main()
set swapp = application.sldworks
set part = swapp.activedoc
part.extension.selectbyid2 "", "face", -0.02276314816265, -0.001069096318986, 0.009999999999934, false, 0, nothing, 0
part.featuremanager.insertdwgordxffile "t:\contract\50100-ss\00bc-007.dxf"
part.clearselection2 true
end sub