xdata

roger_001 · 发表于 2003-2-8 15:29:00

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菜鸟 · 发表于 2003-2-8 17:05:00

未执行你的程序，但错误有：
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))))试试.

xdata

发表回复

精选推荐