请问咋样才能使entget的坐标与标注的坐标相同？

xyp1964

1.不在一个坐标系
2.xy轴数据也得交换

tender138

飞雪神光 发表于 2024-12-20 16:54
现在就是一致的 提取出来的时候用rtos

非常感谢！麻烦帮我看看附件1.dwg，咋样才能使特性显示的坐标与标注坐标统一

tender138

xiaocainiao 发表于 2024-12-20 16:59
(trans (cdr (assoc 10 (entget (car (nentsel))))) 0 1)  试试

谢谢！还是不行

tender138

xyp1964 发表于 2024-12-20 17:03
1.不在一个坐标系
2.xy轴数据也得交换

是的，但具体不知道咋操作

xyp1964

1. (defun c:tt ()
   
2.   (defun xyp-dxf (code e) (cdr (assoc code (entget e))))
   
3.   (while (setq s1 (car (entsel "\n选择: ")))
   
4.     (setq pt (trans  (xyp-DXF 10 s1) 0 1)
   
5.            x  (* (cadr pt) 1e-3)
   
6.           y  (* (car pt) 1e-3)
   
7.           xx (rtos x 2 3)
   
8.           yy (rtos y 2 3)
   
9.     )
   
10.     (princ "\nX = ")(princ xx)
    
11.     (princ "\nY = ")(princ yy)
    
12.     (alert (strcat "X=" xx "\r" "Y=" yy))
    
13.   )
    
14.   (princ)
    
15. )

(defun c:tt ()<br />   (defun xyp-dxf (code e) (cdr (assoc code (entget e))))<br />   (while (setq s1 (car (entsel "\n选择: ")))<br />     (setq pt (trans  (xyp-DXF 10 s1) 0 1) <br />            x  (* (cadr pt) 1e-3)<br />           y  (* (car pt) 1e-3)<br />           xx (rtos x 2 3)<br />           yy (rtos y 2 3)<br />     )<br />     (princ "\nX = ")(princ xx)<br />     (princ "\nY = ")(princ yy)<br />     (alert (strcat "X=" xx "\r" "Y=" yy))<br />   )<br />   (princ)<br /> )

tender138

xyp1964 发表于 2024-12-21 00:20

非常感谢院长！请问有什么办法可以变换图纸坐标系使高程点里面的特性坐标跟(cdr (assoc 10 (entget (car (nentsel)))))的坐标统一吗？

tender138

我根本不懂坐标系，发现天正有个“坐标检查”可以实现这个功能，但不想安装太多软件

kozmosovia

要数据一样，直接用字段啊

tender138

kozmosovia 发表于 2024-12-22 15:30
要数据一样，直接用字段啊

谢谢！我太菜了，不懂

kozmosovia

tender138 发表于 2024-12-22 17:58
谢谢！我太菜了，不懂