本帖最后由 作者 于 2008-5-29 16:06:57 编辑
;;请问各位大侠,在lisp中,用命令ddedit编辑后的文字能否获得?通过什么方式获得? 能给源码更好,给一思路也行。谢谢。 ;;用途:把用命令ddedit编辑过的文字更改颜色,并换到另一层“XG”。 附某文字改前的信息: ((-1 . <图元名: 7e356488>) (0 . "TEXT") (330 . <图元名: 7e5eecf8>) (5 . "1BBBB1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "PUB_TITLE") (62 . 7) (100 . "AcDbText") (10 321478.0 132425.0 0.0) (40 . 300.0) (1 . "1-B座住宅奇数层平面图") (50 . 0.0) (41 . 0.9) (51 . 0.0) (7 . "HZST") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
附某文字改后的信息: ((-1 . <图元名: 7e356488>) (0 . "TEXT") (330 . <图元名: 7e5eecf8>) (5 . "1BBBB1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "PUB_TITLE") (62 . 7) (100 . "AcDbText") (10 321478.0 132425.0 0.0) (40 . 300.0) (1 . "1-B座住宅") (50 . 0.0) (41 . 0.9) (51 . 0.0) (7 . "HZST") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
——若产生新图元就很容易获得;但图元名似乎一样,没新的产生。
|