多段线坐标TXT输出坐标求高手帮助

tangweinbs · 发表于 2015-7-29 07:57:13

(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 2) ","
         (rtos (cadr pt) 2 2) ","
      )
               fff
   )
   )
  )
            (close fff)
      (princ (strcat "\n坐标已存入\"" wjm "\"中"))
   )
)
)
(setvar "cmdecho" cm)
(princ)
)

输出的坐标小数点是两位怎么能修改成小数点后三位或者四位？

903242237 · 发表于 2015-7-29 09:00:39

      (rtos (car  pt) 2 2) ","
         (rtos (cadr pt) 2 2) ","
改成
      (rtos (car  pt) 2 3) ","
         (rtos (cadr pt) 2 3) ","
就好了吧

tangweinbs · 发表于 2015-7-29 17:51:56

903242237 发表于 2015-7-29 09:00
(rtos (car pt) 2 2) ","
(rtos (cadr pt) 2 2) ","
改成

谢谢问题已经解决呵呵 . 请教下没有基础我想学习下LSP程序编程看点什么书?

zzl9105 · 发表于 2018-5-16 15:05:20

有直接定义好保存的文件位置和文件名的吗，不想在过程中还要指定一下文件名

wanhongron · 发表于 2022-4-26 12:54:53

能在图中增加顶点编号功能吗？

lee50310 · 发表于 2022-4-26 19:06:08

本帖最后由 lee50310 于 2022-4-26 19:11 编辑

wanhongron 发表于 2022-4-26 12:54
能在图中增加顶点编号功能吗？

你是指這功能嗎?

song宋_74729 · 发表于 2022-4-26 19:32:08

本帖最后由 song宋_74729 于 2022-4-26 19:34 编辑

(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)
)

小数点后三位

song宋_74729 · 发表于 2022-4-26 19:33:30

(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 4) ","
         (rtos (cadr pt) 2 4) ","
      )
               fff
   )
   )
  )
            (close fff)
      (princ (strcat "\n坐标已存入\"" wjm"\"中"))
   )
)
)
(setvar "cmdecho" cm)
(princ)
)
小数点后四位

jsbcc · 发表于 2023-5-7 04:26:20

纯小白，请问cad提示输入的字符串有缺陷，怎么办

账号		自动登录	找回密码
密码			注册

[讨论] 多段线坐标TXT输出坐标求高手帮助

本帖子中包含更多资源

[讨论] 多段线坐标TXT输出坐标 求高手帮助

本帖子中包含更多资源

[讨论] 多段线坐标TXT输出坐标求高手帮助