iCAx开思网

标题: VB.NET开发UG与GRIP联合,求接口 [打印本页]

作者: cam-yp    时间: 2006-10-16 13:37
标题: VB.NET开发UG与GRIP联合,求接口
如题,VB.NET如何呼叫GRIP程序?如何实现与GRIP的参数传递?
作者: cam-yp    时间: 2006-10-18 09:06
顶一下,希望高手现招
作者: cam-yp    时间: 2006-10-20 08:00
再顶
作者: chenwenwei    时间: 2006-10-25 07:07
你可以看 vb.net 开发接口
我正在更改树人工具中的VB接口希望,可以不调用EXCEL,直接出BOM表

[ 本帖最后由 chenwenwei 于 2006-10-25 12:12 编辑 ]
作者: llgqxj    时间: 2006-10-25 09:28
原帖由 chenwenwei 于 2006-10-25 07:07 发表
你可以看 vb.net 开发接口
我正在更改树人工具中的VB接口,以求不导出文件,直接传参数
下一步工作希望,可以不调用EXCEL,直接出BOM表



其实用GRIP在制图里做横竖线条成表格就可以了,铜公名,数量,等信息用字符串指定在图纸位置就可以出BOM表在UG里打印,只不过定位有点麻烦,要一个一个试着算好X,Y坐标。可以不用那么麻烦调要用VB来做EXCEL表。在UG里就可一次搞定。偶不懂VB,VC。所以只能用GRIP这个最简单的来实现

跑题了,你们继续讨论VB吧
作者: chenwenwei    时间: 2006-10-26 01:26
你在上班啊!
上海吗
作者: chenwenwei    时间: 2006-10-26 01:27
llgqxj
老兄现在做哪方面的开发啊
交流一下
作者: kellyme    时间: 2007-6-23 08:54
用FILE和 FETCH啊
作者: wensanren    时间: 2007-11-28 23:12
标题: 图层名对应批量修改
图层名对应批量修改
'Auto2004 使用C:\新旧图层名对照设定文件.INI 文件中设定的对应关系对当前图形文件图层更名
'可对含有中文的DWG档图层名修改以便UG读入
'INI文件中 [NEW_NAME]项目下为需修改的新图层名; [OLD_NAME]项目下为需修改的旧图层名
'Change_row_count = 9 代表需修改的新旧图层行数
'使用的宏文件源代码如下: 作者 逍昇wensanren
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" _

Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _

ByVal lpKeyName As Any, ByVal lpDefault As String, _

ByVal lpReturnedString As String, ByVal nSize As Long, _

ByVal lpFileName As String) As Long
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias _

"GetVolumeInformationA" (ByVal lpRootPathName As String, _

ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, _

lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _

lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _

ByVal nFileSystemNameSize As Long) As Long
Sub replayer()
On Error Resume Next
Const IniFile_Path = "C:\新旧图层名对照设定文件.INI"
Const ForReading = 1, ForWriting = 2, ForAppending = 3, TristateFalse = 0
'TristateFalse
0 以 ASCII 格式打开文件
Dim fs, f As Object
Dim i, u, j, RowCount As Integer
Dim ent As AcadEntity
Dim Layerobj As AcadLayer
Dim oldname, newname, OLDNAMEFLAG, NEWNAMEFLAG, OldStr, NewStr, TMPSTR As String

Dim Msg, Style, Title, Response, MyString
Msg = "[新图层名] 替代 [旧图层名] ?"
' 定义信息。
'Msg = "汉字 -> 字母(ASCII) ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
' 定义按钮。
Title = "MsgBox Demonstration"
' 定义标题。

Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
' 用户按下“是”。[新图层名]替代[旧图层名]

OLDNAMEFLAG = "OLD_NAME"

NEWNAMEFLAG = "NEW_NAME"
   
Else
' 用户按下“否”。[旧图层名]替代[新图层名]

OLDNAMEFLAG = "NEW_NAME"

NEWNAMEFLAG = "OLD_NAME"
End If
RowCount = CLng(ReadIniFile(IniFile_Path, "Change_row_count", "Change_row_count", "9"))
'Change_row_count
For u = 1 To RowCount
OldStr = "Lay" + Trim(Str(u))
NewStr = "Lay" + Trim(Str(u))
oldname = ReadIniFile(IniFile_Path, OLDNAMEFLAG, OldStr, "")
newname = ReadIniFile(IniFile_Path, NEWNAMEFLAG, NewStr, "XXX")
MyString = ""
For i = 0 To ThisDrawing.Application.Documents.Count - 1
ThisDrawing.Application.Documents.Item(i).Activate
For j = 0 To ThisDrawing.Layers.Count - 1
Set Layerobj = ThisDrawing.Layers.Item(oldname)
Layerobj.Name = newname
Next
MyString = MyString & Chr(13) & newname & " <- " & oldname & " " ' 最后一个被替代的
Next

Next
MsgBox ("替代完毕:" + Chr(13) + "最后一个为 " + MyString)

End Sub

Public Function ReadIniFile(ByVal strIniFile As String, _

ByVal strSECTION As String, ByVal strKey As String, gstrNull As String) As String
Dim strBuffer As String
Dim intPos As Integer
Const gintMAX_SIZE = 256
strBuffer = Space$(gintMAX_SIZE)
If GetPrivateProfileString(strSECTION, strKey, gstrNull, strBuffer, gintMAX_SIZE, strIniFile) > 0 Then
ReadIniFile = strBuffer
Else

ReadIniFile = gstrNull
End If
End Function

新旧图层名对照设定文件.INI (内容如下)
[OLD_NAME] 旧图层名
Lay1 =定义点
Lay2 =中心线
Lay3 =注释

[NEW_NAME] 新图层名
Lay1 =DefinPoint
Lay2 =CenterLine
Lay3 = Note

[Change_row_count]
Change_row_count = 3
作者: haorenzaosi    时间: 2007-12-16 11:48
重哼 大家好我想说一个发生在我身上的离奇故事 相信他的人可以当作一个很好的见识 不相信认为我胡言胡语的人可以当作是一个
有趣的故事
   我一直认为随着世界经济的快速增长尤其是改革开放给中国带来更新换貌的时候 人们对法律的认识和自觉应该更有所提高
然而发生在我身边的事情让我改变拉想法
   在我身边有这样一个组织 他们每天的工作是通过极其特殊的手段让一个人自我沮丧 绝望 发狂 同时也保证他的偶尔快乐得意
而他们所实行的方法不是毒打当然也有 而是通过人对声音敏感这是主要 其次利用周围人的极速变化来彻底的让人不能自拔 痛不
欲生
   有时你走在街上 许多人莫名其妙的走过来就是一重哼 甚至走到你旁边说什么“小心啊 别这样啊 会后悔阿“躲到家里不是
楼上楼下的巨响就是门外楼底有人巨哼 有时一天你能听到上百的重哼 除非你潜意识的按他们要求做 有时偶尔一天 2天他们
会少让你痛苦些
   我力图上访过 也在网站发出过类似的文章都无效 也去过公安局他们让我去看医生 但是到现在我仍然处于无时不惊恐和沮丧
甚至绝望 除拉有7-9小时的休息时间和偶尔一时快乐得意 每天平均至少有3-9小时的沮丧和痛苦 有时就是一2天甚至一周的不安
与怨恨
   我知道我活得不是最惨的最痛苦的 问题在于这是一种另类新的犯罪 我认为除拉我之外应该还有3-7人有类似经历的受害者
我真的不想时不时活在被威胁利用的生活中  更不想让一群这样唯利是图的组织迫害和利用他人而达到他们的多从目的 尽管
他们时常说他们捐款 信教
   如果真的没有一个人相信我的所说 换来得不是一条人命而是犯罪组织的利益
作者: gejw    时间: 2007-12-20 22:14
我也来顶啊




欢迎光临 iCAx开思网 (https://www.icax.org/) Powered by Discuz! X3.3