CAD中如何用lisp语言得到直线的倾斜角度

答案:2 悬赏:40 手机版

解决时间 2021-02-14 21:59

提问者网友：愿为果
2021-02-14 14:43

想写入一个txt文本,文本的倾斜角度根据选取的直线角度确定

最佳答案

五星知识达人网友：一把行者刀
2021-02-14 15:56

(vlax-get-property (vlax-ename->vla-object (car (entsel))) 'angle)
弧度

全部回答

1楼网友：渊鱼
2021-02-14 16:15

直线的图元表： ((-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))) 就可以提取到图元表

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息