请教高手怎么读写扩展记录啊?

小狼

能告诉我怎么修改上面的属性吗？

小狼

别这样啊,我问了很久了，怎么没人能真正看下我的数据吗?
扩展记录是在实体上的，字典里面根本没有
你们写的方法根本就查不到,也修改不了
麻烦你们试一下

Ea

使用 Vla 方法

龙龙仔

;;By LUCAS
;;meflying版主已经告诉你是xrecord
;;不懂的可是你!
;;程序只是要验証!
;;你再看一遍xrecord吧!
;|
(ch_xrecord (car (entsel)) "SOUTHDIJI" (cons 1 "05"))
|;

fengyong88

按照你的要求写了个完整点的，这下应该可以看明白了

(defun c:wxdata ( / elist extdata newlist)
  (setq elist (entget (car (entsel))))
  (REGAPP "GCBH")(REGAPP "YHBH")
  (SETQ extdata
       (LIST (LIST -3
        (LIST "SOUTH"
                 (CONS 1000  "300000")(CONS 1000 "1002")(CONS 1000 "一")(CONS 1000 "251")
               )
               (LIST "QHDM"
                 (CONS 1000  "121003")
               )
        (LIST "SJZGBM"
                 (CONS 1000  "主管部门")
               )
        (LIST "FRDBXM"
                 (CONS 1000  "法人代表")
               )
        (LIST "FRDBZMS"
                 (CONS 1000  "342401")
               )
        (LIST "FRDBDH"
                 (CONS 1000  "2630805")
               )
        (LIST "DLRXM"
                 (CONS 1000  "代理人")
               )
        (LIST "DLRSFZ"
                 (CONS 1000  "342402")
               )
        (LIST "DLRDH"
                 (CONS 1000  "2630806")
               )
        (LIST "TXDZ"
                 (CONS 1000  "通信地址")
               )
        (LIST "TDZL"
                 (CONS 1000  "土地坐落")
               )
        (LIST "DONGZHI"
                 (CONS 1000  "东")
               )
        (LIST "NANZHI"
                 (CONS 1000  "南")
               )
        (LIST "XIZHI"
                 (CONS 1000  "西")
               )
        (LIST "BEIZHI"
                 (CONS 1000  "北")
               )
        (LIST "QSLYZM"
                 (CONS 1000  "权属来源")
               )
        (LIST "PZTDYT"
                 (CONS 1000  "批准用途")
               )
        (LIST "TDSYZ"
                 (CONS 1000  "土地使用者")
               )
        (LIST "SBJZWQS"
                 (CONS 1000  "申报权属")
               )
        (LIST "YBDJH"
                 (CONS 1000  "预编号")
               )
        (LIST "TDZH"
                 (CONS 1000  "土地证号")
               )
        (LIST "SHRQ"
                 (CONS 1000  "审核日期")
               )
        (LIST "DJRQ"
                 (CONS 1000  "登记日期")
               )
        (LIST "ZZRQ"
                 (CONS 1000  "终止日期")
               )
        (LIST "DWXZ"
                 (CONS 1000  "单位性质")
               )
        (LIST "QSXZ"
                 (CONS 1000  "权属性质")
               )
        (LIST "SYQLX"
                 (CONS 1000  "使用权类型")
               )
        (LIST "TDDJ"
                 (CONS 1000  "一级")
               )
        (LIST "MPH"
                 (CONS 1000  "门牌号")
               )
        (LIST "JZMJ"
                 (CONS 1000  "100")
               )
        (LIST "BDDJ"
                 (CONS 1000  "28")
               )
        (LIST "SBDJ"
                 (CONS 1000  "30")
               )
       
             )
       )
  )
  (setq newlist (append elist extdata))
  (entmod newlist)
)

czcxxx