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

tender138

各位大师，请问咋样才能使(cdr (assoc 10 (entget (car (nentsel)))))的坐标与标注的坐标相同？

飞雪神光

1. (trans (cdr(assoc 10 (entget ty))) 0 1)

(trans (cdr(assoc 10 (entget ty))) 0 1)

坐标系和视图不正常啊  扩展数据里有个 NBT的坐标数据 就是它显示这个

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

飞雪神光 发表于 2024-12-20 16:05
坐标系和视图不正常啊  扩展数据里有个 NBT的坐标数据 就是它显示这个

谢谢！这样是可提取与标注统一的坐标数据，我是想有没有办法转换坐标系使(cdr (assoc 10 (entget (car (nentsel)))))的结果直接与标注坐标统一？

你有种再说一遍

判断浮点数是否一致

自贡黄明儒

用世界坐标？？？

xiaocainiao

用trans函数转成UCS坐标就行了吧

tender138

xiaocainiao 发表于 2024-12-20 16:05
用trans函数转成UCS坐标就行了吧

谢谢！应该是这样，可我不懂怎么转

飞雪神光

tender138 发表于 2024-12-20 16:52
谢谢！这样是可提取与标注统一的坐标数据，我是想有没有办法转换坐标系使(cdr (assoc 10 (entget (car (n ...

现在就是一致的 提取出来的时候用rtos

tender138

自贡黄明儒 发表于 2024-12-20 15:55
用世界坐标？？？

谢谢，是的，可我不懂怎么转换坐标系

xiaocainiao

tender138 发表于 2024-12-20 16:53
谢谢！应该是这样，可我不懂怎么转

(trans (cdr (assoc 10 (entget (car (nentsel))))) 0 1)  试试