社区 › CAD › 将逗号添加到

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

在我发布它之前，它对我有效。
 
我现在又在做了。。。加载函数后，它工作正常。
 


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

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

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

(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是代码中使用的局部变量，/分隔局部和全局变量。
 
 

(setq num 1234567.23)
(rtoc num 2)

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

 
我不知道还能给你看什么。将实数（要添加逗号的数字）和整数（所需的精度级别）传递给此函数。
 
它不是一个允许您选择实体等的完整工作命令。
 


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

查看完整版本: 将逗号添加到