ocoipw 发表于 2025-9-4 20:08:02

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



加载后直接运行:yszqb

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

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

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

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

ynhh 发表于 2025-9-4 22:35:40

试试玩玩
不正常啊
命令: (LOAD "C:/Users/Admin/Downloads/元素周期表_最终版.fas") TIMER_JS
命令: yszqb 表的起点：; 错误: AutoCAD 变量设置被拒绝: "HPCOLOR" "RGB:158,215,246"

zxh92 发表于 2025-9-4 22:25:33

o function definition: CHUSHIHUA

xiao1984 发表于 2025-9-5 09:55:07

补齐缺少的函数，现在可以正常执行了。

ocoipw 发表于 2025-9-5 12:24:14

"HPCOLOR"这个系统变量估计要高版CAD才有。我是在CAD2019上开发的。@xiao1984你真是高手。

zxh92 发表于 2025-9-5 13:21:47

大佬，哪些字是填充，坐标你是怎么得到呀，是提取的还是自己试出来的呀

xiao1984 发表于 2025-9-5 14:08:15

ocoipw 发表于 2025-9-5 12:24
"HPCOLOR"这个系统变量估计要高版CAD才有。我是在CAD2019上开发的。@xiao1984你真是高手。

写了个空的跳转函数，什么也不执行。

brucecad 发表于 2025-9-5 14:27:56

顯示亂碼

能否修改
繁體也能用
感恩

sandyvs 发表于 2025-9-5 16:39:57

ocoipw 发表于 2025-9-5 12:24
"HPCOLOR"这个系统变量估计要高版CAD才有。我是在CAD2019上开发的。@xiao1984你真是高手。

2010没有，2012有

yanshengjiang 发表于 2025-9-5 17:40:14

brucecad 发表于 2025-9-5 14:27
顯示亂碼

能否修改


这程序 真的有用吗
页: [1] 2 3
查看完整版本: 给CAD增加一条绘制元素周期表的命令