╨╧рб▒с>■  &(■   %                                                                                                                                                                                                                                                                                                                                                                                                                                                ье┴9 Ё┐т bjbj¤╧¤╧.ЯеЯет      l▓▓▓▓▓▓▓╞╞╞╞╞ ╥╞'╢ЄЄЄЄЄЄЄЄжииииии$▌ ¤╠▓ЄЄЄЄЄ╠▓▓ЄЄсЄ▓Є▓ЄжЄжЮж▓▓жЄц Р╨<:а╞╞╞Єжжў0'жЄж╞╞▓▓▓▓┘Public Sub Block_einfuegen_Klick(strPfadInMeridian As String, strBlockName As String, dblEinfPkt() As Double) 'Block aus Meridian laden. Einf№gepunkt wird in ACAD geklickt. 'dblEinfPkt --> Ausgabeparameter 'Beispiel: Dim dblEinfPkt(2) As Double ' Call Block_einfuegen_Klick("Fertigungszeichnungen\00 - keine Zuordnung\","SSI_ABSP_ELEM_AXB_SK_1_0000.DWG",dblEinfPkt()) Dim varEinfPkt As Variant Dim strBlockPfad As String Dim blockRefObj As AcadBlockReference boofehler = False ' Systemvariable pr№fen If Not getEnv("SSIBLACAD", strBlockPfad) Then MsgBox "Systemvariable 'SSIBLACAD' wurde nicht definiert" boofehler = True Exit Sub End If strBlockPfad = strBlockPfad & strPfadInMeridian 'Blockname definieren strBlockName = strBlockPfad & strBlockName 'Block laden Err.Clear On Error Resume Next varEinfPkt = ThisDrawing.Utility.GetPoint(, "Einf№gepunkt angeben [ESC = Abbruch]: ") If Err.Number = -2147352567 Then boofehler = True Exit Sub End If dblEinfPkt(0) = varEinfPkt(0) dblEinfPkt(1) = varEinfPkt(1) dblEinfPkt(2) = varEinfPkt(2) Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(dblEinfPkt, strBlockName, 1#, 1#, 1#, 0) If Err.Number = -2145386422 Then boofehler = True MsgBox "Der einzuf№gende Block existiert nicht" Exit Sub End If 'Block auflЎsen blockRefObj.Explode blockRefObj.Delete End Sub n{█HК╗S- ~ Ы с т ёцёцёцёцёцёцCJOJQJ^JaJCJOJQJ^JaJmH sH  nн╬Ў{Х░╓╫эЄ@ВЫм╖ыЁ 9>O]v┘■∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙7$8$H$т ■(3UwЩЮ % > v З Т Ч л ├ ┌ т ∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙∙ў7$8$H$,1Рh░В. ░╞A!░Й"░Й#РЙ$Рn%░░─░─ Р─ i<@ё < StandardCJ_HaJmHsHtHBA@Є бB Absatz-Standardschriftartт    т т т ╟сф  NierpEG:\Dokumente_CAD-EDM\Schulung_Mechanical\Venhoff\Public Sub Block.doc @АссTНt22сст@@  Unknown            GРЗz А Times New Roman5РАSymbol3&Р Зz А Arial"0ИЁ─йє+зfЇ+зf┘┘ !ЁЙЙ┤┤ББ0Ї2ГЁ  mPublic Sub Block_einfuegen_Klick(strPfadInMeridian As String, strBlockName As String, dblEinfPkt() As Double)NierpNierp■ рЕЯЄ∙OhлС+'│┘0└ИР$0<P `l И Фаи░╕фnPublic Sub Block_einfuegen_Klick(strPfadInMeridian As String, strBlockName As String, dblEinfPkt() As Double)gublNierp Sierier Normal.dotBNierp.d1erMicrosoft Word 9.0n@:5 :а╞@А°/:а╞┘┘■ ╒═╒Ь.УЧ+,∙о0d hpМФЬд м┤╝─ ╠ FфFritz Schфfer GmbH Ї№ nPublic Sub Block_einfuegen_Klick(strPfadInMeridian As String, strBlockName As String, dblEinfPkt() As Double) Titel ■   ■   ■    !"#$■   ¤   '■   ■   ■                                                                                                                                                                                                                                                                                                                                                           Root Entry         └F`гр<:а╞)А1Table             WordDocument        .SummaryInformation(    DocumentSummaryInformation8            CompObj    jObjectPool            `гр<:а╞`гр<:а╞            ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ■       └FMicrosoft Word-Dokument MSWordDocWord.Document.8Ї9▓q