以下是从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.
我只想抛砖引玉看看这样的交流方式是否受欢迎.
鲁公网安备37020002000329号