有知道cad中vba调用块怎么编程？ 可以参照一下cad本身的帮助： sub example_hasattributes() ' this example first creates a block without attributes. ' it then inserts the block and checks whether it has attributes. ' it then adds attributes to the block and inserts it again. ' then it checks the new block reference for attributes. ' create the block dim blockobj as acadblock dim insertionpnt(0 to 2) as double insertionpnt(0) = 0#: insertionpnt(1) = 0#: insertionpnt(2) = 0# set blockobj = thisdrawing.blocks.add(insertionpnt, "circleblock") ' add a circle to the block dim circleobj as acadcircle dim center(0 to 2) as double dim radius as double center(0) = 0: center(1) = 0: center(2) = 0 radius = 1 set circleobj = blockobj.addcircle(center, radius) ' insert the block dim blockrefobj as acadblockreference insertionpnt(0) = 2#: insertionpnt(1) = 2#: insertionpnt(2) = 0 set blockrefobj = thisdrawing.modelspace.insertblock(insertionpnt, "circleblock", 1#, 1#, 1#, 0) thisdrawing.application.zoomall msgbox "this block reference " & iif(blockrefobj.hasattributes, "has attributes.", "does not have attributes."), , "has attributes example" ' add attributes to the block definition. ' define the attribute definition. dim attributeobj as acadattribute dim height as double dim mode as long dim prompt as string dim insertionpoint(0 to 2) as double dim tag as string dim value as string height = 1# mode = acattributemodeverify prompt = "attribute prompt" insertionpoint(0) = 1#: insertionpoint(1) = 1#: insertionpoint(2) = 0 tag = "attribute tag" value = "attribute value" ' create the attribute definition set attributeobj = blockobj.addattribute(height, mode, prompt, insertionpoint, tag, value) ' insert the block again dim blockrefobj2 as acadblockreference insertionpnt(0) = 3#: insertionpnt(1) = 3#: insertionpnt(2) = 0 set blockrefobj2 = thisdrawing.modelspace.insertblock(insertionpnt, "circleblock", 1#, 1#, 1#, 0) zoomall msgbox "the first block reference " & iif(blockrefobj.hasattributes, "has attributes.", "does not have attributes.") & vbcrlf & _ "the second block reference " & iif(blockrefobj2.hasattributes, "has attributes.", "does not have attributes."), , "has attributes example" end sub查看更多
第1天
关注盖德视界
添加小助手
