upside down contour labels

[surveyor]

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

[CyberAngel]

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?

[eldon]

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.

[daiharv]

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

[dmcinnis]

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