Topic: Text Field

[Fabricio28]

Hi guys,
I'm using a great code from Lee Mac that select objects and insert area text as a field. (a2f.lsp)
But I'm trouble because I have 15 objects linking to field, and I need include more two objects. How Can I include these 2 objects and update the total area automatically?


Thank you

e.g

[Lee Mac]

Could you not simply delete the field & re-run my Areas to Field program on all required objects?

[Fabricio28]

Hi, Mr. Lee
Sure. I Can do that...

I was wondering if possible add other objects into the field.

It seems is not possible.

Thank you
Regards

[Lee Mac]

Sure. I Can do that...

I was wondering if possible add other objects into the field.

It seems is not possible.

Yes of course it is possible - you can double-click on the field value to edit the formula field, right-click within the formula box and insert additional area property fields referencing the additional objects:



If you were looking for a program to do the work for you, I'm afraid that my voluntary time is limited and so you would need to cover the cost of my time spent creating the program.

[Fabricio28]

Hi Lee,
Thank you for explain how to insert additional area.

But I couldn't do it.  :ugly:
Would you explain this task in my dwg attach, please?

Regards
 

[irneb]

Double click the text where the area field is created so you can edit it. Then double click on the field inside the text editor. The field is usually shown as having a grey background. As tyhe 1st attachment.

This opens the Field dialog. Notice the Formula Field in the bottom right. Edit it to continue the formula, type a + and right-click to add another field into it (see 2nd attachment). This opens another field dialog. Set the field category to Objects, and Field names to Object. Then click the small button in top-middle (just below the Object type). Pick the new polyline you want to add to the area calc. This should return you to the field dialog, make sure you've got its Area selected and click OK (like 3rd attachment).

Thereafter just OK out of both dialogs and the field should now show the new total as per the 4th attachment.

[Fabricio28]

Whow
Many Thank irneb. Worked Perfect!

I really appreciate the help. I've learnt a really good stuff!

If you were looking for a program to do the work for you, I'm afraid that my voluntary time is limited and so you would need to cover the cost of my time spent creating the program.

Sometimes we don't need a routine, the autocad has this function. :pissed:

Thank you Lee.

Kind Regards

[kojacek]

Fabricio - try this code:

Code - Auto/Visual Lisp: [Select]

1. ; =========================================================================================== ;
2. (vl-load-com)
3. ; =========================================================================================== ;
4. (defun C:FUPD (/ sel obj ets fds ssp ssn suf prf)
5.   (setq prf "%<\\AcObjProp Object(%<\\_ObjId "
6.         suf ">%).Area \\f \"%lu6%qf1%ds44%th46\">%"
7.   )
8.   (if
9.     (and
10.       (setq sel (entsel "\nSelect a total summary field: "))
11.       (member (cdr (assoc 0 (entget (car sel))))(list "TEXT" "MTEXT"))
12.     )
13.     (if
14.       (setq fds (_getFieldObjs (vlax-ename->vla-object (car sel))))
15.       (progn
16.         (foreach % (setq ets (mapcar 'vlax-vla-object->ename fds))(redraw % 3))
17.         (princ "\nSelect new polylines for add summary: ")
18.         (if
19.           (setq ssp
20.             (ssget
21.               (list (cons 0 "LWPOLYLINE,CIRCLE,REGION")
22.                     (cons 410 (getvar "CTAB"))
23.               )
24.             )
25.           )
26.           (progn
27.             (foreach % ets (redraw % 4))
28.             (setq ssn
29.               (mapcar
30.                 (function
31.                   (lambda (%)
32.                     (strcat
33.                       prf
34.                       (vla-GetObjectIdString
35.                         (vla-get-utility (cd:ACX_ADoc))
36.                         % :vlax-false
37.                       )
38.                       suf
39.                     )
40.                   )
41.                 )
42.                 (append (cd:SSX_Convert ssp 1) fds)
43.               )
44.             )
45.             (vla-put-textstring
46.               (vlax-ename->vla-object (car sel))
47.               (strcat
48.                 "TOTAL: %<\\AcExpr "
49.                 (cd:STR_ReParse ssn " + ")
50.                 " \\f \"%lu6%qf1%ds44%th46\">%"
51.               )
52.             )
53.           )
54.           (progn
55.             (foreach % ets (redraw % 4))
56.             (princ "\nNot selected. ")
57.           )
58.         )
59.       )
60.       (princ "\nObject does not have associated fields.")
61.     )
62.     (princ "\nFailed selected. ")
63.   )
64.   (princ)
65. )
66. ; =========================================================================================== ;
67. (defun _getFieldObjs (Obj)
68.   (mapcar
69.     (function (lambda (%)(vla-ObjectIdToObject (cd:ACX_ADoc)(read %))))
70.     (mapcar
71.       (function (lambda (%)(vl-list->string %)))
72.       (mapcar
73.         (function
74.           (lambda (%)
75.             (vl-remove-if (function (lambda (%)(or (< % 48)(> % 57)))) %)
76.           )
77.         )
78.         (mapcar
79.           (function (lambda (%)(vl-string->list %)))
80.           (vl-remove-if-not
81.             (function (lambda (%)(wcmatch % "<\\_ObjId*")))
82.             (cd:STR_Parse (vla-fieldcode obj) "%" t)
83.           )
84.         )
85.       )
86.     )
87.   )
88. )
89. ; =========================================================================================== ;

Functions: cd:ACX_ADoc, cd:STR_Parse, cd:STR_ReParse, cd:SSX_Convert are from:
 http://cad.pl/ftp/Pack/v1/CADPL-Pack-v1.html
First select the total field, and next select any polylines for add sum area.
Regards.
kojacek

[Fabricio28]

First select the total field, and next select any polylines for add sum area.
Regards.
kojacek

Hi kojacek,
Thank you for the help, but your code didn't work.
message:

Code: [Select]

Select a total summary field: ; error: no function definition: CD:STR_PARSE

[kojacek]

First select the total field, and next select any polylines for add sum area.
Regards.
kojacek

Hi kojacek,
Thank you for the help, but your code didn't work.
message:

Code: [Select]

Select a total summary field: ; error: no function definition: CD:STR_PARSE

Previouos copy file CADPL-Pack-v1.lsp from: http://cad.pl/ftp/Pack/v1/CADPL-Pack-v1.lsp or (http://cad.pl/ftp/Pack/v1/CADPL-Pack-v1.html), and load.
Regards
kojacek

[Fabricio28]

Hi,
Thank you for replay kojacek

Actually I don't know how to invoke the code. :ugly:

Regards