如何生成坐标表

xiaomihu

如图，如何自动生成一个一个统计表啊，关键是让x、y对应，要以这个闭合的线为路径，顺序排列在统计表中

yshf

2. ;试用以下程序
3. (defun c:cc()
4.     (setq cm (getvar "cmdecho") os (getvar "osmode"))
5.     (setvar "cmdecho" 0)
6.     (setq ent (car (entsel "\n请选择pline:"))
7.           pt0 (getpoint "\n请指定坐标提取结果写入点:")
8.    ptb (vl-remove 'nil
9.     (mapcar '(lambda(x)(if (= (car x) 10) (cdr x)))
10.              (entget ent)
11.            )
12.        )
13.    i   0
14.     )
15.     (setvar "osmode" 0)
16.     (foreach pt ptb
17.         (command "text" (mapcar '+ pt0 (list 0  (* i -4))) 2.5 0 (rtos (car  pt) 2 3)
18.                  "text" (mapcar '+ pt0 (list 20 (* i -4))) 2.5 0 (rtos (cadr pt) 2 3)
19. )
20.         (setq i (1+ i))
21.     )
22.     (setvar "cmdecho" cm)(setvar "osmode" os)(princ)
23. )

;试用以下程序 (defun c:cc()     (setq cm (getvar "cmdecho") os (getvar "osmode"))     (setvar "cmdecho" 0)     (setq ent (car (entsel "\n请选择pline:"))           pt0 (getpoint "\n请指定坐标提取结果写入点:")    ptb (vl-remove 'nil     (mapcar '(lambda(x)(if (= (car x) 10) (cdr x)))              (entget ent)            )        )    i   0     )     (setvar "osmode" 0)     (foreach pt ptb         (command "text" (mapcar '+ pt0 (list 0  (* i -4))) 2.5 0 (rtos (car  pt) 2 3)                  "text" (mapcar '+ pt0 (list 20 (* i -4))) 2.5 0 (rtos (cadr pt) 2 3) )         (setq i (1+ i))     )     (setvar "cmdecho" cm)(setvar "osmode" os)(princ) )

xiaomihu

如果我要在其中增加几个非pline关键点的坐标的话，程序要怎么修改呢，