Chuyển đổi tỷ lệ

Thảo luận trong 'Giải đáp thắc mắc các phần mềm của Bentley' bắt đầu bởi phtl, 1/11/11.

  1. phtl

    phtl New Member

    Tham gia ngày:
    28/10/11
    Bài viết:
    29
    Đã được thích:
    0
    Điểm thành tích:
    0
    Mong mọi người giúp đỡ cách chuyển tỷ lệ từ 1/1000 sang 1/500.
    Thank mọi người.
     
    Tags:
  2. vuminhtuan

    vuminhtuan Administrator Thành viên BQT

    Tham gia ngày:
    20/10/11
    Bài viết:
    1,308
    Đã được thích:
    41
    Điểm thành tích:
    48
    Giới tính:
    Nam
    Nơi ở:
    Tp. HCM
    Theo mình nghĩ: Trong GIS có chức năng đơn giản hóa đối tượng.

    Tuy nhiên chúng ta không cần sử dụng chức năng này. Bản đồ 1/1000 và 1/500 thì khác nhau các biên tập thôi (lượng thông tin trên bản đồ nhiều hay ít). Bạn chỉ cần trình bày lượng thông tin phù hợp với tỷ lệ là được.

    PS: Đây chỉ là ý kiến cá nhân
     
  3. Le Xuan Truc

    Le Xuan Truc New Member

    Tham gia ngày:
    20/11/11
    Bài viết:
    17
    Đã được thích:
    0
    Điểm thành tích:
    0
    Em xin chào quý anh chị diễn đàn!
    Cái chuyển dổi tỷ lệ ở phần micro thì nhiều lắm, Mới qua chẳng biết cái up lên diễn đàn chổ nào nhỉ? Bạn tìm trong các phần mềm hổ trợ nó đều có hết
     
  4. pho_noi

    pho_noi New Member

    Tham gia ngày:
    9/11/11
    Bài viết:
    23
    Đã được thích:
    0
    Điểm thành tích:
    1
    Hello bác Trực của Hòa Phát.
    Rất mong bác đóng góp sức của mình để diễn đàn phát triển.
     
  5. hoang long dc

    hoang long dc New Member

    Tham gia ngày:
    16/11/11
    Bài viết:
    3
    Đã được thích:
    0
    Điểm thành tích:
    0
    Các bạn đọc lại cách phân mảnh bản đồ ấy, trong Micro thì bản vec là kích thước thật cả thôi, khi in làm khung và in ra theo tỉ lệ bạn mong muốn.

    Hệ thống phân mảnh và danh pháp bản đồ
    Bản đồ địa chính tỉ lệ 1:200, 1:500, 1:1000, 1:2000 thực hiện trên bản vẽ hình vuông.
    Căn cứ vào kinh tuyến trung ương đã được chọn theo quy định tìm 4 góc có tọa độ chẵn đến km bao kín toàn bộ ranh giới hành chính của tỉnh, thành phố hoặc kín khu vực lớn hơn để chia mảnh.
    Cơ sở để chia mảnh và đánh số hiệu (còn gọi là phiên hiệu) mảnh bản đồ địa chính tỷ lệ 1:200, 1:500, 1:1000 là mảnh và số hiệu mảnh bản đồ địa chính tỷ lệ 1:5000 và 1:2000 được quy ước như sau:
    Từ góc trái trên, toàn khu đo chia thành lưới ô vuông có kích thước trên thực tế là 3x3km, mỗi ô là một mảnh bản đồ địa chính1:5000 có diện tích 900 ha và kích thước hữu ích trên bản vẽ là 60x60cm. Số hiệu mảnh bản đồ 1:5000 là 3 số chẵn km tọa độ X đứng trước, tiếp đến là 3 số chẵn tọa độ Y(Ví dụ 440320).
    Mảnh bản đồ địa chính tỷ lệ 1: 5000 chia thành 9 mảnh bản đồ địa chính tỷ lệ 1:2000 (mỗi cạnh chia :relievedface: có kích thước thực tế là 1x1km diện tích là 100 ha và kích thước hữu ích của bản vẽ là 50x50cm.
    Đánh số các mảnh bản đồ tỷ lệ 1: 2000 bằng số ả rập theo thứ tự từ trái sang phải từ trên xuống dưới. Số hiệu mảnh bao gồm số hiệu mảnh bản đồ 1:5000, gạch nối (-) và số thứ tự mảnh 1: 2000. Ví dụ 440320-8
    Sử dụng mảnh bản đồ 1: 2000 làm cơ sở chia và đánh số hiệu mảnh bản đồ tỷ lệ 1:1000, 1:500, 1: 200 như sau:
    Chia mảnh bản đồ 1: 2000 thành 4 mảnh tỷ lệ 1: 1000 có kích thước thực tế 500mx500m, diện tích là 25 ha và kích thước của tờ bản đồ là 50x50cm. Đánh số các mảnh bản đồ 1:1000 bằng chữ cái thường a, b, c, d từ trái sang phải, từ trên xuống dưới.
    Số hiệu mảnh bao gồm số hiệu mảnh bản đồ 1: 2000, gạch nối (-) và chữ cái tương ứng. Ví dụ 440320-8-a.
    Chia mảnh bản đồ tỷ lệ 1:2000 thành 16 mảnh bản đồ 1:500 . Đánh số từ 1 đến 16, có kích thước thực tế 250mx250m, diện tích là 6.25 ha và kích thước của tờ bản đồ là 50x50cm. Số hiệu mảnh bản đồ 1:500 bao gồm số hiệu mảnh bản đồ 1: 2000, gạch nối (-) và số thứ tự từ 1 đến 16 . Ví dụ 440320-8-16
    Chia mảnh bản đồ 1:2000 thành 100 mảnh tỷ lệ 1:200 có kích thước thực tế 100x100m, diện tích là 1 ha và kích thước của mảnh bản đồ là 50x50cm. Đánh số các mảnh bản đồ tỷ lệ 1:200 bằng số ả rập từ trái sang phải từ trên xuống dưới.
    Ngoài phiên hiệu như trên, bản đồ gốc ĐCCS còn có tên mảnh. Tên mảnh bản đồ là tên của đơn vị hành chính chiếm diện tích lớn nhất trong phạm vi mảnh. Khi lập bản đồ địa chính theo đơn vị hành chính xã thì tên mảnh bản đồ là tên của đơn vị hành chính.
    Kích thước khung mảnh bản đồ địa chính lớn hơn kích thước khung mảnh bản đồ địa chính cơ sở là 10 hoặc 20 cm (nghĩa là mảnh bản đồ địa chính trong đơn vị hành chính cấp xã có độ gối phủ là 5 hoặc 10 cm ở mỗi cạnh khung bản đồ).
    Đối với các địa phương có tập quán quản lý địa chính ở cấp xã theo làng, thôn, ấp, bản có thể nhân bản thành các bộ bản đồ địa chính phù hợp với tình hình quản lý của địa phương theo nguyên tắc mỗi làng, thôn, ấp, bản có một bộ bản đồ địa chính cho phần diện tích được giao quản lý. Trong trường hợp này tên gọi của mảnh bản đồ địa chính phải thêm tên làng, thôn , ấp, bản.
    [FONT=&quot][/FONT]
     
  6. Le Xuan Truc

    Le Xuan Truc New Member

    Tham gia ngày:
    20/11/11
    Bài viết:
    17
    Đã được thích:
    0
    Điểm thành tích:
    0
    Đây mã nguồn nè bác cứ tham khảo rồi thiết kế cho mình một cái nó đẹp.Làm biếng up cái chương trình hoàn thiện nên up mã cho ae tham khảo.

    Đây: Đăng kí hoặc đăng nhập để xem link
    public tlTEXT as double
    public tlSTYLE as double
    public TLold as String
    public TLnew as String
    public Tbao as integer
    '---------------
    sub TYLE
    Dim TD as string
    ' Xac dinh ty le doi Nhan thua
    TD = MbeInputBox ("Nhap ty le ban do Cu:", "10000", "Nhap ty le ban do")
    if TD="" then
    end
    end if
    TLold=TD

    TD = MbeInputBox ("Nhap ty le ban do Moi:", "25000", "Nhap ty le ban do")
    if TD="" then
    end
    end if
    TLnew=TD
    tlTEXT=val(TLnew)/val(TLold)
    tlSTYLE=val(TLnew)/1000
    end sub
    '-----------------
    sub Change_Style(InsetMember as MbeSetMember,Inelem as MbeElement, Style as string, ScanleStyle as double)
    Dim point as MbePoint
    MbeSendCommand ("LC="+Style)
    MbeSendCommand "CHANGE ICON "
    MbeSetAppVariable "LSTYLE", "tcb->lineStyle.modifiers", 1&, 1&
    MbeSetAppVariable "LSTYLE", "tcb->lineStyle.scale", ScanleStyle#
    MbeLocateElement InsetMember.filePos, Inelem.componentFilePos, _
    InsetMember.fileNum, point
    If MbeState.cmdResult <> MBE_ElementNotFound Then
    MbeSendDataPoint point
    End If
    MbeSendCommand "NULL"
    end sub
    '------------------------------------
    Sub main
    Dim elemSet as New MbeElementSet
    Dim elem as New MbeElement
    Dim setMember as MbeSetMember
    dim range as MbeRange
    Dim point as MbePoint
    Dim filePos as Long
    Dim fileNum as Integer
    Dim saveGGLk as Integer
    Dim saveMsgs as Integer
    Dim Tbao as integer
    dim ss1 as integer

    TLold="10000"
    TLnew="25000"

    saveGGLk = MbeSettings.graphGroupLock
    MbeSettings.graphGroupLock = 0
    saveMsgs = MbeState.messages
    MbeState.messages = 0
    ' MbeSendCommand "CHOOSE ALL "

    If elemSet.fromSelectionSet (1) <> MBE_Success Then
    If elemSet.fromFence () <> MBE_Success Then
    MbeWriteStatus "Chua chon Fence"
    Tbao=MbeMessageBox("B¹n ch&shy;a chän ®èi t&shy;îng!"+chr$(10)+"H·y chän ®èi t&shy;îng b»ng FENCE")
    if Tbao=3 then
    MbeSendCommand "PLACE FENCE BLOCK "
    MbeSendCommand "LOCK FENCE INSIDE "
    MbeWriteStatus "H·y chän ®èi t&shy;îng b»ng Fence"
    end if
    Else
    MbeWriteStatus "Chän ®èi t&shy;îng b»ng Fence"
    ' call TYLE
    End If
    Else
    MbeWriteStatus "Chän ®èi t&shy;îng binh thuong"
    ' call TYLE
    End If
    MbeSendCommand "MARK"
    status = elemSet.getFirst (setMember)

    ss1=MBEOPENMODALDIALOG(1)
    if ss1<>MBE_BUTTON_OK THEN
    end
    end if
    tlTEXT=val(TLnew)/val(TLold)
    tlSTYLE=val(TLnew)/1000
    ' Danh dau bang Change Element
    MbeSendCommand "CHANGE ICON "
    MbeSetAppVariable "", "msToolSettings.changeElement.level", 0&
    MbeSetAppVariable "", "msToolSettings.changeElement.color", 0&
    MbeSetAppVariable "", "msToolSettings.changeElement.weight", 0&
    MbeSetAppVariable "", "msToolSettings.changeElement.class", 0&
    MbeSetAppVariable "", "msToolSettings.changeElement.style", 1&
    MbeSetAppVariable "LSTYLE", "tcb->lineStyle.modifiers", 1&, 1&
    MbeSetAppVariable "LSTYLE", "tcb->lineStyle.scale", tlSTYLE#
    MbeSendCommand "NULL"

    Do While status = MBE_Success
    filePos = elem.fromFile (setMember.filePos, setMember.fileNum)

    ' Doi ty le TEXT, CELL
    If ((elem.type = 2) or (elem.type = 35) or (elem.type = 17) or (elem.type = 7)) and (elem.level <> 5:relievedface: Then
    If elem.getOrigin (point) = MBE_Success Then
    If elem.type = 2 then
    if Elem.cellName="N_THUA" and elem.getRange(range) = MBE_Success Then
    point.x=(range.xLow+range.xHigh)/200
    point.y=(range.yLow+range.yHigh)/200
    end if
    end if

    MbeSendCommand ("as="+cstr(tlTEXT))
    MbeSendCommand "SCALE"
    MbeLocateElement setMember.filePos, elem.componentFilePos, _
    setMember.fileNum, point
    ' If MbeState.cmdResult <> MBE_ElementNotFound Then
    MbeSendDataPoint point
    ' End If
    MbeSendCommand "NULL"
    End If
    End If

    ' Doi ty le cac loai duong
    If (elem.type = :relievedface: or (elem.type = 4) or (elem.type = 6) or (elem.type = 15) or (elem.type = 16) Then
    if elem.style = "ghi chu do rong" or elem.style = "muiten" then
    Call Change_Style (setMember,elem,elem.style,(tlSTYLE/10))
    else
    if elem.style<>"0" then
    Call Change_Style (setMember,elem,elem.style,tlSTYLE)
    end if
    end if

    end if
    status = elemSet.getNext (setMember)
    Loop
    'clear selection set
    elemSet.clear
    ' restore graphic group lock and messages
    MbeSettings.graphGroupLock = saveGGLk
    MbeState.messages = saveMsgs
    End Sub
     
    Last edited by a moderator: 1/12/11
  7. ceo

    ceo Member

    Tham gia ngày:
    21/10/11
    Bài viết:
    35
    Đã được thích:
    0
    Điểm thành tích:
    6
    Bạn có emap hay TMV.Map không? vào Emap hoặc TMV.Map ---> Tiện ích--->Tiện ích khác--->Đổi tỷ lệ bản đồ--->Nhập tỷ lệ cũ-Tỷ lệ mới rồi click Đổi là xong.Nếu k có up file lên đây mình đổi cho

    [​IMG]
     
    Last edited by a moderator: 1/12/11
  8. TEO-GIS

    TEO-GIS New Member

    Tham gia ngày:
    18/6/12
    Bài viết:
    11
    Đã được thích:
    0
    Điểm thành tích:
    0
    Bạn lấy tools doityleBD.ma trong phần mềm emap hay TMV và load như famis chọn tỉ lệ cần chuyển là ok.
     
  9. lambinh

    lambinh New Member

    Tham gia ngày:
    2/1/15
    Bài viết:
    1
    Đã được thích:
    0
    Điểm thành tích:
    0
    moi nguoi co the cho minh hoi mot chut .ai biet huong dan minh voi.minh muon chuyen ban do tu ty le 1/1000 sang ty le 1/500 de in tren giay a3 cho vua kho giay .ban ve cua minh so voi ban a3 thi nho qua.mong moi nguoi giup .minh in kho a4 ty le 1/1000 thi ok roi.minh muon in sang kho giay a3 cho ban ve to hon nhin hop ly voi kho giay.cam on moi nguoi
     
    Last edited by a moderator: 2/1/15
  10. Aliosa

    Aliosa New Member

    Tham gia ngày:
    6/1/15
    Bài viết:
    2
    Đã được thích:
    0
    Điểm thành tích:
    0
    Chuyển đổi tỉ lệ

    Em cũng muốn theo dõi topic này để biết cách tính chuyển đổi tỉ lệ 1:1000
     
  11. tranqly

    tranqly Member

    Tham gia ngày:
    1/6/12
    Bài viết:
    73
    Đã được thích:
    0
    Điểm thành tích:
    6
    Khi đã là bản đồ số thì việc in ấn theo tỉ lệ rất thuận lợi.
    Trong Arcgis (Arcmap) muốn xuất ra giấy ta chuyển sang mục layout, và có ô nhập tỷ lệ thì bản vẽ sẽ thu phóng theo tỷ lệ đó và cũng cho phép mình chọn khổ giây rất dễ dàng bạn ạ!
     

Chia sẻ trang này

Share
Đang tải...