a中心坐标

wimal · 发表于 2022-7-6 06:30:56

我很困惑，请帮忙

(setq r(cdr(assoc 40 ent)) )

；无线电fo圆
如何得到这个圆的中心坐标

hmsilva · 发表于 2022-7-6 06:35:41


(setq c (cdr(assoc 10 ent)))

wimal · 发表于 2022-7-6 06:38:16

谢谢你说得对。但是，当我将ucs移动到某个位置并重新加载此代码时，该值不正确。

hmsilva · 发表于 2022-7-6 06:42:20

看看“trans”函数。。。


(setq c (cdr(assoc 10 ent)));; wcs point
(trans c 2 1);; ucs point

亨里克

wimal · 发表于 2022-7-6 06:44:20

谢谢，你的代码是GREAT。

hmsilva · 发表于 2022-7-6 06:47:20

不客气，维马尔
很高兴我能帮忙

亨里克

Lee Mac · 发表于 2022-7-6 06:51:10

trans参数2表示输入以DCS（显示坐标系）表示，然而，大多数平面对象（包括圆）的坐标以实体的OCS表示；因此，我建议：

假设变量ent被分配了圆的DXF数据，上述将返回圆心w.r.t.WCS的坐标；如果有源UCS需要输出，则可以将0更改为1。

hmsilva · 发表于 2022-7-6 06:54:57

李写道：

“trans参数2表示输入用DCS（显示坐标系）表示，然而，大多数平面对象（包括圆）的坐标用实体的OCS表示。”

完全正确，我的错误，如果我混淆了某人，我道歉。。。

亨里克

Lee Mac · 发表于 2022-7-6 06:57:19

不用担心，亨里克

hmsilva · 发表于 2022-7-6 07:03:38

大概


(trans (cdr (assoc 10 ent)) (cdr (assoc -1 ent)) 0)

亨里克

[编程交流] a中心坐标