[编程申请]：0省1入，选中数字，若小数点后为0，则舍去小数点及小数点后的数

lengliqun · 发表于 2005-9-7 19:09:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

0省1入，选中数字，若小数点后为0，则舍去小数点及小数点后的数，如5.0变成5，7.0变成7（不保留小数）；若小数点后数为非0，则向个位进1，如1.1变成2，3.3变成4，6.7变成7，（不保留小数）余类推。(CAD2002用)

xyp1964 · 发表于 2005-9-7 21:06:07

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
(defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "TEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq tx (dxf 1 (entget s1)))
(if (distof tx)
(progn
(setq n0 (atof tx)
n1 (fix n0)
)
(if (and (< n1 n0) (> (* 10 (- n0 n1)) 1))
(setq txt1 (rtos (+ n1 1) 2 0))
(setq txt1 (rtos n1 2 0))
)
)
)
(sub_upd s1 1 txt1)
)
(CMDLA1)
)[/FONT]

[FONT=courier new](load "xyp_lib") 
 ;|加载通用函数(可在签名栏直接下载) 
如果已经下载xyp_lib并放到搜索路径下可以不再下载! 
利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 
1.在acad.lsp中增加(load"xyp_lib") 
2.在每个程序内增加(load"xyp_lib") 
3.在command下，输入(load"xyp_lib") 
4.在菜单.mnl中增加(load"xyp_lib") 
5.将xyp_lib.vlx文件直接拽到cad屏幕 
[COLOR=red] ★通用函数下载地址：[/COLOR] 
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] 
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|; 
 
(defun c:test () 
  (CMDLA0) 
  (setq        ss (ssget '((0 . "TEXT"))) 
        i  -1 
  ) 
  (while (setq s1 (ssname ss (setq i (1+ i)))) 
    (setq tx (dxf 1 (entget s1))) 
    (if        (distof tx) 
      (progn 
        (setq n0 (atof tx) 
              n1 (fix n0) 
        ) 
        (if (and (< n1 n0) (> (* 10 (- n0 n1)) 1)) 
          (setq txt1 (rtos (+ n1 1) 2 0)) 
          (setq txt1 (rtos n1 2 0)) 
        ) 
      ) 
    ) 
    (sub_upd s1 1 txt1) 
  ) 
  (CMDLA1) 
)[/FONT]

青马 · 发表于 2005-9-8 00:46:59

把要求结果的数(+ 1)后取整(fix),再用这个数和原来的数相减(- a b ),
如果是0,返回b,如果是非(zero),返回a

xyp1964 · 发表于 2005-9-8 07:59:05

最初由青马发布
[B]把要求结果的数(+ 1)后取整(fix),再用这个数和原来的数相减(- a b ),
如果是0,返回b,如果是非(zero),返回a [/B]

有问题：
[php](defun c:test ()
  (setq b 8.01)
  (setq a (fix (1+ 8.01)))
  (if (= (- a b) 0)
b
a
  )
)[/php]
结果为9，按要求应为8。

青马 · 发表于 2005-9-8 09:00:53

那就先执行一次精度的那个函数，把数控制在小数点后一位

lengliqun · 发表于 2005-9-8 12:10:52

谢谢大侠们，2楼程序完全达到要求了，谢谢。

zxq0220 · 发表于 2005-9-8 23:37:37

(FIX (+ X 0.9))

思路不错[/COLOR] by xyp1964

xyp1964 · 发表于 2005-9-9 00:07:37

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
(defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "TEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq tx (dxf 1 (entget s1))
tx (FIX (+ (atof tx) 0.9))
tx (rtos tx 2 0)
)
(sub_upd s1 1 tx)
)
(CMDLA1)
)[/FONT]

账号		自动登录	找回密码
密码			立即注册

[编程申请]：0省1入，选中数字，若小数点后为0，则舍去小数点及小数点后的数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块