为什么扩展属性不能替换，大家帮忙看看

quanguang

我想把广州开思格式的宗地属性中的“所在图幅号”手动替换掉（也就是下面红色加粗字体处），但是总是不成功，不知为何？

源码如下：

(setq tfh "") ;;图幅号
(defun c:1()
  (setq s (car (entsel)))
  (setq ss (entget s (list "*")))
  (setq sss (assoc -3 ss))
  (setq djinfo (caddr sss))
  (setq djinfo_tou (car djinfo))
  (setq djname (cadr sss))
  (setq tufu (cadr djinfo))
  (setq qita (cddr djinfo))
  (setq tishi (strcat "输入宗地所在图符号(" tfh "):"))
  (setq new_tfh (getstring tishi ))
  (if (= "" new_tfh ) (setq new_tfh tfh) )
    (setq new_tufu (cons 1000 new_tfh))
  (setq new_kzh (append '(-3) (list djname) (list (cons djinfo_tou (cons new_tufu qita)))))
  (subst new_kzh (assoc -3 ss) ss)
  (entmod ss)
  (entupd s)
    )

开思宗地属性扩展格式如下：

;;(-3 ("DJName" (1000 . "3") (1000 . "J479") (1000 . "J523") (1000 . "J521")
(1000 . "J476")) ("DJInfo" (1000 . "4211.00-499.00") (1000 . "1301830101029800")
(1000 . "(  )") (1000 . "张三") (1000 . "131313190011000123") (1000 . "")
(1000 . "集体土地使用权") (1000 . "253") (1000 . "253") (1000 . "") (1000 . "") (1000 . "")
(1000 . "道路") (1000 . "") (1000 . "李四") (1000 . "王五") (1000 . "170.512") (1000 . "170.512") (1000 . "255.094") (1000 . "130183")

(1000 . "批准拨用宅基地") (1000 . "") (1000 . "") (1000 . "") (1000 . "0.6684") (1000 . "") (1000 . "") (1000 . "") (1000 . "499156.829") (1000 .
"4211242.392") (1000 . "499157.149") (1000 . "4211223.278") (1000 . "499143.802") (1000 . "4211223.053") (1000 . "499143.502") (1000 .
"4211242.183") (1000 . "E"))))

jdhszh

给你个类似的

(defun ggkz(k_name)
 (setq qtwt(assoc -3 (entget (setq kent(car (entsel))) (list k_name ))))
 (if qtwt
  (progn
   (princ (cdr(cadadr qtwt)))
   (setq qt_wt(assoc -3 (entget kent '("*"))))
   (setq qt (LIST k_name (cons 1000 q_t)))
   (setq neent(subst qt (assoc k_name (cdr qt_wt)) qt_wt))
   (setq nnew(append (entget kent) (list neent)))
   (entmod nnew)
  )
 )
)

这个也许用的着

quanguang

谢谢jdhszh老兄，不知道这么称呼合不合适，问题解决啦！！！