#Input sceenx screeny code#

Line 6: Y coordinate of centre of upper left pixel Line 5: X coordinate of centre of upper left pixel (screen x=0 y=0) Line 4: Pixel size in the y-direction (drawing units/pixel), almost always negative Line 3: Rotation about x-axis (not used) Line 2: Rotation about y-axis (not used) Line 1: Pixel size in the x-direction (drawing units/pixel) (setq Myfilename (getfiled 'Save World File As' Myfilename 'mfw' 1)) (setq MyDwgNameOnly (substr MyFullDwgName 1 (- (strlen MyFullDwgName) 4))) write ESRI world file (rename as needed later) (setq YUL_Ctr (+ Ymax (* 0.5 YPixelSize))) half a y-pixel down from Ymax (YPixelSize is negative) (setq XUL_Ctr (+ Xmin (* 0.5 XPixelSize))) half an x-pixel right of Xmin Centre of Upper Left X and Y pixel (*** not upper left edge edge of pixel) (prompt ' Y pixel size = ')(princ YPixelSize)(princ) (prompt ' X pixel size = ')(princ XPixelSize) (setq YPixelSize (/ (- Ymin Ymax) ScreenY)) typically negative (setq XPixelSize (/ (- Xmax Xmin) ScreenX)) positive draw a polyline boundary around the viewport limits

(prompt ' Ymin = ')(princ Ymin)(prompt ' Ymax = ')(princ Ymax)(princ) (prompt ' Xmin = ')(princ Xmin)(prompt ' Xmax = ')(princ Xmax)(princ) Corner of viewport / screen (in drawing units) (setq OffsetX (* 0.5 ViewHeight MyAspectRatio)) Center of view in the current viewport (drawing units) Height of the view in the current viewport (drawing units)

(prompt ' Aspect Ratio = ')(princ MyAspectRatio)(princ) (prompt ' Acad viewport width = ')(princ ScreenX) (setq ScreenY (float (cadr MyScreenSize))) (setq ScreenX (float (car MyScreenSize))) (setq MyScreenSize (getvar 'screensize'))

Write world file for use with Windows Meta File (or. (defun C:WMF_World ( / MyScreenSize ScreenX ScreenY MyAspectRatio ViewHeight HalfView)

#Input sceenx screeny code#

I couldn't find my original circa 2005 or 2008 post, so here is a re-upload of Autolisp code to write a Windows Meta File world coordinates fileĪlso, it is really easy using AutoLisp to write node (point) coordinates, link (polyline) vertices and catchment (closed polyline) boundaries to a text file (or excel spreadsheet) as SWMM 5 input format.