给CAD增加一条绘制元素周期表的命令

hao3ren · 发表于 2025-9-5 18:38:09

yanshengjiang 发表于 2025-9-5 17:40
这程序真的有用吗

可以打出来让小孩背元素周期表

ocoipw · 发表于 2025-9-6 21:42:01

对程序作了一些修改，并增加了繁体版，2010版CAD也可运行。

bg3xs · 发表于 2025-9-7 08:37:25

绘制完元素周期表，背景色成白色了

ocoipw · 发表于 2025-9-7 12:20:39

关于绘制元素周期表程序的几点说明：
1．为了视觉效果的需要，运行时程序将背景自动变为白色。若要改变背景可运行程序中自带的命令：wtob(白变黑)、 btow(黑变白)。
2．程序自动将字体变为华文宋体，104~118号元素符号的文字由于不能打印，所以按宋体进行图案填充。这样便可打印成纸质成品了，也可打印成pdf格式的文件。
3．元素的密度数据来自于网络，若有错误网友可在CAD图中自行修改。
4．尽管进行了多次校核，但错误可能还是存在，网友若发现请及时指出。
5．命令名为yszqb，简体、繁体版都一样。

baitang36 · 发表于 2025-9-8 16:14:34

命令: YSZQB
表的起点：; 错误: AutoCAD 变量设置被拒绝: "HPCOLOR" "RGB:158,215,246"

season_88 · 发表于 2025-10-8 00:38:03

命令: yszqb 表的起点：未知命令“YSZQBFONT”。按 F1 查看帮助。
未知命令“TTF”。按 F1 查看帮助。
0
*取消*
1
*取消*
0
*取消*
未知命令“N”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
TEXTSTYLE 无法设置为该值。
; 错误: 函数已取消

ocoipw · 发表于 2025-10-8 00:48:51

season_88 发表于 2025-10-8 00:38
命令: yszqb 表的起点：未知命令“YSZQBFONT”。按 F1 查看帮助。
未知命令“TTF”。按 F1 查看帮助。
0
...

试用一下这个升级版。加载后运行yszqb

season_88 · 发表于 2025-10-8 00:58:04

ocoipw 发表于 2025-10-8 00:48
试用一下这个升级版。加载后运行yszqb

命令: (LOAD "C:/Users/Administrator/Desktop/yszqb.VLX") nil
命令: yszqb 表的起点：未知命令“YSZQBYINGBIAO”。按 F1 查看帮助。
未知命令“TTF”。按 F1 查看帮助。
0
*取消*
1
*取消*
0
*取消*
未知命令“N”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
TEXTSTYLE 无法设置为该值。
; 错误: 函数已取消
*无效*

season_88 · 发表于 2025-10-8 00:59:07

ocoipw 发表于 2025-10-8 00:48
试用一下这个升级版。加载后运行yszqb

输入命令后弹出文字样式

ocoipw · 发表于 2025-10-9 00:05:14

season_88 发表于 2025-10-8 00:59
输入命令后弹出文字样式

你的CAD版本是否太低了，我的程序在CAD2010以上版本都可正常运行

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

[资源下载] 给CAD增加一条绘制元素周期表的命令

本帖子中包含更多资源

本帖子中包含更多资源