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

如何删除小数点

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

(defun c:YCoord (/ ss di 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

还有一种方法（只是想玩得开心）：
 
; (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技术，主要用于包括列表框的操作。
我刚刚翻译了“点”将“”隔开，使列表包含两个项目（在“.”之前和之后）。
我看到李在他的网站上写了一些通用的子功能。
页: [1] 2
查看完整版本: 如何删除小数点