API应用 绘制Pline并标注字段

st788796

1. (defun c:tt (/ lastent e area txt p)
   
2.   (defun callback (dynpt /)
   
3.     (xdrx_entity_move txt p dynpt)
   
4.     (setq p dynpt)
   
5.   )
   
6.   (setq lastent (entlast))
   
7.   (XD::BEGIN)
   
8.   (xdrx_sysvar_push '("cmdecho" 1))
   
9.   (vl-cmdf ".pline")
   
10.   (while (/= 0 (getvar "cmdactive"))
    
11.     (vl-cmdf pause)
    
12.   )
    
13.   (if (and (/= (setq e (entlast)) lastent)
    
14.            (xdrx_curve_isclosed e)
    
15.       )
    
16.     (progn
    
17.       (setq area (car (xdrx_getarea e)))
    
18.       (setq txt
    
19.              (xdrx_mtext_make
    
20.                (setq p (getvar "viewctr"))
    
21.                (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId "
    
22.                        (vl-princ-to-string
    
23.                          (xdrx_getpropertyvalue e "ObjectID")
    
24.                        )
    
25.                        ">%).Area \\f \"%lu2%ps[,亩]%ct8[0.00149999999925]\">%"
    
26.                )
    
27.                0.
    
28.                (getvar "textsize")
    
29.              )
    
30.       )
    
31.       (xdrx_mtext_reset txt)
    
32.       (xdrx_mtext_setwidth txt 0.)
    
33.       (xdrx_object_regen)
    
34.       (xdrx_pointmonitor "Callback" txt)
    
35.       (getpoint)
    
36.       (xdrx_pointmonitor)
    
37.     )
    
38.   )
    
39.   (xdrx_sysvar_pop)
    
40.   (XD::END)
    
41.   (princ)
    
42. )
    

(defun c:tt (/ lastent e area txt p)<br />   (defun callback (dynpt /)<br />     (xdrx_entity_move txt p dynpt)<br />     (setq p dynpt)<br />   )<br />   (setq lastent (entlast))<br />   (XD::BEGIN)<br />   (xdrx_sysvar_push '("cmdecho" 1))<br />   (vl-cmdf ".pline")<br />   (while (/= 0 (getvar "cmdactive"))<br />     (vl-cmdf pause)<br />   )<br />   (if (and (/= (setq e (entlast)) lastent)<br />            (xdrx_curve_isclosed e)<br />       )<br />     (progn<br />       (setq area (car (xdrx_getarea e)))<br />       (setq txt<br />              (xdrx_mtext_make<br />                (setq p (getvar "viewctr"))<br />                (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId "<br />                        (vl-princ-to-string<br />                          (xdrx_getpropertyvalue e "ObjectID")<br />                        )<br />                        ">%).Area \\f \"%lu2%ps[,亩]%ct8[0.00149999999925]\">%"<br />                )<br />                0.<br />                (getvar "textsize")<br />              )<br />       )<br />       (xdrx_mtext_reset txt)<br />       (xdrx_mtext_setwidth txt 0.)<br />       (xdrx_object_regen)<br />       (xdrx_pointmonitor "Callback" txt)<br />       (getpoint)<br />       (xdrx_pointmonitor)<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (XD::END)<br />   (princ)<br /> )<br />