设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 将十进制数 转换为二进制数
返回列表 发新帖
查看: 1291|回复: 14

[每日一码] 将十进制数 转换为二进制数

[复制链接]
/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2016-12-22 11:37:06 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

× 
;;将十进制数 9 转换为 4 个字符的二进制数 (1001) 
(defun c:Dec2Bin (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'Dec2Bin 9 4)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2016-12-22 11:39:08 | 显示全部楼层
黄总，能做个转换任意进制的不？

点评

/db_自贡黄明儒_
没有这个能力呀  发表于 2016-12-22 11:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2016-12-22 11:44:21 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
;;进位
(defun c:RoundUp (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'RoundUp 8.312 2)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2016-12-22 11:53:12 | 显示全部楼层
本帖最后由 /db_自贡黄明儒_ 于 2016-12-22 11:55 编辑

格式化字串,不足前面补0
Newer的数字文字字首补位插件差不多，可能更强大 
(defun c:Text1 (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'Text 123 "0000")
)


;;===>"正"
(defun c:Text1 (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'Text 123 "正;负;零")
)

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2016-12-22 12:02:33 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  1. ;;偶数===>124.0
  2. (defun c:Even (/ WorksheetFunction)
  3.   (setq *excel* (vlax-get-or-create-object "excel.application"))  
  4.   (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  5.   (vlax-invoke WorksheetFunction 'Even 123)
  6. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2016-12-22 12:22:12 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2016-12-22 11:53

WIN10 64位 EXCEL2016下，运行错误

运行了好长时间后，报错

命令: text1

错误: 参数类型错误: VLA-OBJECT nil

点评

/db_自贡黄明儒_
看来还是老的东西成熟，不能太潮流。  发表于 2016-12-22 12:30
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2016-12-22 12:31:58 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
;;阶乘===>24.0
(defun c:Fact (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'Fact 4)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2016-12-22 12:36:32 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2016-12-22 12:31

要找到在高版本EXCEL，WIN下的解决办法啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2016-12-22 12:41:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
  1. ;;平均值===>5.0
  2. (defun c:Average (/ WorksheetFunction)
  3.   (setq *excel* (vlax-get-or-create-object "excel.application"))  
  4.   (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  5.   (vlax-invoke WorksheetFunction 'Average 4 6)
  6. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2016-12-22 12:58:37 | 显示全部楼层 
;;CONVERT1(1.0, "lbm", "kg") 将 1 磅转换为千克 (0.453592) 
(defun c:CONVERT1 (/ WorksheetFunction)
  (setq *excel* (vlax-get-or-create-object "excel.application"))  
  (setq WorksheetFunction (vlax-get *excel* 'WorksheetFunction))  
  (vlax-invoke WorksheetFunction 'CONVERT 1.0  "lbm"  "kg")
)

语法
CONVERT(number, from_unit, to_unit)CONVERT 函数语法具有下列参数 （参数:为操作、事件、方法、属性、函数或过程提供信息的值。）：

Number    必需。以 from_units 为单位的需要进行转换的数值。
From_unit    必需。数值 number 的单位。
To_unit    必需。结果的单位。函数 CONVERT 接受下面的文本值（引号中）作为 from_unit 和 to_unit。
重量和质量 From_unit 或 to_unit
克 "g"
斯勒格 "sg"
磅（常衡制） "lbm"
U（原子质量单位） "u"
盎司（常衡制） "ozm"

距离 From_unit 或 to_unit
米 "m"
法定英里 "mi"
海里 "Nmi"
英寸 "in"
英尺 "ft"
码 "yd"
埃 "ang"
宏 "pica"

时间 From_unit 或 to_unit
年 "yr"
日 "day"
小时 "hr"
分钟 "mn"
秒 "sec"

压强 From_unit 或 to_unit
帕斯卡 "Pa"（或 "p"）
大气压 "atm"（或 "at"）
毫米汞柱 "mmHg"

力 From_unit 或 to_unit
牛顿 "N"
达因 "dyn"（或 "dy"）
磅力 "lbf"

能量 From_unit 或 to_unit
焦耳 "J"
尔格 "e"
热力学卡 "c"
IT 卡 "cal"
电子伏 "eV"（或 "ev"）
马力-小时 "HPh"（或 "hh"）
瓦特-小时 "Wh"（或 "wh"）
英尺磅 "flb"
BTU "BTU"（或 "btu"）

乘幂 From_unit 或 to_unit
马力 "HP"（或 "h"）
瓦特 "W"（或 "w"）

磁 From_unit 或 to_unit
特斯拉 "T"
高斯 "ga"

温度 From_unit 或 to_unit
摄氏度 "C"（或 "cel"）
华氏度 "F"（或 "fah"）
开氏温标 "K"（或 "kel"）

液体度量 From_unit 或 to_unit
茶匙 "tsp"
汤匙 "tbs"
液量盎司 "oz"
杯 "cup"
U.S. 品脱 "pt"（或 "us_pt"）
U.K. 品脱 "uk_pt"
夸脱 "qt"
加仑 "gal"
升 "l"（或 "lt"）

下列缩写的单位前缀可以加在任何的公制单位 from_unit 或 to_unit 之前。

前缀 乘子 缩写
exa 1E+18 "E"
peta 1E+15 "P"
tera 1E+12 "T"
giga 1E+09 "G"
mega 1E+06 "M"
kilo 1E+03 "k"
hecto 1E+02 "h"
dekao 1E+01 "e"
deci 1E-01 "d"
centi 1E-02 "c"
milli 1E-03 "m"
micro 1E-06 "u"
nano 1E-09 "n"
pico 1E-12 "p"
femto 1E-15 "f"
atto 1E-18 "a"

说明
如果输入数据的拼写有误，函数 CONVERT 返回错误值 #VALUE!。
如果单位不存在，函数 CONVERT 返回错误值 #N/A。
如果单位不支持缩写的单位前缀，函数 CONVERT 返回错误值 #N/A。
如果单位在不同的组中，函数 CONVERT 返回错误值 #N/A。
单位名称和前缀要区分大小写。
公式 说明（结果）
=CONVERT(1.0, "lbm", "kg") 将 1 磅转换为千克 (0.453592)
=CONVERT(68, "F", "C") 将 68 华氏度转换为摄氏度 (20)
=CONVERT(2.5, "ft", "sec") 由于数据类型不同，因此返回错误值 (#N/A)
=CONVERT(CONVERT(100,"ft","m"),"ft","m") 将 100 平方英尺转换为平方米 (9.290304)。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ll_j

已领礼包: 6530个

财富等级: 富甲天下
发表于 2016-12-22 14:51:08 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lisphk 发表于 2016-12-22 11:39

http://bbs.xdcad.net/thread-468989-1-1.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2016-12-22 15:42:33 | 显示全部楼层
ll_j 发表于 2016-12-22 14:51

谢谢长老。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zrg1

已领礼包: 2个

财富等级: 恭喜发财
发表于 2020-7-17 08:52:15 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
不错，学习学习！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-26 19:10 , Processed in 0.268420 second(s), 54 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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