CASS10中如何获取多段线节点坐标

方法一:

1.     在命令行中键入“list”命令，然后选中要查询的多段线，回车确认

2.     将节点坐标信息选中并复制粘贴到记事本中，得到多段线的节点坐标。

方法二：

自定义一个获取多段线节点坐标的lsp文件。

1.     将下列代码复制粘贴到一个记事本文件中。

(defun c:tqzb (/)

    (setq cm (getvar "cmdecho"))

    (setvar "cmdecho" 0)

    (if (setq wjm (getfiled "请指定要保存的坐标文件" "e:\\" "txt" 1))

        (if (setq ssa (ssget '((0 . "LWPOLYLINE"))))

            (progn

                (setq fff (open wjm "w")

                      n   (sslength ssa)

                      i   0

                      no  0

                  )

                  (repeat n

                       (setq dxf (entget (ssname ssa i))

                             i   (1+ i)

                             ptb (mapcar 'cdr (vl-remove-if-not '(lambda(x)(= (car x) 10)) dxf))

                             ptb (mapcar '(lambda(x)(trans x 0 1)) ptb)

                        )

                        (foreach pt ptb

                            (setq no (1+ no))

                            (write-line

                                 (strcat ;(itoa no) ","

                                         (rtos (car  pt) 2 3) ","

                                         (rtos (cadr pt) 2 3) ","

                                  )

                                  fff

                            )

                       )

                  )

                  (close fff)

                  (princ (strcat "\n坐标已存入\"" wjm "\"中"))

            )

        )

    )

    (setvar "cmdecho" cm)

    (princ)

)

2.     保存该文件，并重命名为“多段线导出折点坐标 (tqzb).lsp”。

3.     打开CASS10.0,命令行键入“appload”，打开“加载/卸载应用程序”对话框，选择“多段线导出折点坐标 (tqzb).lsp”文件，并点击“加载”按钮。

4.     消息框提示“多段线导出折点坐标 (tqzb).lsp”加载成功

5.     点击“关闭”按钮，关闭当前对话框。

6.     在命令行中键入“tqzb”，弹出“请指定要保存的坐标文件”对话框，指定导出节点坐标文件的保存路径，并点击“保存”按钮。

7.     选择要导出节点坐标的多段线，回车确认。

8.     命令行提示坐标文件保存成功。

9.     打开保存的坐标文件，查看结果。

注：该lsp文件在纯CAD环境中也可以适用。