请教：如何修改图元扩展数据？

xyz002

自定义的扩展数据：(-3 ("test" (1000 . "1234")) ("aaa" (1070 . 2)) ，如何用lisp实现通过键盘输入其它数据如3，4等来修改前面的红色数据"2"  ？

wmz

<br/>;;修改扩展数据<br/>;;ENT---图形对象，xDATA---扩展数据值<br/>(defun amend_xDATA(ENT xDATA / E C C1 B OBJ)<br/>    (setq E (entget ENT (list "*")))<br/>    (setq C1 (car (cadadr (setq C (assoc -3 E)))))<br/>    (setq B (cons (car C) (list (list (caadr C) (cons C1 xDATA)))))<br/>    (setq OBJ (subst B C E))<br/>    (entmod OBJ)<br/>)

xyz002

谢谢楼上的，不过运行后出现错误: 参数类型错误: lentityp nil，加了(setq ENT (car (entsel)))还是不行啊

wmz

(defun c:aaa()
  (setq xDATA "OK")
  (setq ent (car (entsel "\n选取对象:")))
  (amend_xDATA ENT xDATA)
) 

xyz002

 (setq xDATA "OK") 这一句中的"OK"如何设置才能通过键盘输入其他数字来修改("FLOOR" (1070 . 2))中的2 ？

试着用(setq xdata '((-3 ("SOUTH" (1000 . "141101")) ("FLOOR" (1070 . 4)))))会出错，能通过查找替换来实现么？

完整的群码是：((-1 . <图元名: 7effc948>) (0 . "LWPOLYLINE") (330 . <图元名:
7edeac10>) (5 . "1B09") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"Jmd") (6 . "Continuous") (100 . "AcDbPolyline") (90 . 4) (70 . 129) (43 . 0.0)
(38 . 0.0) (39 . 211000.0) (10 490040.0 3.54764e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 490044.0 3.54765e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 490039.0
3.54765e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 490035.0 3.54765e+006) (40 .
0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0) (-3 ("SOUTH" (1000 . "141101"))
("FLOOR" (1070 . 2))))

wmz

不能通过查找替换来实现

根据你给的群码，要修改("FLOOR" (1070 . 2)),可根据以下程序实现：

(defun c:XG()
  (setq  s (car (entsel "\n选择实体: ")))
  (setq  N (getint "输入整数："))
  (XG_XDATA s N)
) 
;;修改扩展数据
(defun XG_xDATA(ENT xDATA / E C C1 B OBJ)
    (setq   E (entget ENT (list "FLOOR")))
    (setq  C1 (car (cadadr (setq C (assoc -3 E)))))
    (setq   B (cons (car C) (list (list (caadr C) (cons C1 xDATA)))))
    (setq OBJ (subst B C E))
    (entmod OBJ)
) 

xyz002

多谢wmz帮忙！还有一个问题，text文本转成1070类型的整数该怎么转换，用什么函数？