Topic: Using Object Data to label linework

[cyclops]

I am working with drawings with objectdata attached to the linework from a shape file, what i need is to automate the process of labeling the linework, by extracting multiple fields/data from the odjectdata, then labeling the linework with a multi-leader.

Does anyone have a lisp routine or other way to automate the process?

I need the process to be point and shoot, i am working with interns, enough said.

Thanks
Cy

[ChrisCarlson]

There are numerous companies which you can contract to make this.

One such is
http://lee-mac.com/contact.html

[cyclops]

Chris,
I am working to that end but admin is requesting an example, prior to allocating monies.

I need to know if what I have asked is possible.

Thanks,
Cy

[mjfarrell]

I am working with drawings with objectdata attached to the linework from a shape file, what i need is to automate the process of labeling the linework, by extracting multiple fields/data from the odjectdata, then labeling the linework with a multi-leader.

Does anyone have a lisp routine or other way to automate the process?

I need the process to be point and shoot, i am working with interns, enough said.

Thanks
Cy

Use MAP  it has features just for this sort of thing.  They are called Map Annotation Templates.

Demo version of MAP = FREE

[cyclops]

mjfarrell,
I have worked a little with map annotation templates, to label parcels but that was an en mass method, is there a way to selectively to label singular objects as needed?

Thanks,
Cy

[alanjt]

It's possible.
What discipline/version of cad are you using?
I extract object data from imported SHP data quite often.

[cyclops]

alanjt,
I am using civil3d 2012-2016. I have also, but on the fly labeling seems more complex than en mass labeling.

Thanks,
Cy

[alanjt]

alanjt,
I am using civil3d 2012-2016. I have also, but on the fly labeling seems more complex than en mass labeling.

Thanks,
Cy

Cool.
I assume you have a specific set of fields you want to extract for labeling. All one needs is a list, and it can easily be extracted.

[cyclops]

alanjt,
Yes, i am pulling 8 fields from a set of 30+.
The fields may change, i can make a different anno label for different needs?

Thanks,
Cy

[mjfarrell]

alanjt,
I am using civil3d 2012-2016. I have also, but on the fly labeling seems more complex than en mass labeling.

Thanks,
Cy

Just create your annotation templates and apply as needed

Yes it works well en mass via a query operation,
however it also can be applied selectively

further annotation labels can later be converted to text if that is desired.

[BlackBox]

You can also start by running manual MAPQUERY, to demonstrate the time needed to manually extract/label... Then leverage the seldom documented ADE_* LispFunctions to accomplish same in less time.

I used to do this back when we worked with Land Desktop; I'll see if I can find some code snippets.



Cheers

[alanjt]

Code: [Select]

(defun _getObjectData (ename / tables ass lst)
  (foreach table (setq tables (ade_odgettables ename))
    (foreach x (cdr (assoc "Columns" (ade_odtabledefn table)))
      (if (not (member (setq ass (cdr (assoc "ColName" x))) lst))
        (setq lst (cons ass lst))
      )
    )
  )
  (mapcar (function (lambda (x) (cons x (ade_odgetfield ename tables x 0))))
          (vl-sort lst '<)
  )
)

[BlackBox]

Once I'm done extracting the Object Data I need, I usually get rid of it to keep the drawing size as small as possible:

Code - Auto/Visual Lisp: [Select]

1. (defun c:ODD () (c:ObjectDataDelete))
2. (defun c:ObjectDataDelete (/ odTableName i n)
3.   (princ "\rOBJECTDATADELETE ")
4.   (if (and (setq odTables (ade_odtablelist))
5.            (setq i (length odTables))
6.            (setq n 0)
7.            (princ "\nWorking, please wait... ")
8.            (princ)
9.       )
10.     (progn
11.       (foreach odTableName (ade_odtablelist)
12.         (ade_oddeletetab odTableName)
13.         (setq n (1+ n))
14.       )
15.       (princ "Done. ")
16.       (prompt
17.         (strcat "\nRemoved "
18.                 (itoa n)
19.                 " of "
20.                 (itoa i)
21.                 " object data table"
22.                 (if (= 1 i)
23.                   ". "
24.                   "s. "
25.                 )
26.         )
27.       )
28.     )
29.     (prompt "\n** No object data tables found ** ")
30.   )
31.   (princ)
32. )
33.  
34. ;; if not being loaded into map-enabled application
35. (if (not ade_odtablelist)
36.  
37.   ;; disabled these functions
38.   (setq c:ODD (setq c:ObjectDataDelete nil))
39. )
40.  
41. (princ)
42.  

[mjfarrell]

Once I'm done extracting the Object Data I need, I usually get rid of it to keep the drawing size as small as possible:

This seems counter productive to me.  I think of all the time wasted putting object data onto the objects, only to have it deleted?
What happens when and or if that object data is ever needed again? 

[BlackBox]

Once I'm done extracting the Object Data I need, I usually get rid of it to keep the drawing size as small as possible:

This seems counter productive to me.  I think of all the time wasted putting object data onto the objects, only to have it deleted?
What happens when and or if that object data is ever needed again?

Then I just go back to the 'source' drawing where I've already imported the County's GIS/Shapefile data with Object Data, and cull what I need, of course (i.e., project length changes, etc.)... Otherwise, I can simply run MAPIMPORT as needed (i.e., newer Shapefile is available, etc.)... That's only happened to me on 3 projects in the past 10 years, FWIW.


Cheers