三维点如何加进扩展数据？

bdwzx

我现在需要给一个实体加入一个空间点p1的扩展数据，请问如何操作？

ZZXXQQ

1）找到指定的目标对象名。
　　(While (Not (SetQ en (EntSel "\n指定一个要加入扩展数据的对象: ") ) )
      (Alert "没有指定任何对象，请再试...")
     )
　　(SetQ en (Car en))
2）指定应用名（这是搜寻扩展对象数据库的的主要索引项）。
　　(SetQ un (GetString "\n注册应用名<*>: "))
3）定义扩展对象数据库表的结束项。
　 (SetQ ll (List (Cons 1002 "}")))
4）组建扩展数据库内容（程序设置是键盘输入，仅用实数、整数和字符串）。
   (InitGet 7 "Real Integer String Point")
   (SetQ tp (GetKWord "Real(实数)/Integer(整数)/String(字符串)/Point(点): "))
   (While (Not (Or (= tp "End")(= tp "")))
     (Cond
      ((= tp "Real")
        (SetQ v (GetReal "\n实数值: ") l (Cons 1040 v))
      )
      ((= tp "String")
        (SetQ v (GetString "\n字符串: ") l (Cons 1000 v))
      )
      ((= tp "Integer")
        (SetQ v (GetInt "\n整数值: ") l (Cons 1071 v))
      ) 
      ((= tp "Point")
        (SetQ v (GetPoint "\n点: ") l (Cons 1010 v))
      ) 
    )
    (SetQ ll (Cons l ll))
    (InitGet 7 "Real Integer String Point End ")
    (SetQ tp (GetKWord "Real(实数)/Integer(整数)/String(字符串)/Point(点)/<End(结束)>: " ))
  )
5）加入扩展数据库的开头项，建立完整的扩展数据表。
   (SetQ ll (Cons (Cons 1002 "{") ll)
         ll (List -3 (Cons un ll))
    )
6）提取目标对象表，加入扩展的数据描述，登记应用名，重建对象数据库。
   (SetQ el (EntGet en)
         nel (Cons ll el)
   )
   (RegApp un) (EntMod nel)

bdwzx

谢谢指点，太感谢了！