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

hao3ren

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

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

ocoipw

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

bg3xs

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

ocoipw

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

baitang36

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

season_88

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

ocoipw

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

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

season_88

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

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

输入命令后弹出文字样式

ocoipw

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

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