yanshengjiang 发表于 2025-9-5 17:40
这程序 真的有用吗
可以打出来让小孩背元素周期表
对程序作了一些修改，并增加了繁体版，2010版CAD也可运行。
绘制完元素周期表，背景色成白色了
关于绘制元素周期表程序的几点说明：
1． 为了视觉效果的需要，运行时程序将背景自动变为白色。若要改变背景可运行程序中自带的命令：wtob(白变黑)、 btow(黑变白)。
2． 程序自动将字体变为华文宋体，104~118号元素符号的文字由于不能打印，所以按宋体进行图案填充。这样便可打印成纸质成品了，也可打印成pdf格式的文件。
3． 元素的密度数据来自于网络，若有错误网友可在CAD图中自行修改。
4． 尽管进行了多次校核，但错误可能还是存在，网友若发现请及时指出。
5． 命令名为yszqb，简体、繁体版都一样。
命令: YSZQB
表的起点：; 错误: AutoCAD 变量设置被拒绝: "HPCOLOR" "RGB:158,215,246"
命令: yszqb 表的起点：未知命令“YSZQBFONT”。按 F1 查看帮助。
未知命令“TTF”。按 F1 查看帮助。
0
*取消*
1
*取消*
0
*取消*
未知命令“N”。按 F1 查看帮助。
未知命令“N”。按 F1 查看帮助。
TEXTSTYLE 无法设置为该值。
; 错误: 函数已取消
season_88 发表于 2025-10-8 00:38
命令: yszqb 表的起点：未知命令“YSZQBFONT”。按 F1 查看帮助。
未知命令“TTF”。按 F1 查看帮助。
0
...
试用一下这个升级版。加载后运行yszqb
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 无法设置为该值。
; 错误: 函数已取消
*无效*
ocoipw 发表于 2025-10-8 00:48
试用一下这个升级版。加载后运行yszqb
输入命令后弹出文字样式
season_88 发表于 2025-10-8 00:59
输入命令后弹出文字样式
你的CAD版本是否太低了，我的程序在CAD2010以上版本都可正常运行