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

楼上的自己有没有写过有特色的VB，拿出来学习学习。

楼上的朋友不要太偏激了，对我来说很有用，我们需要这样的热心人，大家信息共享会提高更快。

I love the chanllenge from "wf", that makes this site more interesting. 只可惜B&S上的东东是FREE的BECAUSE THAT'S THEIR JOB,但我的不是.网上的东东我可以借花现佛,而我的只给我愿意给的朋友. NICE TRY THOUGH.

上一贴应是回给连先生他老人家的.

我没有任何诋毁Canadian User的意思，我认同他的水平， 只是希望能学习和交流更多的更有特色的ＶＢ代码，而不仅仅是free 的东东。希望Canadian User不要介意喔 :)

有没有VB有详细介绍呀？？？

四海之内皆兄弟,同行不应是冤家. 我也是喜欢有话直说.

本人正在初学VB编程,希望有更多应用VB的朋友把自己的实测经验发布出来,共同探索,提高!

VB用途广吗？以前没接触到过呢！