以下是从WILCOX网上DOWNLOAD下的一个VB SCRIPT 作用是翻转(FLIP)矢量,对于检测SHEET METAL的朋友会有用. Sub Main() Dim App As Object Set App = CreateObject("PCDLRN.Application") Dim Part As Object Set Part = App.ActivePartProgram Dim Cmds As Object Set Cmds = Part.Commands Dim Cmd As Object Dim I As Double, J As Double, K As Double Dim FeatureCmd As Object For Each Cmd In Cmds If Cmd.IsFeature Then Set FeatureCmd = Cmd.FeatureCommand FeatureCmd.GetVector FVECTOR_VECTOR, FDATA_THEO, I, J, K FeatureCmd.PutVector FVECTOR_VECTOR, FDATA_THEO, -I, -J, -K FeatureCmd.GetVector FVECTOR_VECTOR, FDATA_MEAS, I, J, K FeatureCmd.PutVector FVECTOR_VECTOR, FDATA_MEAS, -I, -J, -K FeatureCmd.GetVector FVECTOR_VECTOR, FDATA_TARG, I, J, K FeatureCmd.PutVector FVECTOR_VECTOR, FDATA_TARG, -I, -J, -K End If Next Cmd End Sub 你可COPY到一个TXT FILE THEN SAVE AS .BAS FILE.在PC-DMIS(3.5)中VIEW->BASIC SCRIPT EDITOR,然后打开这个文件,最右边那个播发的ICON就是RUN,然后ANSWER"YES",所有的AUTOFEATURE的矢量都会被FLIP. 我只想抛砖引玉看看这样的交流方式是否受欢迎.