|
vb 之一
以下是从wilcox网上download下的一个vb scrit 作用是翻转(fli)矢量,对于检测sheet metal的朋友会有用.
sub main()
dim a as object
set a = createobject("cdlrn.alication")
dim art as object
set art = a.activeartrogram
dim cmds as object
set cmds = art.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.utvector fvector_vector, fdata_theo, -i, -j, -k
featurecmd.getvector fvector_vector, fdata_meas, i, j, k
featurecmd.utvector fvector_vector, fdata_meas, -i, -j, -k
featurecmd.getvector fvector_vector, fdata_targ, i, j, k
featurecmd.utvector fvector_vector, fdata_targ, -i, -j, -k
end if
next cmd
end sub
你可coy到一个txt file then save as .bas file.在pc-dmis(3.5)中view->basic scrit editor,然后打开这个文件,最右边那个播发的icon就是run,然后answer"yes",所有的autofeature的矢量都会被flip.
我只想抛砖引玉看看这样的交流方式是否受欢迎.
i love the chanllenge from "wf", that makes this e more interesting.
只可惜b&s上的东东是free的because that's their job,但我的不是.网上的东东我可以借花现佛,而我的只给我愿意给的朋友.
我没有任何诋毁canadian user的意思,我认同他的水平,
四海之内皆兄弟,同行不应是冤家. |
|