autoLisp中怎样改变ddtext输入的文字???

lucumu

autoLisp中怎样改变ddtext输入的文字???


如何取得文字内容和如何改变文字的内容?????

lanyuling

Command: (entget (car (entsel))) Select object: ((-1 . <Entity name: 40202e60>) (0 . "TEXT") (330 . <Entity
name: 40202cf8>) (5 . "4C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"0") (100 . "AcDbText") (10 -43.995 969.714 0.0) (40 . 500.0) (1 . "设计依据")
(50 . 0.0) (41 . 0.8) (51 . 0.0) (7 . "2") (71 . 0) (72 . 0) (11 0.0 0.0 0.0)
(210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
看到上面有没有一个“(1 . "设计依据") ” 然后再用LSP编写，更改就可以了！！！