需要lisp：提取多边形lin

ayman_48 · 发表于 2022-7-5 15:17:38

大家好，如果有人帮助我，我将非常感谢：-
我有一条有50个顶点的多边形线，我需要lisp将这个顶点坐标X，Y提取到文本文件中

Tharwat · 发表于 2022-7-5 15:25:01

你好

它是LWpolyline还是3Dpolyline？

ayman_48 · 发表于 2022-7-5 15:27:29

二维多段线

Tharwat · 发表于 2022-7-5 15:32:31

用逗号或空格分隔？

ayman_48 · 发表于 2022-7-5 15:36:21

请用逗号

Tharwat · 发表于 2022-7-5 15:43:19

最后一个问题：坐标的精度是多少？

ayman_48 · 发表于 2022-7-5 15:48:37

3号，谢谢你的帮助

Tharwat · 发表于 2022-7-5 15:52:49

试试看，让我知道：

copy


(defun c:Test (/ ss fl op)
 ;; Tharwat. 11.May.16        ;;
 (princ "\nSelect LWpolylines:")
 (and (setq ss (ssget '((0 . "LWPOLYLINE"))))
      (setq fl (getfiled "Specify txt file name:" (getvar 'DWGPREFIX) "txt" 1))
      (setq op (open fl "w"))
      (progn
        ((lambda (i / sn p)
           (while (setq sn (ssname ss (setq i (1+ i))))
             (mapcar '(lambda (x) (and (= (car x) 10)
                                       (setq p (cdr x))
                                       (write-line (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3)) op ) )
                        )
                     (entget sn)
                     )
             )
           )
          -1
          )
        (close op)
        )
      )
 (princ)
 )

ayman_48 · 发表于 2022-7-5 15:57:45

完美的工人非常感谢
جزاك الله خيرا

Tharwat · 发表于 2022-7-5 16:03:32

非常欢迎你。

[编程交流] 需要lisp：提取多边形lin

发表回复

精选推荐