/*A------------------------------AUTHOR--------------------------------- /* /*Original Coding: ESRI /* /*N-------------------------------NAME---------------------------------- /* /*CONVERTANNO.AML /*Copyright 1995, Environmental Systems Research Institute, Inc. /* /*P-----------------------------PURPOSE--------------------------------- /* /*This AML will populate a feature attribute table with information from /*an annotation subclass. /* /*U------------------------------USAGE---------------------------------- /* /*&r convertanno ~ /*{near_distance} /* /*C------------------------------CALLS---------------------------------- /* /*NONE /* /*============================DISCLAIMER================================ /*You may use, copy, modify, merge, distribute, alter, reproduce and/or /*create derivative works of this AML for your own internal use. All /*rights not specifically granted herein are reserved to ESRI. /* /*THIS AML IS PROVIDED "AS-IS" WITHOUT WARRANTY OF ANY KIND, EITHER /*EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED /*WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, /*WITH RESPECT TO THE AML. /* /*ESRI shall not be liable for any damages under any theory of law /*related to your use of this AML, even if ESRI is advised of the /*possibilites of such damage. This AML is not supported by ESRI. /*====================================================================== &args cov subcls feat dist &severity &error &routine BAILOUT &if [null %cov%] or [null %subcls%] or [null %feat%] &then &return USAGE &r convertanno ~ {near_distance} &if [show program] = 'ARCEDIT' &then &return This AML must be run from ARC &if [show program] = 'ARCPLOT' &then &return This AML must be run from ARC &if ^ [exists %cov% -cover] &then &return Coverage [quote %cov%] does not exist. Exiting... &if ^ [exists %cov% -annotations.%subcls%] &then &return Coverage [quote %cov%] does not contain subclass [quote %subcls%]~ Exiting... &if [null %dist%] or [type %dist%] gt 0 &then &set dist 10 &do arg &list cov subcls feat &set %arg% [translate [value %arg%]] &end &if [quote %feat%] ne 'ARC' and [quote %feat%] ne 'POINT' and [quote %feat%]~ ne 'POLYGON' and [quote %feat%] ne 'NODE' &then &return Feature [quote %feat%] is not 'ARC', 'POINT', 'POLYGON' or 'NODE'. Exiting... &if ^ [exist %cov% -%feat%] &then &return %cov% lacks %feat% topology &set home [show &workspace] &set wrksp [dir [pathname %cov%]] &workspace %wrksp% &set cov [entryname %cov%] /*&if %feat% = polygon or %feat% = point &then /*&s fat = PAT /*&if %feat% = arc &then /* &s fat = AAT /*&if %feat5 = node &then /* &s fat = NAT &select %feat% &when ARC &call arclineanno &when POLYGON &call polyanno &when POINT &call pointanno &when NODE &call nodeanno &end &workspace %home% &return /*--------------- arclineanno ------------------------- &routine arclineanno build %cov% anno.%subcls% addtext %cov% %subcls% &data arc info ARC SEL %cov%.TAT%subcls% OUTPUT ../PTANNO.TXT INIT PRINT %subcls%#,',',X,',',Y PRINT 'END' Q STOP &END &if [exists %subcls%_pt -cover] &then kill %subcls%_pt all generate %subcls%_pt input ptanno.txt points q build %subcls%_pt point near %subcls%_pt %cov% line %dist% &if ^ [iteminfo %cov% -arc TEXT -exists] &then additem %cov%.aat %cov%.aat text 32 32 c &data ARC INFO ARC SEL %subcls%_PT.PAT RELATE %cov%.AAT 1 BY %cov%# LINK RELATE %cov%.TAT%subcls% 2 BY %subcls%_PT# LINK MOVE $2TEXT TO $1TEXT Q STOP &end &return /*--------------- polyanno ---------------------------- &routine polyanno build %cov% anno.%subcls% addtext %cov% %subcls% &data arc info arc SELECT %cov%.TAT%subcls% OUTPUT ../xycoords.txt INIT PRINT %subcls%#,',',X,',',Y PRINT 'END' OUTPUT ARNSP Q STOP &end &if [exists %subcls%_pt -cover] &then kill %subcls%_pt all generate %subcls%_pt input xycoords.txt points quit build %subcls%_pt point intersect %subcls%_pt %cov% %subcls%_nt point .01 nojoin &if ^ [iteminfo %cov% -poly TEXT -exists] &then additem %cov%.pat %cov%.pat text 32 32 c &data arc info arc SELECT %subcls%_NT.PAT RELATE %cov%.PAT 1 BY %cov%# LINK RELATE %cov%.TAT%subcls% 2 BY %subcls%_PT# LINK MOVE $2TEXT TO $1TEXT Q STOP &end &return /*--------------- pointanno ------------------------- &routine pointanno build %cov% anno.%subcls% addtext %cov% %subcls% &data arc info ARC SEL %cov%.TAT%subcls% OUTPUT ../PTANNO.TXT INIT PRINT %subcls%#,',',X,',',Y PRINT 'END' Q STOP &END &if [exists %subcls%_pt -cover] &then kill %subcls%_pt all generate %subcls%_pt input ptanno.txt points q build %subcls%_pt point near %subcls%_pt %cov% point %dist% &if ^ [iteminfo %cov% -point TEXT -exists] &then additem %cov%.pat %cov%.pat text 32 32 c &data ARC INFO ARC SEL %subcls%_PT.PAT RELATE %cov%.PAT 1 BY %cov%# LINK RELATE %cov%.TAT%subcls% 2 BY %subcls%_PT# LINK MOVE $2TEXT TO $1TEXT Q STOP &end &return /*--------------- nodeanno ------------------------- &routine nodeanno build %cov% anno.%subcls% addtext %cov% %subcls% &data arc info ARC SEL %cov%.TAT%subcls% OUTPUT ../PTANNO.TXT INIT PRINT %subcls%#,',',X,',',Y PRINT 'END' Q STOP &END &if [exists %subcls%_pt -cover] &then kill %subcls%_pt all generate %subcls%_pt input ptanno.txt points q build %subcls%_pt point near %subcls%_pt %cov% node %dist% &if ^ [iteminfo %cov% -node TEXT -exists] &then additem %cov%.nat %cov%.nat text 32 32 c &data ARC INFO ARC SEL %subcls%_PT.PAT RELATE %cov%.NAT 1 BY %cov%# LINK RELATE %cov%.TAT%subcls% 2 BY %subcls%_PT# LINK MOVE $2TEXT TO $1TEXT Q STOP &end &return /*--------------- BAILOUT ---------------------------- &routine BAILOUT &severity &error &ignore &severity &warning &ignore &type An error has occurred in CONANNO.AML &workspace %home% &return;&return &error ---------- From: DB[SMTP:dbehm@bama.ua.edu] Sent: Thursday, January 22, 1998 2:05 PM To: esri-l@esri.com Subject: Arc: Put anno into item in pat **** ESRI-L Posted Message **** > I have a coverage of survey points (+1,250 points) that was converted from Microstation. Each point consists of an X with the elevation as annotation. I would like to convert the X's to a point coverage and add the elevations to the pat or aat so that I could make a surface or a tin. Each X has 5 nodes. We have selected each center node and PUT them into another cover. This is my question - Does anyone have a method of capturing the anno and putting it the correct position in the table without selecting the point and typing the elevation into the relevant position in the table? ========================================================== Douglas D. Behm University Geologist Land Management University of Alabama dbehm@bama.ua.edu **** End of Posted Message **** Note: To unsubscribe, send a message containing the word "unsubscribe" in the message body to: < esri-l-request@esri.com > If you wish to receive the digest version, you must first unsubscribe from esri-l and then subscribe adding the "digest" keyword after the word subscribe and your email address.)