[已解决] LISP获取三维圆心问题

ehcapa · 发表于 2021-2-28 21:22:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 ehcapa 于 2021-3-1 14:40 编辑

如题，在用LISP获取CAD中三维圆心的时候，出现数据不一致的情况，具体如下：
西南等轴测视图中，用LISP在XY平面中绘制圆后，用rotate3d进行旋转，e1图元Y轴旋转270°，e2图元旋转315°，

旋转后：

entget获取e1图元的数据如下：

         ((-1 . <图元名: 7ff422005970>) (0 . "CIRCLE") (330 . <图元名: 7ff4220039f0>)

         (5 . "20F") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle")
         (10 -1000.0 1900.0 1700.0) (40 . 200.0) (210 0.0 1.0 -2.22045e-016))
CAD中显示的e1的圆心为：

entget获取e2图元的数据如下：
         ((-1 . <图元名: 7ff422005980>) (0 . "CIRCLE") (330 . <图元名: 7ff4220039f0>)
         (5 . "210") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle")
         (10 -1000.0 287.868 2192.03) (40 . 200.0) (210 0.0 0.707107 0.707107))

CAD中显示的e2的圆心为：

一般资料中显示的组码10代表圆心，但是这两者数据不同，请问一下这个是还需要换算么

HLCAD · 发表于 2021-3-1 13:58:40

(setq en (entget (car(entsel"\n拾取圆:"))))
(trans (cdr (assoc 10 en)) (cdr (assoc 210 en)) 1)

ehcapa · 发表于 2021-3-1 14:40:23

HLCAD 发表于 2021-3-1 13:58
(setq en (entget (car(entsel"\n拾取圆:"))))
(trans (cdr (assoc 10 en)) (cdr (assoc 210 en)) 1)

非常感谢！

账号		自动登录	找回密码
密码			立即注册

[求助] [已解决] LISP获取三维圆心问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。