vb
-
Entity 구별카테고리 없음 2015. 12. 12. 23:00
Public Sub EntityType() Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor Dim db As Database = ed.Document.Database Dim promptSelectionResult As PromptSelectionResult = ed.GetSelection() If promptSelectionResult.Status = PromptStatus.OK Then Dim selectionSet As SelectionSet = promptSelectionResult.Value Using acTrans As Transaction = ed.Document.TransactionManager.StartTran..
-
포인트 정렬2카테고리 없음 2015. 12. 10. 22:37
Imports System.Drawing Imports System.Collections.Generic Module Module1 Public Structure Man Dim Name As String Dim Age As Integer End Structure Sub Main() Dim dict As New Dictionary(Of PointF, Man) For i As Integer = 0 To 2 Dim pt As PointF = New PointF(i * 2, i * 3) Dim aMan As Man = New Man() aMan.Name = "Sam " + i.ToString aMan.Age = (i + 1) * 10 dict.Add(pt, aMan) Next Dim sortDict = (From..