天正引出标注lisp_如何取得附图两个天正实体中的文字内容？ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 天正,如何 - Powered by D...

本帖最后由 wowan1314 于 2012-5-29 23:00 编辑

命令: (SETQ AA (ENTGET (CAR (ENTSEL))))

选择对象: ((-1 . ) (0 . "TCH_WIREDIM2") (330 .

7ef58c10>) (5 . "17B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .

"DIM-照明") (100 . "TDbEntity") (46 . 0.0) (47 . 100.0) (68 . 1) (100 .

"TDbSymbWithText") (7 . "_TEL_DIM") (40 . 3.5) (52 . 0.0) (410 . "TEL_TEXT")

(100 . "TDbWireDimNew"))

命令: (SETQ BB (ENTGET (CDR (CADDR AA))))

((-1 . ) (0 . "BLOCK_RECORD") (330 . ) (5 .

"2") (100 . "AcDbSymbolTableRecord") (100 . "AcDbBlockTableRecord") (2 .

"*MODEL_SPACE") (360 . ) (340 . ))

命令: (SETQ DD (ENTGET (CDR (ASSOC 360 BB))))

((-1 . ) (0 . "BLOCK") (330 . ) (5 . "3")

(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .

"AcDbBlockBegin") (70 . 0) (10 0.0 0.0 0.0) (-2 . ) (2 .

"*MODEL_SPACE") (1 . ""))

命令: (SETQ DD (ENTGET (CDR (ASSOC 340 BB))))

((-1 . ) (0 . "LAYOUT") (5 . "50") (102 . "{ACAD_REACTORS")

(330 . ) (102 . "}") (330 . ) (100 .

"AcDbPlotSettings") (1 . "") (2 . "\\\\DEVELOP_SERVER\\Lexmark Optra S PS") (4

. "") (40 . 0.0) (41 . 0.0) (42 . 0.0) (43 . 0.0) (44 . 0.0) (45 . 0.0) (46 .

0.0) (47 . 0.0) (48 . 0.0) (49 . 0.0) (140 . 0.0) (141 . 0.0) (142 . 1.0) (143

. 1.0) (70 . 1712) (72 . 0) (73 . 0) (74 . 0) (7 . "") (75 . 0) (147 . 1.0) (76

. 0) (77 . 2) (78 . 300) (148 . 0.0) (149 . 0.0) (100 . "AcDbLayout") (1 .

"Model") (70 . 1) (71 . 0) (10 0.0 0.0 0.0) (11 12.0 9.0 0.0) (12 0.0 0.0 0.0)

(14 0.0 0.0 0.0) (15 0.0 0.0 0.0) (146 . 0.0) (13 0.0 0.0 0.0) (16 1.0 0.0 0.0)

(17 0.0 1.0 0.0) (76 . 0) (330 . ))

估计内容就是隐藏在340  360这两个图元中。两个都有个(1 . “”)，此“”代表被标物体隐藏内容。

就像CAD的标注中。(1 . “”)代表实际测量值。

同样在导线中用LSP及开发助手查看均未找到有关内容。不晓得天正把他存在图元的什么地方了。

学习编程不久。  只希望我的见解对楼主有点用。如果说的不对，请见谅，并无视之。

另外论坛上用天正的貌似不多哦。你的图不装天正都打不开吧。