将逗号添加到

newchurchr · 发表于 2022-7-7 13:25:05

有人知道在autocad中向数字添加逗号的最快方法吗？我在一张图中有很多数字，我需要在它们上面加逗号。有一个口齿不清的语言我可以用来添加他们所有的一次？

rkmcswain · 发表于 2022-7-7 13:36:15

这个lisp函数将完成此操作。

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/1-000-comma-separator/m-p/5015844#M322340

newchurchr · 发表于 2022-7-7 13:50:17

我不能让那个命令生效

rkmcswain · 发表于 2022-7-7 14:01:20

在我发布它之前，它对我有效。

我现在又在做了。。。加载函数后，它工作正常。

copy


Command: (rtoc 123456789.09876 2)
"123,456,789.10"

newchurchr · 发表于 2022-7-7 14:10:46

我将文本保存为。lsp和通过appload加载，就像我一直做的那样，然后我键入rtoc激活命令。什么都没有发生，我做错了什么。

copy


(defun rtoc ( n p / d i l x )
   (setq d (getvar 'dimzin))
   (setvar 'dimzin 0)
   (setq l (vl-string->list (rtos n 2 p))
         x (cond ((cdr (member 46 (reverse l)))) ((reverse l)))
         i 0
   )
   (setvar 'dimzin d)
   (vl-list->string
       (append
           (reverse
               (apply 'append
                   (mapcar
                      '(lambda ( a b )
                           (if (and (zerop (rem (setq i (1+ i)) 3)) b)
                               (list a 44)
                               (list a)
                           )
                       )
                       x (append (cdr x) '(nil))
                   )
               )
           )
           (member 46 l)
       )
   )
)

BIGAL · 发表于 2022-7-7 14:22:04

您必须调用它并传递两个变量，即数字和精度（rtoc 123456789.09876 2）

（defun rtoc（n p/d i l x）defun rtoc，n&p是要提供的两个变量，d i l x是代码中使用的局部变量，/分隔局部和全局变量。

copy


(setq num 1234567.23)
(rtoc num 2)

rkmcswain · 发表于 2022-7-7 14:30:49

我不知道还能给你看什么。将实数（要添加逗号的数字）和整数（所需的精度级别）传递给此函数。

它不是一个允许您选择实体等的完整工作命令。

copy


Command: (rtoc 123456789.09876 2)
"123,456,789.10"

[综合讨论] 将逗号添加到

发表回复

精选推荐

浏览过的版块