明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 802|回复: 7

[提问] 偏移输入求整数

[复制链接]
发表于 2016-10-28 00:46 | 显示全部楼层 |阅读模式
(defun C:ZO ( )
  (setq pj (getdist "\n偏移距离"))
  (while (setq ename (car (entsel)))
    (setq elast (entlast))
    (command "OFFSET" pj ename pause "")
    (if (not (equal elast (entlast)))
      (progn
(setq elast (entlast))
)
      )
    )
  )

这个小程序,想在输入偏移距离时,点取两点,以两点间的距离求一个整数,作为偏移距离,想请各位老大帮忙改改好吗
发表于 2016-10-28 08:37 | 显示全部楼层
(setq pj (rtos (getdist "\n偏移距离") 2 0))
 楼主| 发表于 2016-10-28 17:02 | 显示全部楼层
Andyhon 发表于 2016-10-28 08:37
(setq pj (rtos (getdist "\n偏移距离") 2 0))

谢谢老大,真神奇(rtos 2 0)是什么原理呀?

如果想让整数在小数点一位数,如5.332,整数到5.30,怎么改啊?
发表于 2016-10-28 18:27 | 显示全部楼层
通用法是乘10...再除10...
发表于 2019-5-16 23:12 | 显示全部楼层
这代码有点意思!!
发表于 2019-5-17 18:53 | 显示全部楼层
皇上快溜 发表于 2016-10-28 17:02
谢谢老大,真神奇(rtos 2 0)是什么原理呀?

如果想让整数在小数点一位数,如5.332,整数到5.30,怎么 ...


(setq pj (rtos (getdist "\n偏移距离") 2 1))
发表于 2019-5-18 09:05 | 显示全部楼层
四舍五入到 5 是否这样
(setq pj (rtos (getdist "\n偏移距离") 2 5))
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 18:10 , Processed in 1.258992 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表