{"id":1002,"date":"2024-07-02T07:51:36","date_gmt":"2024-07-01T23:51:36","guid":{"rendered":"http:\/\/www.wyrcad.com\/?p=1002"},"modified":"2024-07-04T10:33:18","modified_gmt":"2024-07-04T02:33:18","slug":"autocad-%e8%a1%a8%e7%9a%84%e6%93%8d%e4%bd%9c","status":"publish","type":"post","link":"https:\/\/www.wyrcad.com\/?p=1002","title":{"rendered":"AutoCAD \u7684\u8868(Table)"},"content":{"rendered":"\n

\u2018\u7ed1\u5b9a AutoCAD
Dim I As Integer, J As Integer
Dim oAutoCAD As Object
Call BindAutoCAD<\/a>(True)<\/p>\n\n\n\n

‘\u6253\u5f00\u5e76\u7ed1\u5b9a\u6587\u4ef6 D:\/Test.dwg
Dim oDraw As Object \u2018AutoCAD \u591a\u6587\u6863\u4e4b\u4e00
Set oDraw = oAutoCAD.Application.Documents.Open(“D:\/Test.dwg”)<\/p>\n\n\n\n

‘\u63d2\u5165\u8868\u683c
Dim oTable As Object
Dim dInsertPoint(2) As Double
dInsertPoint(0) = 12
dInsertPoint(1) = 12
dInsertPoint(2) = 0
Set oTable = oDraw.ModelSpace.AddTable(dInsertPoint, 6, 7, 10, 50) ‘\u63d2\u5165\u70b9,\u884c\u5217\u6570,\u5355\u5143\u683c\u9ad8\u5bbd<\/p>\n\n\n\n

‘\u8c03\u6574\u5b57\u4f53
Call AddTextStyle<\/a>(“Standard”)<\/p>\n\n\n\n

‘\u586b\u5145\u8868\u683c
oTable.SetText 0, 0, “LOAD LIST”<\/p>\n\n\n\n

oTable.SetText 1, 0, “Load”
oTable.SetText 2, 0, “Rating(kW)”
oTable.SetText 3, 0, “Factor”
oTable.SetText 4, 0, “Voltage(kV)”
oTable.SetText 5, 0, “Current(A)”<\/p>\n\n\n\n

oTable.SetText 1, 1, “\u6f5c\u6c61\u6cf5 A”
oTable.SetText 2, 1, “22”
oTable.SetText 3, 1, “0.8”
oTable.SetText 4, 1, “0.38”
oTable.SetText 5, 1, “=B3\/(1.732\u00d7B4<\/em>\u00d7B5)” ‘\u00d7 \u6539\u4e3a\u5408\u6cd5\u7684\u516d\u661f\u4e58\u53f7<\/p>\n\n\n\n

oTable.SetText 1, 2, “\u5faa\u73af\u6cf5”
oTable.SetText 2, 2, “37”
oTable.SetText 3, 2, “0.8”
oTable.SetText 4, 2, “0.38”
oTable.SetText 5, 2, “=C3\/(1.732\u00d7C4<\/em>\u00d7C5)” ‘\u00d7 \u6539\u4e3a\u5408\u6cd5\u7684\u516d\u661f\u4e58\u53f7<\/p>\n\n\n\n

oTable.SetText 1, 3, “\u5916\u8f93\u6cf5”
oTable.SetText 2, 3, “45”
oTable.SetText 3, 3, “0.8”
oTable.SetText 4, 3, “0.38”
oTable.SetText 5, 3, “=D3\/(1.732\u00d7D4<\/em>\u00d7D5)” ‘\u00d7 \u6539\u4e3a\u5408\u6cd5\u7684\u516d\u661f\u4e58\u53f7<\/p>\n\n\n\n

oTable.SetText 1, 4, “\u7ba1\u9053\u6cf5”
oTable.SetText 2, 4, “18.5”
oTable.SetText 3, 4, “0.8”
oTable.SetText 4, 4, “0.38”
oTable.SetText 5, 4, “=E3\/(1.732\u00d7E4<\/em>\u00d7E5)” ‘\u00d7 \u6539\u4e3a\u5408\u6cd5\u7684\u516d\u661f\u4e58\u53f7<\/p>\n\n\n\n

oTable.SetText 1, 5, “\u6f5c\u6c61\u6cf5 B”
oTable.SetText 2, 5, “22”
oTable.SetText 3, 5, “0.8”
oTable.SetText 4, 5, “0.38”
oTable.SetText 5, 5, “=F3\/(1.732\u00d7F4<\/em>\u00d7F5)” ‘\u00d7 \u6539\u4e3a\u5408\u6cd5\u7684\u516d\u661f\u4e58\u53f7<\/p>\n\n\n\n

oTable.SetText 1, 6, “\u7167\u660e\u7bb1”
oTable.SetText 2, 6, “20”
oTable.SetText 3, 6, “0.8”
oTable.SetText 4, 6, “0.38”
oTable.SetText 5, 6, “=G3\/(1.732\u00d7G4<\/em>\u00d7G5)” ‘\u00d7 \u6539\u4e3a\u5408\u6cd5\u7684\u516d\u661f\u4e58\u53f7<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

‘\u83b7\u53d6\u7b2c4\u884c\u7b2c5\u5217\u7684\u6587\u5b57
Debug.Print oTable.GetText(3, 4) ‘\u5355\u5143\u683c\u5e8f\u53f7\u57fa\u4e8e 0<\/p>\n","protected":false},"excerpt":{"rendered":"

\u2018\u7ed1\u5b9a AutoCADDim I As Integer, J As IntegerDim oAutoCAD A … \u7ee7\u7eed\u9605\u8bfb\u201cAutoCAD \u7684\u8868(Table)\u201d<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[24,17],"class_list":["post-1002","post","type-post","status-publish","format-standard","hentry","category-bianchengyuandi","tag-vb","tag-biancheng"],"_links":{"self":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/1002","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1002"}],"version-history":[{"count":10,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/1002\/revisions"}],"predecessor-version":[{"id":1086,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/1002\/revisions\/1086"}],"wp:attachment":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1002"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1002"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1002"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}