麻烦各位大师给分享个批量选择数字将其保留1位小数的lsp程序，十分感谢。

相信自己666

麻烦各位大师给分享个批量选择多位小数数字将其四舍五入保留为1位小数数字的lsp程序，十分感谢。

爱莫能助

rxbwyl 发表于 2019-7-22 15:15
[quote]爱莫能助 发表于 2019-7-20 13:33
(Defun c:test (/ EN SS STR VLN)
  (vl-load-com)

上传你的DWG文件吧，哪些要修改注明清楚

爱莫能助

(Defun c:test (/ EN SS STR VLN)
  (vl-load-com)
  (princ "\n功能 [选择带小数文本修改保留1位]")
  (While (setq ss (ssget ":S" '((1 . "*.*"))))
    (setq en (vl-remove-if-not
               '(lambda (x) (= (type x) 'ENAME))
               (mapcar 'cadr (ssnamex ss))
             )
    )
    (Foreach n en
      (Setq Vln (Vlax-Ename->Vla-Object n))
      (setq str (Rtos (atof (vla-get-TextString Vln)) 2 1))
      (vla-put-TextString Vln str)
      )
  )
  (princ)
)

相信自己666

爱莫能助 发表于 2019-7-19 16:13
(Defun c:test (/ EN SS STR VLN)
  (vl-load-com)
  (princ "\n功能 [选择带小数文本修改保留1位]")

您好老师，这个程序是可以把数字保留1位小数，但是有缺陷，它也能把带数字的文字和带数字的英文，字都改成0，麻烦老师给看下能不能解决，十分感谢。

爱莫能助

相信自己666 发表于 2019-7-19 22:23
您好老师，这个程序是可以把数字保留1位小数，但是有缺陷，它也能把带数字的文字和带数字的英文，字都改 ...

(Defun c:test (/ EN SS STR VLN)
  (vl-load-com)
  (princ "\n功能 [选择带小数文本修改保留1位]")
  (While (setq ss (ssget ":S" '((1 . "~*[~`--9]*"))))
    (setq en (vl-remove-if-not
               '(lambda (x) (= (type x) 'ENAME))
               (mapcar 'cadr (ssnamex ss))
             )
    )
    (Foreach n en
      (Setq Vln (Vlax-Ename->Vla-Object n))
      (setq str (Rtos (atof (vla-get-TextString Vln)) 2 1))
      (vla-put-TextString Vln str)
      )
  )
  (princ)
)

rxbwyl

[quote]爱莫能助 发表于 2019-7-20 13:33
(Defun c:test (/ EN SS STR VLN)
  (vl-load-com)
  (princ

文字和数安混合的处理不了 老师
比方：桃树56.77777 改成：桃树56．8
来自: 微社区

爱莫能助

爱莫能助 发表于 2019-7-22 16:40
上传你的DWG文件吧，哪些要修改注明清楚

上传你的DWG文件吧，把哪些要修改的注明清楚

相信自己666

爱莫能助 发表于 2019-7-22 16:42
上传你的DWG文件吧，把哪些要修改的注明清楚

您好老师，第二个程序就可以用了，谢谢您，十分感谢

rxbwyl

老师，我那附件传上了，帮忙看看