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

a中心坐标

我很困惑，请帮忙
(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)

 
亨里克
页: [1] 2
查看完整版本: a中心坐标