tender138 发表于 2024-12-20 15:21:55

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

本帖最后由 tender138 于 2024-12-20 17:15 编辑

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




飞雪神光 发表于 2024-12-20 16:05:56

本帖最后由 飞雪神光 于 2024-12-20 16:15 编辑

(trans (cdr(assoc 10 (entget ty))) 0 1) 坐标系和视图不正常啊扩展数据里有个 NBT的坐标数据 就是它显示这个

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

本帖最后由 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)
)

tender138 发表于 2024-12-20 16:52:20

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

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

你有种再说一遍 发表于 2024-12-20 15:28:14

判断浮点数是否一致

自贡黄明儒 发表于 2024-12-20 15:55:15

用世界坐标？？？

xiaocainiao 发表于 2024-12-20 16:05:47

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

tender138 发表于 2024-12-20 16:53:29

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

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

飞雪神光 发表于 2024-12-20 16:54:29

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

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

tender138 发表于 2024-12-20 16:54:37

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

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

xiaocainiao 发表于 2024-12-20 16:59:30

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

(trans (cdr (assoc 10 (entget (car (nentsel))))) 0 1)试试
页: [1] 2
查看完整版本: 请问咋样才能使entget的坐标与标注的坐标相同？