怎么获取矩形多线段的坐标点？

befun

我想在A4打印框里添加全图的水印，防止被复印，但是不知道怎么添加文字,大概就像下图A4框3X6的水印，A3就是旋转90°放大的A4
-------------------------------------------

2. (defun c:addtk()
   
3.       (setvar "cmdecho" 0)
   
4.       (princ "选择要添加的矩形图框:")
   
5.       (setq ss (ssget))
   
6.       (setq rate (getreal "\n输入公司名称:"))
   
7.       (if (= rate nil) (princ "公司名不能为空")
   
8.       (setq n 0)
   
9.       (repeat (sslength ss)
   
10.             (setq ent (ssname ss n))
    
11.             (setq ent_data (entget ent))
    
12.             (setq ent_type (cdr (assoc 0 ent_data)))
    
13.                 (setq ent_tuc (cdr (assoc 8 ent_data)))
    
14.             (if (= ent_type "LWPOLYLINE")
    
15.                 (if (= ent_tuc "打印框")
    
16.                  (if (= (cdr (assoc 70 ent_data)) 1)
    
17.                   
    
18.                   ;
    
19.                   
    
20.                 )
    
21.                 )
    
22.                 )
    
23.             (setq n (1+ n))
    
24.             )
    
25.       (princ)
    
26.       )

(defun c:addtk()<br />       (setvar "cmdecho" 0)<br />       (princ "选择要添加的矩形图框:")<br />       (setq ss (ssget))<br />       (setq rate (getreal "\n输入公司名称:"))<br />       (if (= rate nil) (princ "公司名不能为空")<br />       (setq n 0)<br />       (repeat (sslength ss)<br />             (setq ent (ssname ss n))<br />             (setq ent_data (entget ent))<br />             (setq ent_type (cdr (assoc 0 ent_data)))<br />                 (setq ent_tuc (cdr (assoc 8 ent_data)))<br />             (if (= ent_type "LWPOLYLINE")<br />                 (if (= ent_tuc "打印框")<br />                  (if (= (cdr (assoc 70 ent_data)) 1)<br />                    <br />                   ;<br />                    <br />                 )<br />                 )<br />                 )<br />             (setq n (1+ n))<br />             )<br />       (princ)<br />       )

--------------------------------

befun

wx302008008

获取矩形多段线的四个顶点坐标
(setq ptlist (Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'Coordinates )
       pt1 (list (car ptlist) (cadr ptlist))
       pt2 (list (caddr ptlist) (nth 3 ptlist))
       pt3 (list (nth 4 ptlist) (nth 5 ptlist))
       pt4 (list (nth 6 ptlist) (nth 7 ptlist))
)