{"id":989,"date":"2024-07-01T08:16:51","date_gmt":"2024-07-01T00:16:51","guid":{"rendered":"http:\/\/www.wyrcad.com\/?p=989"},"modified":"2024-07-04T10:32:52","modified_gmt":"2024-07-04T02:32:52","slug":"autocad-%e5%9d%97%e7%9a%84%e6%93%8d%e4%bd%9c","status":"publish","type":"post","link":"https:\/\/www.wyrcad.com\/?p=989","title":{"rendered":"AutoCAD \u7684\u5757(Block)"},"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

\u2018 \u751f\u6210\u5757\u5b9a\u4e49
Dim oBlockDef As Object
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
Set oBlockDef = oDraw.Blocks.Add(insertionPnt, \u201cTestBlock\u201d)<\/p>\n\n\n\n

\u2018 \u5757\u5185\u6dfb\u52a0\u5706
Dim oCircle As Object
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 0: center(1) = 0: center(2) = 0
radius = 12
Set oCircle = oBlockDef.AddCircle(center, radius)
Debug.Print \u201cEntity Name: \u201d & oCircle.EntityName
Debug.Print oCircle.Handle<\/p>\n\n\n\n

\u2018 \u5757\u5185\u6dfb\u52a0\u5355\u884c\u6587\u5b57
Dim startPoint(0 To 2) As Double
Dim height As Double
Dim textString As String
Dim oText As Object
startPoint(0) = 15
startPoint(1) = 5
startPoint(2) = 0
height = 6
textString = \u201cA block demo.\u201d
Set oText = oBlockDef.AddText(textString, startPoint, height)
Debug.Print \u201cEntity Name: \u201d & oText.EntityName
Debug.Print oText.Handle<\/p>\n\n\n\n

\u2018 \u63d2\u5165\u5757(\u5757\u7684\u5b9e\u4f8b\u5316)
Dim oBlockRef As Object
insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
Set oBlockRef = oDraw.ModelSpace.InsertBlock(insertionPnt, \u201cTestBlock\u201d, 1#, 1#, 1#, 0)<\/p>\n\n\n\n

\u2018 \u7f29\u653e\u5757\u5b9e\u4f8b
Dim basePoint(0 To 2) As Double
Dim scaleFactor As Double
basePoint(0) = 0#
basePoint(1) = 0#
basePoint(2) = 0#
scaleFactor = 10#
Call oBlockRef.ScaleEntity(basePoint, scaleFactor)<\/p>\n\n\n\n

\u2018 \u65cb\u8f6c\u5757\u5b9e\u4f8b
Dim rotationAngle As Double
basePoint(0) = 0#
basePoint(1) = 0#
basePoint(2) = 0#
rotationAngle = 1.57 \u2018\u5f27\u5ea6
Call oBlockRef.Rotate(basePoint, rotationAngle)<\/p>\n\n\n\n

\u2018 \u5206\u89e3\u5757\u5b9e\u4f8b
Dim oSet As Variant
oSet = oBlockRef.Explode()
For I = LBound(oSet) To UBound(oSet)
Debug.Print \u201cEntity Name: \u201d & oSet(I).EntityName
Debug.Print oSet(I).Handle
Next<\/p>\n\n\n\n

\u2018 \u6267\u884c AutoCAD \u547d\u4ee4 Zoomextents
oAutoCAD.Zoomextents<\/p>\n","protected":false},"excerpt":{"rendered":"

\u2018\u7ed1\u5b9a AutoCADDim I As Integer, J As IntegerDim oAutoCAD A … \u7ee7\u7eed\u9605\u8bfb\u201cAutoCAD \u7684\u5757(Block)\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-989","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\/989","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=989"}],"version-history":[{"count":5,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/989\/revisions"}],"predecessor-version":[{"id":1085,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/989\/revisions\/1085"}],"wp:attachment":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=989"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=989"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=989"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}