2.xy轴数据也得交换 飞雪神光 发表于 2024-12-20 16:54
现在就是一致的 提取出来的时候用rtos
非常感谢！麻烦帮我看看附件1.dwg，咋样才能使特性显示的坐标与标注坐标统一 xiaocainiao 发表于 2024-12-20 16:59
(trans (cdr (assoc 10 (entget (car (nentsel))))) 0 1)试试
谢谢！还是不行 xyp1964 发表于 2024-12-20 17:03
1.不在一个坐标系
2.xy轴数据也得交换
是的，但具体不知道咋操作 本帖最后由 xyp1964 于 2024-12-21 00:21 编辑
(defun c:tt ()
(defun xyp-dxf (code e) (cdr (assoc code (entget e))))
(while (setq s1 (car (entsel "\n选择: ")))
(setq pt (trans(xyp-DXF 10 s1) 0 1)
x(* (cadr pt) 1e-3)
y(* (car pt) 1e-3)
xx (rtos x 2 3)
yy (rtos y 2 3)
)
(princ "\nX = ")(princ xx)
(princ "\nY = ")(princ yy)
(alert (strcat "X=" xx "\r" "Y=" yy))
)
(princ)
)
xyp1964 发表于 2024-12-21 00:20
非常感谢院长！请问有什么办法可以变换图纸坐标系使高程点里面的特性坐标跟(cdr (assoc 10 (entget (car (nentsel)))))的坐标统一吗？ 我根本不懂坐标系，发现天正有个“坐标检查”可以实现这个功能，但不想安装太多软件 要数据一样，直接用字段啊 kozmosovia 发表于 2024-12-22 15:30
要数据一样，直接用字段啊
谢谢！我太菜了，不懂 tender138 发表于 2024-12-22 17:58
谢谢！我太菜了，不懂
https://www.bilibili.com/video/BV143411e73D/?spm_id_from=333.999.0.0
页:
1
[2]