surveyor Posted January 15, 2007 Share Posted January 15, 2007 On the last couple of jobs I have done the contour labels are printing out upside down, even though they look fine on the screen. When I have someone else print out the same job it comes out fine. The LABEL POSITION is set to MAKE PLAN READABLE. Any ideas? I use acad 2006 / ldd Quote Link to comment Share on other sites More sharing options...
CyberAngel Posted January 16, 2007 Share Posted January 16, 2007 Contours are basically polylines. A label will follow the direction of the pline segment it's on. The only ways I know to make the label appear right-side up are either to explode the contour or to redraw it in the opposite direction. Does anyone have a better way? Quote Link to comment Share on other sites More sharing options...
eldon Posted January 16, 2007 Share Posted January 16, 2007 In the Contour Style Manager dialog box, under Readability, there are two settings - Make Plan Readable and Label Positive Slope. Perhaps they are set differently in the different plots. The Contour label alignment does have significance to those who know. The top of the text should be uphill, so when you are looking at the plan with the labels the right way up, you know you are looking uphill. Only one label on one contour is needed to discover uphill. Quote Link to comment Share on other sites More sharing options...
daiharv Posted January 17, 2007 Share Posted January 17, 2007 If you have to end up reversing the direction of a polyline/contour you could use the lsp below: ;;; RPL.LSP a program to reverse the direction of polylines ;;; Program by Tony Hotchkiss. Enter RPL to start the program. (prompt "\nType RPL to run command." ) (defun c:rpl () (setq again nil) (setq p-ent nil) (prompt "\nSelect a polyline: ") (while (not p-ent) (setq p-ent (car (entsel))) (if (not p-ent) (prompt "\nNo object selected; select again: " ) ;_ end of prompt (progn (if (and (/= (dxf 0 p-ent) "POLYLINE") (/= (dxf 0 p-ent) "LWPOLYLINE") ) ;_ end of and (progn (prompt "\nNot a polyline, select again:" ) ;_ end of prompt (setq p-ent nil) ) ; progn ) ;_ end of if ) ;_ end of progn ) ;_ end of if ) ;_ end of while (setq etype (dxf 0 p-ent) x-ent p-ent is-closed (dxf 70 p-ent) ) ; setq (if (= etype "LWPOLYLINE") (progn (setq num-vert (dxf 90 p-ent) elist (entget p-ent) elist (member (assoc 10 elist) elist) vvlist nil ) ; setq (repeat num-vert (setq vlist (list (cdr (assoc 10 elist)))) (setq vlist (append vlist (list (cdr (assoc 42 elist))) ) ;_ end of append ) ;_ end of setq (setq vvlist (append vvlist (list vlist) ) ;_ end of append ) ;_ end of setq (setq elist (cdr elist) elist (member (assoc 10 elist) elist) ) ; setq ) ; repeat ) ; progn lwpolyline (progn (setq vvlist nil p-ent (entnext p-ent) ) ; setq (while (/= "SEQEND" (cdr (assoc 0 (entget p-ent)) ) ;_ end of cdr ) ;_ end of /= (setq vlist (list (dxf 10 p-ent))) (setq vlist (append vlist (list (dxf 42 p-ent)) ) ;_ end of append ) ;_ end of setq (setq vvlist (append vvlist (list vlist) ) ;_ end of append ) ;_ end of setq (setq p-ent (entnext p-ent)) ) ; while ) ; progn polyline ) ; if (setq p-list (mapcar 'car vvlist) p-list (reverse p-list) b-list (mapcar 'cadr vvlist) b-list (reverse b-list) b-first (car b-list) b-list (cdr b-list) b-list (append b-list (list b-first)) b-list (mapcar '- b-list) ) ; setq (setq enlist (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length p-list)) (cons 70 (dxf 70 x-ent)) (cons 8 (dxf 8 x-ent)) ) ; list ) ; setq (setq elst nil) (repeat (length p-list) (setq elst (append elst (list (cons 10 (car p-list))) ) ;_ end of append ) ; setq (setq elst (append elst (list (cons 42 (car b-list))) ) ;_ end of append ) ; setq (setq p-list (cdr p-list)) (setq b-list (cdr b-list)) ) ; repeat (setq enlist (append enlist elst)) (entdel x-ent) (entmake enlist) (prompt "\nPolyline direction is reversed.\n ") (princ) ) ; rpl (defun dxf (code ename) (cdr (assoc code (entget ename))) ) ;_ end of dxf Quote Link to comment Share on other sites More sharing options...
dmcinnis Posted September 24, 2008 Share Posted September 24, 2008 Have you had any more suggestions since your original posting? Apparently the message is - just live with it even though one tries to be meticulous? On the last couple of jobs I have done the contour labels are printing out upside down, even though they look fine on the screen. When I have someone else print out the same job it comes out fine. The LABEL POSITION is set to MAKE PLAN READABLE. Any ideas? I use acad 2006 / ldd Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.