[求助]：有没有扩展数据程序实例?

animal212

有没有图元扩展数据程序实例? 其实我是不知道(regapp.....)的用法.

jdhszh

这是我做的为结合表添加扩展的程序
(defun c:zjhb()
;;(setq th(getstring "\n新图号:"))
(if (not (tblsearch "appid" "OLD_NAME")) (regapp "OLD_NAME"))
(if (not (tblsearch "appid" "TF_NAME")) (regapp "TF_NAME"))
(if (not (tblsearch "appid" "W_NAME")) (regapp "W_NAME"))
(if (not (tblsearch "appid" "XS")) (regapp "XS"))
(if (not (tblsearch "appid" "T_DATE")) (regapp "T_DATE"))
(if (not (tblsearch "appid" "Q_T")) (regapp "Q_T"))
(setq ent(entget(car(entsel))))
(if ent
  (progn
  (setq old_name (cdr(assoc 1 (entget (car(entsel"\n老图号:"))))))
;;(setq old_name(strcase(getstring "\n老图号:")))
  (setq old_name(list "OLD_NAME" (cons 1000 old_name)))
;;(setq tf_name(strcat "I50G0930" (setq th(itoa (+ (atoi th) 1)))))
;;(setq tf_name(strcat "I50G0890" (getstring "\n新图号:")))
  (setq tf_name (cdr(assoc 1 (entget (car(entsel"\n新图号:"))))))
;;(setq tf_name "I50G07800")
  (setq tf_name(list "TF_NAME" (cons 1000 tf_name)))
;;(setq w_name(getstring "\n作业员:"))
  (setq w_name "**")
  (setq w_name(list "W_NAME" (cons 1000 w_name)))
;;(setq xs(getstring "\n系数:"))
  (setq xs "0")
  (setq xs(list "XS" (cons 1000 xs)))
;;(setq t_date(getstring "\n作业日期:"))
  (setq t_date "2007")
  (setq t_date(list "T_DATE" (cons 1000 t_date)))
;;(setq q_t(STRCAT (getstring "\n年出版:") "年出版," (getstring "\n等高距:") "米等高距"))
  (setq q_t "欠发达地区")
   (if (/= q_t "")
    (progn
     (setq q_t(LIST "Q_T" (cons 1000 q_t)))
     (setq kzsj(list(list -3 old_name tf_name w_name xs t_date q_t)))
    )
    (setq kzsj(list(list -3 old_name tf_name w_name xs t_date)))
   )
  (setq newent(append ent kzsj))
  (entmod newent)
)
)
)