Leaderboard

I have notes and they were made in Word copied into a dwg and if you erase a note it auto renumbers. But its either a number or a alpha not a combo of the 2. Using Bricscad. I did think about cheating can read paragraphs and add the A1 A2 plus tab at start of each paragraph. But its a big job, the main thing is the paragraph needs the 2nd 3rd line etc indented so adding the A1 at start is still ok. Ok you can edit the created string so if you have numbers can add the "A" but again a tricky task. You need to find the correct pattern. Make a mtext say with "a" then use this you can see how complex the string becomes but it still does not auto update. (defun wow ( / ) (setq obj (vlax-ename->vla-object (car (entsel "\nPick object ")))) (setq str "\\pxi-3,l4t4;{\\L\\C3;A1.\tA1\tNOTES\\P\\pi*,l*,t;\\P\\pxi-3,l4t4;B1.\tline 2\\P\\pi*,l*,t;\\P\\P\\C2;GENERAL\\P\\P\\pxi-7.5,l7.5t7.5;}\\C2;A1\tALL WORKS TO BE CARRIED OUT IN ACCORDANCE WITH THE CURRENT STANDARD DRAWINGS AND SPECIFICATIONS OF THE CITY OF XXX.\\P\\pi0,l0,tz;\\P\\pi-7.5,l7.5,t7.5;A2\tDO NOT SCALE DRAWINGS - USE ONLY DIMENSIONS PROVIDED ON PLANS\\P\\pi0,l0,tz;\\P\\pi-7.5,l7.5,t7.5;A3\tALL DIMENSIONS ARE IN METRES (m) UNLESS OTHERWISE STATED.\\P\\pi0,l0,tz;\\P\\pi-7.5,l7.5,t7.5;X3.\tALL LEVELS ARE TO AUSTRALIAN HEIGHT DATUM (A.H.D.) IN METRES (m) UNLESS OTHERWISE STATED\\P\\pi0,l0,tz;\\P\\pi-7.5,l7.5,t7.5;4.\tEXISTING DRAINAGE AND UNDERGROUND SERVICES ARE TO BE LOCATED PRIOR TO THE COMMENCEMENT OF WORKS AND RELEVANT AUTHORITIES NOTIFIED. FOR SERVICE INFORMATION CONTACT \"DIAL BEFORE YOU DIG\" ON 1800 819101. ANY " ) (vlax-put obj 'textstring str) ) (wow) To get the mtext string use (setq str (vlax-get (vlax-ename->vla-object (car (entsel "\nPick mtext object "))) 'textstring)) Maybe post a sample dwg show what note label should be etc No guarantees.

My LM:roundm function may be used in the following way: _$ (LM:roundm 12 5) 10 _$ (LM:roundm 13 5) 15 You can implement the same logic in field formatting using the ROUND formula function, by changing this: (strcat "%<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (vlax-ename->vla-object ent)) ">%)." (cond ( (= "CIRCLE" typ) "Circumference") ( (= "ARC" typ) "ArcLength") ( "Length" ) ) " \\f \"" fmt "\">%" ) To: (strcat "%<\\AcExpr (ROUND(%<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (vlax-ename->vla-object ent)) ">%)." (cond ( (= "CIRCLE" typ) "Circumference") ( (= "ARC" typ) "ArcLength") ( "Length" ) ) ">%/5.0)*5.0) \\f \"" fmt "\">%" )