如何删除小数点

ktbjx · 发表于 2022-7-5 15:38:25

不得向上或向下取整。。我只想去掉小数点后的数字。
我不知道怎么做？？？
你能给我技术吗？


(defun c:YCoord (/ ss d  i e el start_point new_start_point)
 (vl-load-com)
 (setq ss (ssget "_:L" '((0 . "LINE"))))
 (setq i 0)
(setq e (ssname ss i))
(setq el (entget e))
(setq start_point (assoc 10 el))
(setq new_start_point (caddr start_point ))
 (and (setq obj (car (entsel "\nPick text object :")))
      (setq obj (vlax-ename->vla-object obj))
      (wcmatch (vla-get-objectname obj) "AcDb*Text")
      (vla-put-textstring obj (strcat "Y "(rtos new_start_point))
 )
     )
   )

Aftertouch · 发表于 2022-7-5 15:44:52

研究RTOS功能。

酒店雇员和饭馆雇员

Steven P · 发表于 2022-7-5 15:52:01

我没有检查，但int（integer）有帮助：

https://knowledge.autodesk.com/search-result/caas/CloudHelp/cloudhelp/2015/ENU/AutoCAD-AutoLISP/files/GUID-EF6114FC-F1E4-4C71-91CC-07D01E6C8ABB-htm.html

rlx · 发表于 2022-7-5 15:59:29

（itoa（fix 3.14））怎么样

ktbjx · 发表于 2022-7-5 16:05:22

阿门！谢谢你，先生！哈哈，这就是你使用FIX>的方式。
说实话，我不懂我的代码。我只是复制并粘贴其他人的代码，然后找出这些代码的作用

rlx · 发表于 2022-7-5 16:09:35

相信我，你不是唯一一个在这个论坛上的人哈哈

Grrr · 发表于 2022-7-5 16:12:40

还有一种方法（只是想玩得开心）：

copy

; (myfix PI)
(defun myfix ( n )
 (cond 
   ( (eq 'REAL (type n))
     (car (read (strcat "(" (vl-string-subst " " "." (rtos n 2 15)) ")")))
   )
   ( (numberp n) n )
 )
)

Roy_043 · 发表于 2022-7-5 16:17:37

@Grrr：
（rtos 0.99999999 2 15）

rlx · 发表于 2022-7-5 16:23:11

请不要再这样做了，你刚刚打乱了我仅存的功能性脑细胞

Grrr · 发表于 2022-7-5 16:31:16

DOH！所以它不是完全可靠的-让我想起了这个线程，所以它说明了（rtos 4.2 2 15）或（rtos 1.0 2 15），但不是0.9999。。你提到过。

Rlx是一种常见的DCL技术，主要用于包括列表框的操作。
我刚刚翻译了“点”将“”隔开，使列表包含两个项目（在“.”之前和之后）。
我看到李在他的网站上写了一些通用的子功能。

[编程交流] 如何删除小数点

发表回复

精选推荐