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

为什么扩展属性不能替换，大家帮忙看看
www.dimcax.com
为什么扩展属性不能替换，大家帮忙看看
我想把广州开思格式的宗地属性中的“所在图幅号”手动替换掉（也就是下面红色加粗字体处），但是总是不成功，不知为何？
源码如下：
(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"))))
+-------oooo----- (_)-----oooo---------+
　　　 　　　　　　　　　　　　　　
　 　 我为编程狂，我为lisp狂！　 　
　　　　　　　　　　　　　　　　 　
+------------------------oooo-------------------+
d
给你个类似的
(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)
)
)
)
这个也许用的着
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
它山之石，可以攻玉。
学以致用，用而知之。
d
谢谢jdhszh老兄，不知道这么称呼合不合适，问题解决啦！！！
+-------oooo----- (_)-----oooo---------+
　　　 　　　　　　　　　　　　　　
　 　 我为编程狂，我为lisp狂！　 　
　　　　　　　　　　　　　　　　 　
+------------------------oooo-------------------+
d