Jump to content

Latest VICMAP?


Guest Trekiez

Recommended Posts

Guest Trekiez

This question is really only relevant to those living in Victoria, Australia. I've been searching for the latest version of VICMap to use for approximate Title Boundaries in my drafting. Does anyone know the latest version of VICMap available and where to get it from?

My current version is VICMap January 2011, which does not include some titles around the Phillip Island/Cowes area.

I know there is a very limited audience to answer this question, but thank you in advance.

 

EDIT: I have looked on google for answers but I cannot find anything.

Link to comment
Share on other sites

Guest Trekiez

That is what what I use to find exact addresses, but the files I am looking for come in a huge pack of RARs which contain Titles drawn in AutoCAD. I can then copy and paste these titles out of the VICMap .DWG into my drawing and use them as approximate title boundary dimensions.

I was just wondering whether I can get these RAR files, I haven't had any luck so far.

Thanks for help!

Link to comment
Share on other sites

You probably have to buy them. People sell AutoCad maps etc.

 

You could try contacting the Councils in your area and ask nicely if they are willing to do a bulk export of property boundaries from their GIS system. If your company has a good relationship with the Council then you will probably find the Council(s) will do this. The accuracy is often not that great though; scaling off of Google maps is often just as good for conceptual work. Unless you are only using it to show adjacent boundaries (or similar) to your subject site of interest then you shouldn't rely on these external sources.

Link to comment
Share on other sites

I can't answer with knowledge of Victoria either, but recently the Queensland Government have made a lot of spatial data freely available online. Most of anything useful is in GIS formats, requiring AutoCAD Map at the very least, or MapInfo, ArcInfo, etc. If that's a trend, then you might find they have done something? The Qld Cadastre is updated every two weeks.

Link to comment
Share on other sites

Had a quick look http://services.land.vic.gov.au/maps/interactive.jsp it exports out jpgs that are georeferenced we found a nice lisp that rescales the geo reference for our images, pretty sure to go to next level you have to pay. Basicly with my job I am online to the full GIS so no probs.

 

Note need to change JGW to PGW

;;;Reads world tiff file (.jgw) to scale and place image correctly in autocad.
;;;First insert all tiff images into drawing at whatever scale and insertion point.
;;;If the jgw exists in same directory and is named the same as the image selected,
;;;it will automatically be found and the image will be scaled and placed. If it is
;;;not in the same directory, the user can browse for the file.
;;;03.23.2011 Added support to create jgw files as well as support rotated images 
;;;Needs a file with 6 lines (ScaleX Rotation -Rotation -ScaleY TopLeftXCoord TopLeftYCoord)
;  « Last Edit: April 12, 2011, 09:43:43 am by ronjonp »  
(vl-load-com)
 (defun ss->lst (ss / e n out)
   (setq n -1)
   (while (setq e (ssname ss (setq n (1+ n)))) (setq out (cons (vlax-ename->vla-object e) out)))
 )
 (defun _writefile (filename lst / file result)
   (cond ((and (eq 'str (type filename)) (setq file (open filename "w")))
   (foreach x lst
     (write-line
       (cond ((= (type x) 'str) x)
      ((= (type x) 'int) (itoa x))
      ((= (type x) 'real) (rtos x 2 6))
      ((vl-prin1-to-string x))
       )
       file
     )
   )
   (close file)
   filename
  )
   )
 )
 (defun _readfile (filename / file result)
   (cond
     ((and (eq 'str (type filename)) (setq file (open filename "r")))
      (while (setq line (read-line file)) (setq result (cons (vl-string-trim " " line) result)))
      (close file)
      (reverse result)
     )
   )
 )
 (setq opt "ReadIt")
;  (initget 0 "ReadIt WriteIt")
;  (setq opt (cond ((getkword (strcat "\nImage World File [ReadIt/WriteIt] <" opt ">: ")))
;    (opt)
;     )
; )
 (princ "\nSelect image(s): ")
 (setq pre (getvar 'dwgprefix))
 (if (and (setq ss (ssget '((0 . "image")))) (setq ss (ss->lst ss)))
   (foreach image ss
     (setq name    (vlax-get image 'name)
    hgt     (vlax-get image 'height)
    wdth    (vlax-get image 'width)
    imhgt   (vlax-get image 'imageheight)
    imwdth  (vlax-get image 'imagewidth)
    rot     (vlax-get image 'rotation)
    bpt     (vlax-get image 'origin)
    imgpath (vl-filename-directory (vlax-get image 'imagefile))
    jgw     (strcat imgpath "\\" name ".jgw")
     )
     (if (= opt "ReadIt")
(progn
  (if (and (or (setq jgw (findfile (strcat pre name ".jgw")))
        (setq jgw (findfile (strcat imgpath "\\" name ".jgw")))
        (setq jgw (getfiled (strcat "***Select <<" name ".jgw>>***") pre "jgw" 16))
    )
    (setq pre (strcat (vl-filename-directory jgw) "\\"))
    (setq data (mapcar 'atof (_readfile jgw)))
    (> (length data) 5)
    (setq l1 (car data))
    (setq mvpt (list (nth 4 data) (nth 5 data) 0.0))
      )
    (progn (vla-put-imageheight image (* hgt l1))
    (vla-put-imagewidth image (* wdth l1))
    (vla-put-rotation image (cadr data))
    (setq rot (vlax-get image 'rotation))
    (setq bpt (polar bpt (+ (/ pi 2.) rot) (* hgt l1)))
    (vlax-invoke image 'move bpt mvpt)
    (princ (strcat "\njgw File Read - " jgw))
    )
    (princ "\njgw file NOT found or not correctly formatted!")
  )
)
(progn (setq bpt (polar bpt (+ (/ pi 2.) rot) imhgt))
       (if (setq jgw (_writefile
         (strcat imgpath "\\" name ".jgw")
         (list (/ imhgt hgt)
        rot
        (strcat "-" (rtos (abs rot) 2 6))
        (strcat "-" (rtos (abs (/ imwdth wdth)) 2 6))
        (rtos (car bpt) 2 6)
        (rtos (cadr bpt) 2 6)
         )
       )
    )
 (print jgw)
 (princ "\nError writing file...")
       )
)
     )
   )
 )
 (princ)
;(command "layer" "n" "Image" "")
;(command "chprop" "L" "" "la" "IMAGE" "")
;(setq obj (entlast))
;(command "draworder" obj "" "B") 


;  « Last Edit: Dec 16 2011 send to back added by alan »

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...