аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\ 654, BE6.DLLVBA љџџџџ !‰ThisDrawingThisDrawing=C:\Programme\GemeinsVBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.tlb#AutoCAD 2008 Type LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\system32\stdole2.tlb#OLE Automation  џџ^Wandelt sichtbare 3D-Flфchenkanten in Linien umџџџџN9ЙHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџpр-RB(ШРVBA_Projectџџџџ…Ў"Шpр-RB(ШVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ…Ў"Шpр-RB(Ш §џџџ, ўџџџўџџџ !"#$%&'()*ўџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ ўџџџўџџџўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{4981BB0E-38C5-493E-A9CB-13BAA2479F7B}" Document=ThisDrawing/&H00000000 HelpFile="" Name="Flфchen_to_Line" HelpContextID="0" Description="Wandelt sichtbare 3D-Flфchenkanten in Linien um" VersionCompatible32="393222000" CMG="4745B8A2786E5A725A725A725A72" DPB="2D2FD2C85EAF5FAF5FAF" GC="1311ECF6D3F7D3F72C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 110, 747,PROJECTwmџџџџџџџџџџџџ&PROJECTџџџџШThisDrawingџџџџk7_VBA_PROJECTџџџџџџџџџџџџJ dirџџџџџџџџџџџџК__SRP_2џџџџџџџџџџџџўџџџ __SRP_3џџџџџџџџџџџџўџџџ__SRP_0џџџџџџџџџџџџўџџџВЖБ€0* pH‚dфFlфchen_to_Line/PWandelt sichtbare 3D-Rkanten (in ^ium@^handelt sicTh br 3D-FU!фe1k7tn5i L ;n uˆma=VЫ   N@9ЙH ‚<‚‚stdole>‚ s€HdoA€Ae f€\€*\G{000Р20430-C 0046}#2.0#0#C:\WINNT\system32\ƒ12.tlb#OLE Aut€omation/E‚Л‚ЊЬ € ThisDrawingXG™ižDrŒw„g 2€HB1ТEш(‹B,B #}"B +BBЬamџ фњ*\G{000204EF-0џџџџџџџџџџџџџџџџџџџџЊЬThisDrawing0848b93940џџThisDrawingџџ#}ш(џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkŠИsgВ-OЅлG€цЂBЫџџџџџџџџ`€oqџЄ4‚NameAutoCAD"јVBAїтWin16С~Win32MacГВVBA6­#Flфchen_to_LinePѕstdole“` ThisDrawingЙ5 €џџџ_EvaluateйF2L"‹sset3DFM1AcadSelectionSetЫЩmodeЄv StartPoint№ŒEndPointдybasePntyvpointsTElementў returnObjG6 AcadObjectЅ returnStringЈлlineObjmЙAcadLinee Selectionsetў ClearуЭacSelectionSetCrossingс kwordListJќUtility1JInitializeUserInputkЦFalsche_Eingabezm GetStringуЄErroŠ DescriptionО  inputStringcЪGetInputeMsgBox—RUCase5 PromptmvbCrLfЏЌ FilterTypeыв FilterDataЋ  VisibleLayers›іSelectOnScreenЛCount0vmaxШВakt tStr—еvbCr$ ObjectNameуФAcDbFaceЗDeleteИx Coordinates!kVisibilityEdge1ˆј ModelSpace_жAddLine8 Ei__SRP_1џџџџџџџџџџџџўџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџgenschaftenы„VisibilityEdge2‰јVisibilityEdge3ŠјVisibilityEdge4‹јi`Layers‚йItemзzLayerOn Freeze"ЈSS1Qе SelectionSetsгAddїrUrsprung8:NeuesLayerКЦLinetype›ђ LinetypeScaleРћ Lineweight­G TrueColorєлVisibleЖг AcadDocumentZ€џџџ_B_var_kwordListі _B_var_LeftQс _B_var_UCaseaЮ €џџџ_B_var_maxйo €џџџ_B_var_akt1 _B_var_StrЈ’€џџџ_B_var_i ЂProgramm‹_wandeltGxbarendKantenMЉnicht2Иund]п gefrorene2GrundАder5ƒ ErzeugungТ^VielflфchennetzeЕоkіnnenѕƒzur+ћ Auflіsungkƒ verwandeltЪ sichtbaren]benіtigt'nAblaufЏiAufrufчіќberП^oder~Чvbarun‰"AbfrageшЄ BestehendeъAuswahl>ФWeiterbearbeitungVYkannЂmitьГџџ<џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\ф(џџџџfт(ЊЬ#}џџ#ˆЖџџџџџџџџџџџџ&@К9 DГ4ЌМ+Чцo•ЛЋzОyL€$ыjђq#ј{— [BŽн7MЬоbЫџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@[LџџџџSџџџџS”џџџџ<џџ<џџ(<.<`џџ : ")аЄр% Prompt & Input cannot contain blanks%sрireturnString = ThisDrawing.Utility.GetString(False, "Enter text (a space or terminates input): ")Ќ€ 6 !8B@:Ѓ<0ЗЖ0Bestehende 3D-Flфchen lіschen ( Ja / Nein ) !8%>'* @œ @!BЖUser input is a keywordЌŽЌœр One of the keywords was entered]ђˆ @B@2F !8!F'*dџџPЖEnde durch Abbruch A@Hр*& Err.DescriptionF @B@2|џџkџџјрElseR рЙ*р Display point coordinatesрsMsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput Example"R рЙ*kџџ@ *Ж›GЖJa'*j@ЖJN *Ќ$м$J„ЌœрЙ*ЖEingabe nur Ja oder Nein ... N !8B@Lš<ИdџџА *Ќ$м$J'*kџџрRStartPoint = ThisDrawing.Utility.GetPoint(, "unteren Punkt fќr Fenster angeben: ")рOEndPoint = ThisDrawing.Utility.GetPoint(, "oberen Punkt fќr Fenster angeben: ")рVsset3DF.Select mode, StartPoint, EndPoint ', groupCode, dataCode 'Selektiert nur Texteрalternativ wфre auch mіglich:]ђ ]ђиЮЌтP(ЮЌтRHЌЌ+PрFilter nach Layer$TЌ+Rр%;Funktion sucht nach sichtbaren, nicht gefrorenen LayernamenvstЌCЌ+PрFilter ob Modell oder LayoutЌЌ+RрModell (0) / Layout (1)t\ЌЌ+PрFiltertyp Elementcodera~Ж3DFACEЌ+RрName des Elementess\ P R B@V1.0 !XЌ œр auswerten !X'ZysЌ'\џ $ў “r \Ќ '\gЖBearbeite Flфche \$^Ж von  Z$^Ж  ` !8B@Le\gэ $.&sam &!bъeieЖAcDbFaceKTF s™dиnџџаџ $ўШgrakџџИ B@2рElemente aus SS entfernentod B@fhar|џџpрM-----------------------------------------------------------------------------ogрM Ende HauptprogrammamрM-----------------------------------------------------------------------------amЃd` &!h'"liрLinien erzeugens &!jЗœ_Ќ$"Ќ+amЌ$"Ќ+liЌ$"Ќ+_sЌ$"Ќ+c:Ќ$"Ќ+\mЌ$"Ќ+\oэ   !l%n.,1_ *ЖJœo & ,ApakџџPkџџH &!rЗœeЌ$"Ќ+roЌ$"Ќ+caЌ$"Ќ+s\Ќ$"Ќ+c:Ќ$"Ќ+ uЌ$"Ќ+luэ   !l%n.,we *ЖJœa & ,Apokџџ`kџџX &!tЗœeЌ$"Ќ+d:Ќ$"Ќ+\aЌ$"Ќ+ilЌ $"Ќ+upЌ $"Ќ+ogЌ $"Ќ+caэ   !l%n.,8\ *ЖJœ: & ,Apmkџџpkџџh &!vЗœlЌ $"Ќ+elЌ $"Ќ+amЌ $"Ќ+ cЌ$"Ќ+08Ќ$"Ќ+:\Ќ$"Ќ+auэ   !l%n., 2 *ЖJœp & ,Apokџџ€kџџx *ЖJœa &B@fd ckџџPр Debug.Print returnObj.ObjectNamerцџџ oџџ–Pр"von CAD Hќbner ќber Foren AUGCE.deр5 Erzeugung einer Layerliste der eingeschalteten Layerр' in der Form ",Layer 1,Layer 2,Layer 3"џ xўЌ !z!XЌ ’І  x !z%|!~ x !z%|!€œ TЖ, x !z%|! 'Tkџџрџ xўШр MsgBox visibleLayersiџџЈ–А]ђ@џ ‚ў !„“ ‚! œр SS1.Clearэ ‚.0zџџHkџџ@џ ‚ўШэ  !„%†.0iџџ–` ˆ!Œ Š(Œ ˆ!Ž Š(Ž ˆ! Š( ˆ!’ Š(’ ˆ!” Š(” ˆ!– Š(–р,Neues.PlotStyleName = Ursprung.PlotStyleNameoџџh р( und nicht gefrorene Layer verwendet) Lр Grund der Erzeugung:t-рI Vielflфchennetze kіnnen zur DGM-Erstellung nicht verwendet werdenрG Auflіsung (Ursprung) verwandelt diese in 3dFlфchen mit zum TeilugрI nicht sichtbaren Kanten, es werden aber nur die sichtbaren Kantenр benіtigtflрAblauf:g)р, Auswahl der 3d-Flфchen am Bildschirm)Hрр@ Abfrage: Bestehende 3D-Flфchen lіschen ( Ja / Nein ) frр- (auch Eingabe von "alle" mіglich)lфchр? Weiterbearbeitung kann mit dem Acad.dvb von Lorenz erfolgen aр- (L2P : verbindet Linien zu 3d-Polylinien)lle"р oder -vbarun F2Lunр1 Aufruf ќber: ^C^C(command "vbarun" "F2L")рL Programm wandelt 3dFlфchen in einzelne Linien um, wobei die nicht sicht-рM baren Kanten nicht erzeugt werden (Hinweis: es werden nur nicht gesperrteџџџџЈ џџџџšИAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2' Programm wandelt 3dFlфchen in einzelne Lini um, wobei die n@icht s- 'bdn Kant€ƒerzeugt werd (Hinwe@is: es… nur&gesperrt€‚'undA† froreEayer verw’eYt)=Gr d€EBung:ƒ„:VielfC6netze kіnnР#zРDGM-Erstell@ D)ШAuflіs (Ursђpg)$ФPG€–РOSmit zuРm TeilHˆPх‰N,Gab€4AH\[I Шbenіtigt€Abla uf‰?€,ruf ќ: ^C^C (commР+ "vРun" "FИ2L"ESLФoСT-C РˆAbfrage: Be@Ode 3D-EIB’( Ja / N€“ ) <J>‰uswah$l 3d†am Bildschirmˆ С$(au0ch E€єРF von "alleР" mіgl QaDWeiterb$ea`it!6kann Ё1dem Acad.dvb‚LСKz erf olgen$(L2P :Ё;biСM Eazu@e-Pol ylbc€ hSuba$(РADim sset3 DF Asт SelectionS6e@5…m ,!In€teger StartPoint(0 To D2)СDouaŠ'Neu„s fќr  - KoorHdin€‚n р'rŒei C Endе  я чbРЅPnt!ЁVari@| 'wird gebrA2tЂ‚FunkСРtEntiXty 'SЅpsѓE LiH‚@Ш‡РTElemeЊ‡returnOb>jaA:@@,  k5€\tЂ;AфLр}ќcтkStrРIс#ћч ;eH Ё`“У8†;= ц:Р=("SСiAD@.CТl Q 'Lір2`уЁV ™orh‡Ё‘!kЁŸЁ'‚B= aJciFWРPow€A`^  wфhlaVсвCrossa'Ђggekre uzE On E‚r Ќ ResuрчИNexDTуЃ'Zќkw€L6m&Ђ#2“*'Рѓр‚Ё‚`ыЈѕ.Util€G.InitializeUserInpu t 1, Ч'0@ Leere&‚zulфАg, 1А Key‘ R=r0F'ёAd J = Пy.HGet("$gюea†?N >N@Cх Рvmpt & S c Hot c0ontaРb0[nkњsЯ gagŒ†Р b(", "р6АbtAP (a sb‰or <€3er> 5PmrAsА}`):6  Яy28ГЈГ ё€^_$Yџpgбџ•˜/ & dЁˆ=dnƒd уIfoA,рх0Ё PРComp( ..DeрscripqJp%# is a kѕC#"$)РpW@гТ' Opˆof thp„УРŒas Й’edИ3i+џѓ-32A‘ "BќŸйŸetB%˜EвЈЦMsgBox"€zdur`tAbbТrсt" '&Љ'lя УExРSuІbЙp›If'‹ ' Dis0Ћy _B`р/хjД/A'• TсWCS Ф#бЃŽ"`4s@i(0)р№[1_`t2),Ž @р3c8Exa0Д~e4HрqР"“ @#Ќ"Ъ"‚% mJaф „In`("JN№UCPs(Left6()%)Џ%_8y.Н4C"хŽ‘ PSр‚r•...QvbCrТL Go ‚l9џ3 Щ\ Я RqТ ФhћC''ŠŸJ"\ #‡Э`uŽ`М Pa‚B‹Fens I anщ€„enGI'ЅŠono@Щ__А%'ХxCu Iбr, 7 , f', groupC1а, d€м‘ 'C‘0Žert сTЯW@q+al ˜ќiv€yi"wдЉдQ1AFiqType(їRЮŸD€д’SќRe<ЃЁJ9b3GzX`4= 8 'бS na0BLзC‡cЂТVisiЈЅs@ 'іŸs`E—gЫ,эмn В~n№њ ЗЁ#R<= 67РŽC obD MРll Pr Ёou$ŠFтЕilterData(1) = 0 'Modell (0) / €Layout | tFШTyp(e(2Ш'&typ ElemenаTh;'auswerte‚n) maxяc . akt…For Each bTn In…3… F + 1 ThisDrawing.Utility.Prompt "Bearbeite Flфche " & PStr(€")"№ von X Т!‚ vbCr‡4Set returnxObj€_…V‰Ї аCase‡.@ @Y СbG  "AcD€bFace":Щ GoSub ‡E л GEnd УxсХNext†Y \IfУCЦllРO 'ee €x SSТ @ŸfernEzE D“teCExi„t @, '-?GРЯFf@:e Hauptprog0rammџ'K7 iDtpoin tsРEFG.Coo@rdinatхq'Lini€herz8eug+€mgVisibЂ[EdgeТ1СOrue aoC.Т [artPС сŠ|= #`b‘1ю)B‰2 ( Ж3ЯЩ 4Я‰ 5ЦссklineЄkшzТЅ„Spрd.Add€%e(St…, Ѕc& &'Strр‚€%"œJ"j%сoАEi - schaf—(І-м, ф& @ …di§x424f4G(чуХD0п‡(г(Рo46)Уmi47Я‰ 8Ц4cўe4!v44bEI4§ыh34f4G(t4‡(t4Уg?ts(9™ ?ь10џI1x<jŸ4rŸ4Ÿ4№J–_Ÿ4CўaŸ4erŸ4 _!–ѕр?.[4_пN„2Gћ_X(ho‡яpЊ:п(iЧTП4џuŒ__  _џNЅё6ћ_џNj_3bџ § 'k ˆѕS'Debќў1Pў lPўћ0&§ L  џўsTўє xџ D xџ XџWШўќіџџWШўcиў]ћ35Шў’(иў%џўЎШўBѕ\џІ5Шў(иў%џўЎШўBѕ\џІ5Шў(иў%џўЎШўBѕ\џІ5Шў(иў%џўЎШўBѕ@џІ5Шў(иў%џўЎШўBѕ@џІ5Шў(иў%џўЎШўBѕ@џІ5Шў=Hў@џMДў %\џMиў %јў$ јў lHў=џ)јўHў lџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ