[求助]高手！高手！在哪？有个问题请教下
<p>(defun c:g()<br/> (if(setq gg (ssget "x" (list (cons 8 "8310") (cons 0 "TEXT"))))<br/> (command ".erase" gh_2 ""))<br/>)</p><p>选择对象: ((-1 . <图元名: 7ef6cb90>) (0 . "TEXT") (330 . <图元名: 7ef6acc0>) (5 <br/>. "45A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "JMD") (6 . <br/>"Continuous") (100 . "AcDbText") (10 183.176 65.1212 0.0) (40 . 1.5) (1 . "砖") <br/>(50 . 0.0) (41 . 0.8) (51 . 0.0) (7 . "HZ") (71 . 0) (72 . 4) (11 183.736 <br/>65.8712 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0) (-3 ("SOUTH" (1000 . <br/>"140009"))))</p><p>选择对象: ((-1 . <图元名: 7ef6cc78>) (0 . "LWPOLYLINE") (5 . "46F") (102 . <br/>"{ACAD_REACTORS") (330 . <图元名: 7ef6cc80>) (102 . "}") (330 . <图元名: <br/>7ef6acc0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "JMD") (6 . <br/>"Continuous") (100 . "AcDbPolyline") (90 . 4) (70 . 129) (43 . 0.0) (38 . 0.0) <br/>(39 . 0.0) (10 182.953 65.6426) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 182.953 <br/>64.8837) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 183.848 64.8837) (40 . 0.0) (41 . <br/>0.0) (42 . 0.0) (10 183.848 65.6426) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 <br/>0.0 1.0) (-3 ("SOUTH" (1000 . "141161") (1040 . 2.0))))</p><p>如何选取南方CASS的编码如(-3 ("SOUTH" (1000 . "140009")，怎么加入(-3 ("SOUTH" (1000 . "141161") (1040 . 2.0))))</p><p>混房的层数</p><p>走了几个论坛，没有人回答</p><p></p><p>有人能用LISP源码给我演示一下吗，在下非常感激~</p> 因为地物的cass属性在其属性列表的最后，所以选取南方CASS的编码可以用以下语句(last (entget(car(entsel))(list"*"))) <p>(setq a (car (entsel)))</p><p>(setq b (entget a '("SOUTH")))</p><p>(setq b1 (assoc -3 b))</p><p>(setq b2 (assoc "SOUTH" (cdr b1)) )</p><p></p><p>(setq b3 (append b2 (list '(1040 . 2.0)))) ;;;将混房层数加入扩展数据.</p><p>(setq m1 (list -3 b3))</p><p>(setq m2 (entget a))<br/>(setq m3 (append m2 (list m1))) ;;;将新加的扩展数据附着到所选择的对象。<br/>(entmod m3)</p><p></p><p></p>
页:
[1]