설계와 프로그래밍

별칭 사용하기메일 주소에 + 기호 사용하여 필터링하기주소에 +기호와 함께 사용된 문자는 동일한 메일로 수신됩니다.예를 들어 janedoe@gmail.com : 기본주소janedoe+school@gmail.com janedoe+notes@gmail.comjanedoe+important.emails@gmail.com위 1.2.3 은 모두 기본주소 메일로 발송됩니다.회원 가입 혹은 메일 주소를 알려줄때 해당 주소를 알려주면 관리에 편합니다.상세 내용은 아래 구글 도움말의 별칭 사용을 참조 하시기 바랍니다.회원가입시 + 기호는 사용하지 못하게 하는곳도 많이 생겼으니 참고하시기 바랍니다.https://support.google.com/mail/answer/22370?hl=ko 점 으로 구분하기메일 주소에 점을 사..

iMBC 에서 운영하는 24시간 무도만 나오는곳회원가입 없이 광고후 시청. http://vodmall.imbc.com/player/mudo.aspx

치명적 오류를 줄이는 방법에 대하여... 치명적 오류가 발생되는 이유는 여러가지 입니다. 특정 상황에서 발생되는 오류는 구글 검색으로 해결할수 있습니다. 그런 오류의 대부분은 재 설치하거나 초기화하는 방법으로 해결 할수 있습니다. 오늘 이야기하고자 하는 내용은 특정 상황에 대한 오류가 아닌 언제 일어날지, 혹은 왜 일어나는지 모를 오류에 대한 이야기를 하고자 합니다. 모든 오류가 이것 때문인 것은 아니지만, 제가 느낀 오류의 80%는 이것 때문이였습니다. 제가 이야기하고자하는 이것은 바로 한글폰트 입니다. 제가 이야기 하는 한글폰트 문제는 영문 운영체제에 영문 캐드를 사용해야 한다는 이야기가 아닙니다. 저도 한글 윈도우에 한글 캐드 사용자입니다. 회사엔 회사마다 사용하는 폰트가 존재합니다. 일하다 보면 ..

Solid Edge 좌표계 자동 작성 매크로 입니다.Excel 이용해 좌표계 생성 하는 매크로입니다. 코드 소스Option Explicit 'Excel -> Edge Sub Make_Coordnate() On Error Resume Next Dim EDGE As SolidEdgeFramework.Application Dim EDoc As SolidEdgePart.PartDocument Dim OldStBar As String Set EDGE = GetObject(, "SolidEdge.Application") If EDGE Is Nothing Then Err.Clear Set EDGE = CreateObject("SolidEdge.Application") Set EDoc = EDGE.Documents.A..

레이어 관련 명령어... LT 버전은 리습이나 VBA를 사용할 수 없습니다. 그 중 레이어 관련 리습과 비슷한 효과를 낼 수 있는 방법이 있어 소개할까 합니다. 기본 명령어LAYISO 설정(S) : 1. 기본설정은 선택한 요소의 레이어 이외 다른 레이어는 잠금 및 페이드로 변경됩니다.2. 끄기(O) : 선택한 레이어만 화면에 표시하고 나머지 레이어는 끕니다. 위 설정은 컴퓨터를 재 부팅해도 유지됩니다. 끄기로 사용하며 PGP 단축키를 숫자키나 간단한 키로 변경하여 사용하면 편합니다.LAYUNISOLAYISO의 복원LAYON 모든 레이어 켜기LAYOFF선택한 요소의 레이어 끄기LAYFRZ선택한 요소의 레이어 동결LAYTHW모든 레이어 동결해제LAYLCK선택한 요소의 레이어 잠금LAYULK선택한 요소의 레이..

실린더 구속조건에 대하여... 장비 설계를 하다 보면 가장 많이 사용하는 구매품이 실린더입니다.실린더는 종류도 많고 사이즈도 다양하다 보니 예전에 사용한 적 없던 사양이라면 다시 다운받아 구속조건을 설정하는 건 참 귀찮은 일입니다.최소한의 시간으로 가장 실린더다운 움직임을 구현하는 법 한 가지를 알려드리려 합니다. 실린더 구속 그림처럼 어셈블리 내 하나의 실린더를 추가해 넣고 Base 부품에 실린더를 고정했습니다.그럼 이동물체를 실린더 로드에 연결하면 완료 되는데 새로 다운 받은 실린더는 구속조건이 전혀 없으므로 컴포넌트 드래그1) 기능을, 다시 말해 실린더 구동 시뮬레이션을 할 수 없는 상태입니다.위 처럼 조립해 실린더 로드의 위치만 이동시켜 사용하는 곳도 있고, 실린더 내부를 다시 구속해 정석대로 가..

선택한 블럭을 영역내에서 삭제하는 소스입니다. Sub DeleteBlock() AppActivate ThisDrawing.Application.Caption On Error Resume Next Dim Doc As AcadDocument Set Doc = ThisDrawing Doc.Utility.Prompt vbCr & "블럭 제거프로그램..." Dim SelObjO As AcadObject Dim P1 As Variant Doc.Utility.GetEntity SelObjO, P1, "영역내 찾을 블럭을 선택하세요..." If SelObjO.ObjectName "AcDbBlockReference" Then Doc.Utility.Prompt vbCr & "블럭이 아닙니다..." Exit Sub End ..

블럭 선택과 필터에 대하여...본 코드는 BricsCAD에서 사용중인 코드입니다. AutoCAD와 다를수 있으니 참고바랍니다.코드 전체글: [CAD/VBA] - 자동출력 VBA 이 글은 코드 전체 중 블록 설정에 대한 부분만 있습니다.코드 중 수정이 필요하다고 판단되는 부분은 블록이름입니다.블럭 이름 '출력 폼 블럭의 이름 Dim BName(2) As String BName(0) = "A$C7E9A3D3E" BName(1) = "A$C220D1AB8" BName(2) = "Form A4" Dim BNC As Integer BNC = UBound(BName) + 2 ReDim FilterType(BNC) As Integer ReDim FilterData(BNC) As Variant FilterType(0)..

프린터 설정에 대하여...본 코드는 BricsCAD에서 사용중인 코드입니다. AutoCAD와 다를수 있으니 참고바랍니다.코드 전체글: [CAD/VBA] - 자동출력 VBA 이 글은 코드 전체 중 프린터 설정에 대한 부분만 있습니다.프린터 설정중 수정이 필요하다고 판단되는 부분은 프린터 이름, 플롯 스타일 이름입니다.프린터 Dim Layout As AcadLayout Set Layout = Doc.ActiveLayout With Layout .ConfigName = PrntName .StandardScale = acScaleToFit .StyleSheet = "acad.ctb" .PlotWithPlotStyles = True .PlotType = acWindow .PlotRotation = ac90degr..

도면 정렬에 대하여...본 코드는 BricsCAD에서 사용중인 코드입니다. AutoCAD와 다를수 있으니 참고바랍니다.코드 전체글: [CAD/VBA] - 자동출력 VBA 이 글은 코드 전체 중 출력 순서에 대한 부분만 있습니다.회사마다 도면을 정렬하는 방식이 달라 4가지 방식으로 구분 하였으니 그 중 자신의 회사와 맞는 방식을 확인하여 코드를 수정하시기 바랍니다. 출력 순서Enum 문(열거형변수)으로 정의. Enum PrtSquence TD TU DD DU End Enum 1. TD : 한줄 출력후 아래로 내려오며 반복. 정렬기준점은 좌측하단.2. TU : 한줄 출력후 아래로 내려오며 반복. 정렬기준점은 좌측상단.3. DD : 한줄 출력후 위로 올라가며 반복. 정렬기준점은 좌측하단.4. DU : 한줄 출..