[求助]高手！高手！在哪？有个问题请教下

走马观花

(defun c:g()
  (if(setq gg (ssget "x" (list (cons 8 "8310") (cons 0 "TEXT"))))
  (command ".erase" gh_2 ""))
)

选择对象: ((-1 . <图元名: 7ef6cb90>) (0 . "TEXT") (330 . <图元名: 7ef6acc0>) (5
. "45A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "JMD") (6 .
"Continuous") (100 . "AcDbText") (10 183.176 65.1212 0.0) (40 . 1.5) (1 . "砖")
(50 . 0.0) (41 . 0.8) (51 . 0.0) (7 . "HZ") (71 . 0) (72 . 4) (11 183.736
65.8712 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0) (-3 ("SOUTH" (1000 .
"140009"))))

选择对象: ((-1 . <图元名: 7ef6cc78>) (0 . "LWPOLYLINE") (5 . "46F") (102 .
"{ACAD_REACTORS") (330 . <图元名: 7ef6cc80>) (102 . "}") (330 . <图元名:
7ef6acc0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "JMD") (6 .
"Continuous") (100 . "AcDbPolyline") (90 . 4) (70 . 129) (43 . 0.0) (38 . 0.0)
(39 . 0.0) (10 182.953 65.6426) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 182.953
64.8837) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 183.848 64.8837) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 183.848 65.6426) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0
0.0 1.0) (-3 ("SOUTH" (1000 . "141161") (1040 . 2.0))))

如何选取南方CASS的编码如(-3 ("SOUTH" (1000 . "140009")，怎么加入(-3 ("SOUTH" (1000 . "141161") (1040 . 2.0))))

混房的层数

走了几个论坛，没有人回答

有人能用LISP源码给我演示一下吗，在下非常感激~

zyhandw

因为地物的cass属性在其属性列表的最后，所以选取南方CASS的编码可以用以下语句(last (entget(car(entsel))(list"*")))

ljttjl

(setq a (car (entsel)))

(setq b (entget a '("SOUTH")))

(setq b1 (assoc -3 b))

(setq b2 (assoc "SOUTH" (cdr b1)) )

(setq b3 (append b2 (list '(1040 . 2.0))))   ;;;将混房层数加入扩展数据.

(setq m1 (list -3 b3))

(setq m2 (entget a))
(setq m3 (append m2 (list m1)))     ;;;将新加的扩展数据附着到所选择的对象。
(entmod m3)