Jakub 发表于 2022-7-5 16:45:29

从点设置相同的Z值

你好
 
我已经在TBC软件中将2D点覆盖到3D表面，这个过程会创建新点（2D坐标相同，但Z值从0更改为新值）。遗憾的是，此过程不会将点编号（标签）重新定位到同一高程。最后，我无法将点从CAD导出到带有标签的TXT。
 
我经常使用“ECoor”lisp例程，导出带有编号的坐标，其中number考虑最接近点的文本。由于Z值，这些数字不是最接近点的。
 
有什么办法可以做到吗？
 
感谢您提前提出建议。

David Bethel 发表于 2022-7-5 16:58:38

你能寄一张样图吗？

Jakub 发表于 2022-7-5 17:10:37

 
是的，我在附件中发送DWG文件。
样品图纸

David Bethel 发表于 2022-7-5 17:31:45

这些数字真的很大！
 
这应该有效：
 

(defun c:txtzpt (/ ss i en ed pp tp ts tn td)
(and (setq ss (ssget "X" (list (cons 0 "POINT"))))
      (princ (strcat "\nSearching " (itoa (sslength ss)) " Points..\n"))
      (setq i 0)
      (while (setq en (ssname ss i))
             (princ (strcat "\r" (rtos i 2 0) "      "))
             (setq ed (entget en)
                   pp (cdr (assoc 10 ed))
                   tp (list (car pp) (cadr pp) 0))
             (and (setq ts (ssget "X" (list (cons 0 "TEXT")
                                          (cons 10 tp))))
                  (= (sslength ts) 1)
                  (setq tn (ssname ts 0)
                        td (entget tn))
               (entmod (subst (cons 10 pp) (assoc 10 td) td)))
             (setq i (1+ i))))
(prin1))

 
 
-大卫

Jakub 发表于 2022-7-5 17:37:32

 
这正是我要找的！我感谢你的帮助。非常感谢，祝你一切顺利！

David Bethel 发表于 2022-7-5 17:48:55

不客气！
页: [1]
查看完整版本: 从点设置相同的Z值