å°CADä¸çæåæå¾è¡¨è½¬å
¥WORDæEXCELçæ¹æ³
å¾å¤æ¶å,å¾å°å¾çº¸çCADæ件,éè¦å°å
¶ä¸çæåæå¾è¡¨ç¹å«æ¯å¾è¡¨,æå°æçµåè¡¨æ ¼ææå,å¾å¾åªå¥½éæ°è¾å
¥çµè,浪费æ¶é´.è¿æ¯æå¨æ»ç»çä¸ç§æ¹æ³å¯ä»¥æ大çæé«æç.
ä¸ãCADæ¹ä»¶ä¸çå¾è¡¨ï¼è½¬æJPGæ ¼å¼ã
å
·ä½çæ¹æ³æå¤ç§ï¼å¯ä»¥éç¨èææå°è½¯ä»¶fineprinteræCADèªå¸¦ç.
äºãå©ç¨å¯ä»¥å°å¾çæ ¼å¼è½¬ææåç第ä¸æ¹è½¯ä»¶å¤çãå³JPG转æææ¬.æ ¼å¼.
å
·ä½æä½æ¹æ³:ç¨æ¹æ£OCR软件,æä½ç®å,.
ä¸è¿°è½¯ä»¶å¨ç½ä¸ä¸è½½ã
ä¸ãå¦å¤,对已ææææ¬çå¾è¡¨,è¦è¾å
¥çµè,åªé¡»ç¨æ«æè¿çµè,ç¨ä¸è¿°æ¹æ³å¤çå³å¯.
åãå°cadå¾å½¢æ件ä¸çé¢åçå®é
æ¯ä¾å¯¼åºæä¸ä¸ªexcel表
æä¾ä»£ç ä¾åè
'å·¥ç¨è¯·å¼ç¨autocad2004 type library
'以ä¸ä»£ç ä¼æ±åº"C:\test1.dwg" modelspaceä¸ææç©ä»¶ä¹äº¤ç¹,请èªè¡å¢å ç©ä»¶ç±»å«åèå¤å®(If Typeof ** is xx then)
å
¶å®é¨å请楼主åèå¨Autocadä¸çVBA使ç¨è¯´æ
'******************************************************************************
Private acadApp As AcadApplication
Private acadDoc As AcadDocument
Private Sub CommandButton1_Click()
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application.16")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
Set acadDoc = acadApp.Documents.Open("C:\test1.dwg")
acadDoc.Activate
acadDoc.Application.Visible = True
MsgBox ("Load OK.Press command2 to count.")
End Sub
Private Sub CommandButton2_Click()
Set acadDoc = acadApp.Application.ActiveDocument
Dim n As Integer
Dim obj() As AcadObject
Dim intPoints As Variant
Dim I As Integer, j As Integer, k As Integer
Dim str As String
n = acadDoc.ModelSpace.Count
If n = o Then Exit Sub
ReDim obj(n)
For I = 0 To n - 1
Set obj(I) = acadDoc.ModelSpace.Item(I)
Next
For p1 = 0 To n - 2
For p2 = p1 + 1 To n - 1
j = 0
k = 0
intPoints = obj(p1).IntersectWith(obj(p2), acExtendNone)
If VarType(intPoints) <> vbEmpty Then
For I = LBound(intPoints) To UBound(intPoints)
str = "Obj(" & p1 & "&" & p2 & ") Intersection Point[" & k & "] is: " & intPoints(j) & "," & intPoints(j + 1) & "," _
& intPoints(j + 2)
MsgBox str, , "IntersectWith Example"
str = ""
I = I + 2
j = j + 3
k = k + 1
Next
End If
Next
Next
acadDoc.Close
MsgBox ("OK")
End Sub
追é®ç¬¬ä¸,æç¨äºæ¹æ£OCR软件 è¿è¡å°è¯ï¼åç°åºç°å¾å¤æ··ä¹±å符éè¦èªè¡æ ¡æ£ï¼å¾ä¸æ¹ä¾¿ã
å¦å¤æ°æ®çåç¡®æ§æå¾
è究ã
第äºï¼è¿ä¸ªè½¯ä»¶æ¯å¦éè¦ä»è´¹ï¼å¯ä»¥é¿æå
费使ç¨åï¼