Another "First" - Text to Linework

[BlackBox]

It would be really handy for creating a legend Tyke! I hadn't thought of that but it's a great idea.

I don't know about your work environment, but we'd get in trouble if we'd perform this task for each, and every project... I'm still trying to get them to understand that we need more than 5 styles in Civil 3D!

We have one legend that while updated periodically, relatively remains the same, and is added to each project's General Notes, etc. as a block. Set it up once, and done.

[Squirltech]

I don't know about your work environment, but we'd get in trouble if we'd perform this task for each, and every project... I'm still trying to get them to understand that we need more than 5 styles in Civil 3D!

We have one legend that while updated periodically, relatively remains the same, and is added to each project's General Notes, etc. as a block. Set it up once, and done.

I am in the field of Land Surveying and currently using ACAD 09 with LDC and we don't have any "real" standards to speak of. This is going to change when we convert over to C3D. So at this point, legends are project specific and are being created for almost every project. Like I said though, this will change in the coming months. (can't wait)

[BlackBox]

I'm in a similar position... We are transitioning from Land Desktop 2009 to Civil 3D 2011 (our next update is to Civil 3D 2014), and I just transferred from a Transportation group, into a Utility group.

My new group has title blocks, details, legends, etc. but nothing is/was standardized (not fonts, text height, etc.), nor automated where possible. This is probably a Civil 3D faux pas, but we're still manually drawing in the pressure mains in the Profile View, because Civil 3D doesn't offer the level of details we need from the Dynamic options (Alignment, Profile, Linked Assembly, etc.). We just use Civil 3D (so far) to speed up our alignments, surfaces, gravity pipe networks, and Profile View creation... we're still 'more' efficient than we were with Land Desktop. LoL

2013 (or 2014 in our case) offers pressure pipe networks, so we'll see how that goes when we get there.

You're not alone (CAD Standards-wise), and if you ever need help, let us know.

[Tyke]

It would be really handy for creating a legend Tyke! I hadn't thought of that but it's a great idea.

We are also a surveying company and use both vanilla AutoCAD and Civil 3D (2007 to 2013) and Map 6 and AutoCAD 2002 from way back and like RenderMan we have our own standard legends depending on the job and the client. But that said there are some things that are only occasionally required in a legend and following up on another recent thread, its not always a good thing to overload a drawing with information, so why should a legend be overloaded with lots of symbols and linetypes that are not used in the drawing. Perhaps a routine that automatically creates the legend of just the items in the drawing together with a couple of basic legend items that are always there.

[MSasu]

Something like this?

; Create Legend County Line routine (08-VIII-2012)
(defun c:CLCL( / ssetLabels assocList heightLabel widthLabel pointStart )
 (if (not (tblsearch "LTYPE" "PHANTOM"))
  (command "_.LINETYPE" "_L" "PHANTOM" "acad.lin" "")
 )
 (if (setq ssetLabels (ssget "_X" '((0 . "TEXT") (1 . "COUNTY LINE"))))
  (while (> (sslength ssetLabels) 0)
   (setq theLabel    (ssname ssetLabels 0)
         assocList   (entget theLabel)
         heightLabel (cdr (assoc 40 assocList))
         pointStart  (cdr (assoc 10 assocList)))
   (entmod (setq assocList (subst '(1 . "COUNTY LINE = ")
                                  (assoc 1 assocList)
                                  assocList)))
   (setq widthLabel (textbox assocList)
         widthLabel (- (car (cadr widthLabel))
                       (car (car  widthLabel))))
   (entmakex (list '(0 . "LINE")
                   (cons 10 (setq pointStart (list (+ (car pointStart)
                                                      widthLabel
                                                      heightLabel)
                                                   (+ (cadr pointStart)
                                                      (* 0.5 heightLabel)))))
                   (cons 11 (polar pointStart 0.0 (* 15.0 heightLabel)))
                   (assoc 8 assocList)
                   (if (assoc 62 assocList)   ;tanks to Lee Mac
                    (assoc 62 assocList)
                    (cons 62 0)
                   )  
                   (cons 6 "PHANTOM")))
   (ssdel theLabel ssetLabels)
  )
 )
 (princ)
)

PS. Case sensitive.