求助求助 如何获取这种块的XYZ坐标

yjpyjp

   求助求助，想批量导出到txt，找了一圈没找到有这种功能的插件

Andyhon

单是个测试框架
(defun c:try ()
  (setq ss (ssget "X" '((0 . "INSERT")))
        nn (sslength ss)
        ff (open "V:/aaa.txt" "w") ;_路径请自订
  )
  (while (not (Minusp (setq nn (1- nn))))
    (setq pt (dxg 10 (ssname ss nn)))
    (print pt ff)
  )
  (close ff)
)

飞雪神光

可能是功能太简单了吧 这就是组码10啊

完美

如果只是应用的话，CAD2016版以上，工具-数据提取，可以选择块，里面有几何图形属性（位置XYZ），可以直接导出坐标和块名等。

yjpyjp

Andyhon 发表于 2025-1-8 15:48
单是个测试框架
(defun c:try ()
  (setq ss (ssget "X" '((0 . "INSERT")))

Application Error: 0 :- no function definition: DXGADS 请求错误    这个没有嘞

Andyhon

http://bbs.mjtd.com/thread-179401-1-1.html 5#

yjpyjp

http://bbs.mjtd.com/forum.php?mo ... hlight=%B8%DF%B3%CC  已解决