文字和文字坐标额外

sanju2323 · 发表于 2022-7-5 19:39:09

我需要lisp沿多段线的文字，使坐标和文字代码提取到CSV
样品图纸
必修的。csv

BIGAL · 发表于 2022-7-5 19:44:15

您的dwg绝不会反映您如何获得这些高程。这是某种形式的放样程序吗？你有其他竖曲线信息吗？

Tharwat · 发表于 2022-7-5 19:46:02

这是我的方法。


(defun c:Test  (/ sel f o l)
 ;;    Tharwat 11.01.2014    ;;
 (princ "\n Select Single texts :")
 (if (and (setq sel (ssget '((0 . "TEXT"))))
          (setq f (getfiled "Save as to csv format "
                            (getvar 'DWGPREFIX)
                            "CSV"
                            1))
          (setq o (open f "w"))
          )
   (progn
     ((lambda (x / sn e)
        (while (setq sn (ssname sel (setq x (1+ x))))
          (setq l
                 (cons (list (cdr (assoc 10 (setq e (entget sn))))
                             (cdr (assoc 1 e)))
                       l))
          )
        )
       -1)
     (setq l
            (vl-sort l
                     '(lambda (q p) (< (cadr (car q)) (cadr (car p))))))
     (write-line "Code,EASTING,NORTHING,ELEVATION" o)
     (mapcar '(lambda (v)
                (write-line
                  (strcat (cadr v)
                          ","
                          (rtos (caar v) 2)
                          ","
                          (rtos (cadar v) 2)
                          ","
                          (rtos (caddar v) 2))
                  o))
             l)
     (close o)
     )
   )
 (princ)
 )

sanju2323 · 发表于 2022-7-5 19:50:52

谢谢你，先生，做了一个很好的lisp代码

sanju2323 · 发表于 2022-7-5 19:53:37

文本看起来是垂直的，文本看起来是垂直的，沿着文本的多段线找出文本应该相应。
样本2.dwg
必修的。csv

Tharwat · 发表于 2022-7-5 19:57:37

我的程序是在第一张图上工作，你已经附加在第一个职位。
因此，为了使程序在这样的情况下工作，我认为程序应该考虑多段线的方式，并相应地对文本进行排序。

pBe · 发表于 2022-7-5 20:00:57

我知道我在另一个论坛上看到并回复了这个请求。

我在那里发布的代码应该适用于“sample2.dwg”和任何其他多段线配置。，唯一的问题是，我选择使用“文本”值而不是数字文本的Z坐标，正如您已经知道的，如果Z坐标取代数字值，则1.292将在CSV文件中列为“0.0”高程。

同样，如果文本值为1.292，Z坐标为0.0，CSV列表上应该出现什么值？
0.0对我来说没有意义，除非你告诉我1.292是基准标高。