将Z坐标导出为新文本

goldy2000 · 发表于 2022-7-6 14:25:01

大家好，这是互联网上最好的CAD论坛：D。。。我有一个问题，有没有可能制作一个lisp，可以将Z坐标的值导出到一个新层（称为VISINA_TEXT）？？我有3D点，我需要导出（分配）文本文件中Z坐标的值（但在本例中只有逗号后的两位数：99,37），该文件的位置与示例文件中的位置相同？？

goldy2000 · 发表于 2022-7-6 14:40:54

有人知道解决方案吗？？或者可能有一些类似的Lisp程序？？

Lee Mac · 发表于 2022-7-6 14:51:41

我不太理解你的要求-

你提到了将文本导出到一个新层，但你谈到了导出到一个文本文件。。。你想要哪一个？

goldy2000 · 发表于 2022-7-6 14:56:24

嗨，伙计！！我的意思是指定（找不到合适的词）包含Z坐标的文本。
示例：我有一个坐标为（X，Y，Z-->65,24,22.33）的三维点，因此我需要提取Z坐标（在本例中为22.33）以写入文本22.33（但在某些新层中），问题是以文本形式“读取”Z坐标和“写入”。。。这有帮助吗？？

Lee Mac · 发表于 2022-7-6 15:09:58

试试这个：

copy


(defun c:ztxt (/ ss)
 (vl-load-com)
 (if (setq ss (ssget '((0 . "POINT"))))
   (mapcar
     (function
       (lambda (x)
         (Make_Text x
           (rtos (caddr x) 2 2))))
     (mapcar
       (function
         (lambda (x)
           (cdr (assoc 10 (entget x)))))
       (vl-remove-if 'listp
         (mapcar 'cadr (ssnamex ss))))))
 (princ))
(defun Make_Text  (pt val)
 (entmake
   (list
     (cons 0 "TEXT")
     (cons 8 "VISINA_TEXT")
     (cons 10 pt)
     (cons 40 (getvar "TEXTSIZE"))
     (cons 1 val)
     (cons 50 0.0)
     (cons 7 (getvar "TEXTSTYLE"))
     (cons 71 0)
     (cons 72 0)
     (cons 73 0)
     (cons 11 pt))))

goldy2000 · 发表于 2022-7-6 15:22:16

你真的很快震惊：我试过了，效果很好！！！你们解决了我在论坛上问的很多问题，谢谢你们，你们抽出了我这么多时间坐在显示器前：哈哈！！！！！！！！！！

Lee Mac · 发表于 2022-7-6 15:33:07

没问题，伙计-很乐意帮忙。

[编程交流] 将Z坐标导出为新文本

发表回复

精选推荐