xdata

roger_001

XDATA问题？请斑竹指教！
(defun c:xd ()

  (setq appidname "MOON")
  (IF (tblsearch "appid" appidname)

    (PRINC (STRCAT "/N" appidname))

    (PROGN
      (SETq REGISTER (REGAPP appidname))
      (IF (/= REGISTER nil)
        (PRINC (STRCAT "注册" appidname "成功"))
      )

    )
  )
  (setQ A (entget (ssname (ssget) 0)))

  (setQ        KA '(-3 (APPNAME  (1000 . 85110) (1071 . 84110)
           )
          )
  )

(setQ        xdataent (APPEND A (LIST KA)))

;;(setq        xdataent (APPEND A KA) )
  (entmod xdataent)

)

CAD菜鸟

未执行你的程序，但错误有：
1、APPNAME未见申明；
2、1000后要接字符串；
3、列表不正确；

将(setQ KA '(-3 (APPNAME  (1000 . 85110) (1071 . 84110))))改为
(setQ KA (list -3 (list APPIDNAME  (cons 1000 "85110") (cons 1071 84110))))试试.