AreaText.LSP ver 3.0

Free-Lancer

1. ;;; AreaText.LSP ver 3.0
   
2. ;;; Command name is AT
   
3. ;;; Select a polyline and where to place the text
   
4. ;;; Sample result: 2888.89 SQ. FT.
   
5. ;;; As this is a FIELD it is updated based on the FIELDEVAL
   
6. ;;; or the settings found in the OPTIONS dialog box
   
7. ;;; By Jimmy Bergmark
   
8. ;;; Copyright (C) 2007-2010 JTB World, All Rights Reserved
   
9. ;;; Website: www.jtbworld.com
   
10. ;;; E-mail: info@jtbworld.com
    
11. ;;; 2007-09-05 - First release
    
12. ;;; 2009-08-02 - Updated to work in both modelspace and paperspace
    
13. ;;; 2010-10-29 - Updated to work also on 64-bit AutoCAD
    
14. ;;; Uses TEXTSIZE for the text height
    
15. (defun Get-ObjectIDx64 (obj / util)
    
16.   (setq        util (vla-get-Utility
    
17.                (vla-get-activedocument (vlax-get-acad-object))
    
18.              )
    
19.   )
    
20.   (if (= (type obj) 'ENAME)
    
21.     (setq obj (vlax-ename->vla-object obj))
    
22.   )
    
23.   (if (= (type obj) 'VLA-OBJECT)
    
24.     (if        (> (vl-string-search "x64" (getvar "platform")) 0)
    
25.       (vlax-invoke-method
    
26.         util
    
27.         "GetObjectIdString"
    
28.         obj
    
29.         :vlax-False
    
30.       )
    
31.       (rtos (vla-get-objectid obj) 2 0)
    
32.     )
    
33.   )
    
34. )
    
35. (defun c:AT (/ entObject entObjectID InsertionPoint ad)
    
36.   (vl-load-com)
    
37.   (setq        entObject      (vlax-ename->vla-object (car (entsel)))
    
38.         entObjectID    (Get-ObjectIDx64 entObject)
    
39.         InsertionPoint (vlax-3D-Point (getpoint "Select point: "))
    
40.         ad               (vla-get-ActiveDocument (vlax-get-acad-object))
    
41.   )
    
42.   (vla-addMText
    
43.     (if        (= 1 (vla-get-activespace ad))
    
44.       (vla-get-modelspace ad)
    
45.       (if (= (vla-get-mspace ad) :vlax-true)
    
46.         (vla-get-modelspace ad)
    
47.         (vla-get-paperspace ad)
    
48.       )
    
49.     )
    
50.     InsertionPoint
    
51.     0.0
    
52.     (strcat "%<\\AcObjProp Object(%<\\_ObjId "
    
53.             entObjectID
    
54.             ">%).Area \\f \"%pr2%lu2%ct4%qf1 SQ. FT.\">%"
    
55.     )
    
56.   )
    
57. )

;;; AreaText.LSP ver 3.0<br /> ;;; Command name is AT<br /> ;;; Select a polyline and where to place the text<br /> ;;; Sample result: 2888.89 SQ. FT.<br /> ;;; As this is a FIELD it is updated based on the FIELDEVAL<br /> ;;; or the settings found in the OPTIONS dialog box<br /> ;;; By Jimmy Bergmark<br /> ;;; Copyright (C) 2007-2010 JTB World, All Rights Reserved<br /> ;;; Website: <a href=\"http://www.jtbworld.com\" target=\"_blank\">www.jtbworld.com</a><br /> ;;; E-mail: <a href=\"mailto:info@jtbworld.com\">info@jtbworld.com</a><br /> ;;; 2007-09-05 - First release<br /> ;;; 2009-08-02 - Updated to work in both modelspace and paperspace<br /> ;;; 2010-10-29 - Updated to work also on 64-bit AutoCAD<br /> ;;; Uses TEXTSIZE for the text height<br /> (defun Get-ObjectIDx64 (obj / util)<br />   (setq        util (vla-get-Utility<br />                (vla-get-activedocument (vlax-get-acad-object))<br />              )<br />   )<br />   (if (= (type obj) 'ENAME)<br />     (setq obj (vlax-ename->vla-object obj))<br />   )<br />   (if (= (type obj) 'VLA-OBJECT)<br />     (if        (> (vl-string-search "x64" (getvar "platform")) 0)<br />       (vlax-invoke-method<br />         util<br />         "GetObjectIdString"<br />         obj<br />         :vlax-False<br />       )<br />       (rtos (vla-get-objectid obj) 2 0)<br />     )<br />   )<br /> )<br /> (defun c:AT (/ entObject entObjectID InsertionPoint ad)<br />   (vl-load-com)<br />   (setq        entObject      (vlax-ename->vla-object (car (entsel)))<br />         entObjectID    (Get-ObjectIDx64 entObject)<br />         InsertionPoint (vlax-3D-Point (getpoint "Select point: "))<br />         ad               (vla-get-ActiveDocument (vlax-get-acad-object))<br />   )<br />   (vla-addMText<br />     (if        (= 1 (vla-get-activespace ad))<br />       (vla-get-modelspace ad)<br />       (if (= (vla-get-mspace ad) :vlax-true)<br />         (vla-get-modelspace ad)<br />         (vla-get-paperspace ad)<br />       )<br />     )<br />     InsertionPoint<br />     0.0<br />     (strcat "%<\\AcObjProp Object(%<\\_ObjId "<br />             entObjectID<br />             ">%).Area \\f \"%pr2%lu2%ct4%qf1 SQ. FT.\">%"<br />     )<br />   )<br /> )