如何读取扩展属性中对应的值？

tiantiansayy

((-1 . <图元名: 7eb15198>) (0 . "LWPOLYLINE") (5 . "4D3") (102 . "{ACAD_REACTORS") (330 . <图元名: 7eb151c8>) (102 . "}") (330 . <图元名: 7ef7dcc0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "JZD") (6 . "Continuous") (100 . "AcDbPolyline") (90 . 4) (70 . 129) (43 . 0.15) (38 . 0.0) (39 . 0.0) (10 463879.0 4.31837e+006) (40 . 0.15) (41 . 0.15) (42 . 0.0) (10 463997.0 4.31839e+006) (40 . 0.15) (41 . 0.15) (42 . 0.0) (10 463985.0 4.31828e+006) (40 . 0.15) (41 . 0.15) (42 . 0.0) (10 463870.0 4.31827e+006) (40 . 0.15) (41 . 0.15) (42 . 0.0) (210 0.0 0.0 1.0) (-3 ("SOUTH" (1000 . "300000") (1000 . "11122334") (1000 . "一") (1000 . "251")) ("QHDM" (1000 . "")) ("SJZGBM" (1000 . "dfaf")) ("FRDBXM" (1000 . "")) ("FRDBZMS" (1000 . "")) ("FRDBDH" (1000 . "")) ("DLRXM" (1000 . "fadfas")) ("DLRSFZ" (1000 . "")) ("DLRDH" (1000 . "")) ("TXDZ" (1000 . "dfasfda")) ("TDZL" (1000 . "")) ("DONGZHI" (1000 . "")) ("NANZHI" (1000 . "")) ("XIZHI" (1000 . "dasfdsa")) ("BEIZHI" (1000 . "")) ("QSLYZM" (1000 . "")) ("PZTDYT" (1000 . "")) ("TDSYZ" (1000 . "")) ("SBJZWQS" (1000 . "")) ("YBDJH" (1000 . "")) ("TDZH" (1000 . "")) ("SHRQ" (1000 . "")) ("DJRQ" (1000 . "")) ("ZZRQ" (1000 . "")) ("DWXZ" (1000 . "港澳台")) ("QSXZ" (1000 . "集体土地使用权")) ("SYQLX" (1000 . "入股")) ("TDDJ" (1000 . "三级")) ("MPH" (1000 . "")) ("TUFU" (1000 . "4318.20-463.75")) ("JZMJ" (1040 . 0.0)) ("BDDJ" (1040 . 0.0)) ("SBDJ" (1040 . 0.0))))

请问，我如何读到TUFU的值呢？

  (setq s(car(entsel)))
  (setq ss(entget s (list"*")))
  (setq sss(assoc -3 ss)) 

  (setq d1 (car sss))
  (setq d2 (cadr sss))这样得读多少次才能读到tufu呢？有什么好的方法吗

ljttjl

以下b2即为所要的数据：

(setq a (car(entsel)))

(setq b (entget a '("TUFU")))
(setq b1 (assoc -3 b))
(setq b2 (cdr (assoc "TUFU" (cdr b1))))

tiantiansayy

读出TUFU值来了，非常感谢

tiantiansayy

  (setq s(car(entsel)))
  (setq ss(entget s '("TUFU")))
  (setq b1 (assoc -3 ss))
  (setq b2 (cdr (assoc "TUFU" (cdr b1)))) 

  (setq tishi (strcat "输入宗地所在图符号(" tfh "):"))
  (setq new_tfh (getstring tishi ))
  (if (= "" new_tfh) (setq new_tfh tfh))
  (setq new_tufu(cons 1000 new_tfh))

  获得了TUFU号((1000 . "0.00-0.00")),我想用输入的新图幅号new_tufu替换获得的图幅号，后面的语句应该怎么写呢