如何用LISP语言提取CAD中文本或直线的倾斜角度？

 我来答

1个回答

#热议# 空调使用不当可能引发哪些疾病？

百度网友4bab3be8c
推荐于2016-04-19 · TA获得超过4703个赞

知道大有可为答主

回答量：3576

采纳率：85%

帮助的人：2141万

我也去答题访问个人页

关注

展开全部

直线的图元表：
((-1 . <图元名: 7ffffb05e20>) (0 . "LINE") (330 . <图元名: 7ffffb03990>) (5 .
"DF2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "MOU") (100 .
"AcDbLine") (10 0.919113 2.15962 0.0) (11 4.32096 6.14953 0.0) (210 0.0 0.0
1.0))
10和11项是直线的两个端点(10 0.919113 2.15962 0.0) (11 4.32096 6.14953 0.0) ，要经过计算才会得出直线的角度
倾斜文字的图元表
((-1 . <图元名: 7ffffb05e40>) (0 . "TEXT") (330 . <图元名: 7ffffb03990>) (5 .
"DF4") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "MOU") (100 .
"AcDbText") (10 7.44934 1.78795 0.0) (40 . 1.235) (1 . "123456") (50 .
0.273648) (41 . 1.0) (51 . 0.0) (7 . "ROMAND") (71 . 0) (72 . 0) (11 0.0 0.0
0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
其中第50项(50 . 0.273648) 是角度，单位是弧度，要转化成角度（15.6789度）
用命令
(entget (car (entsel)))
就可以提取到图元表

追问