绘制三维螺栓螺母及垫圈的程序
几年前编写的三维螺栓螺母及垫圈的程序。本程序可根据紧固段长度自选择螺栓的公称长度。网友们不试试。(defun togbg(/ prefdisplay);;切换背景色
(vl-load-com)
(setq prefdisplay (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq color (vlax-variant-value (vlax-variant-change-type (vla-get-graphicswinmodelbackgrndcolor prefdisplay) vlax-vblong)))
(vla-put-graphicswinmodelbackgrndcolor prefdisplay (vlax-make-variant (if (= color 0) 16777215 0) vlax-vblong));16777215
(princ)
)
(defun xgbj();;将画图时的颜色改成与背景一致，达到隐藏的目的.
(if (= kuaibs "1")
(progn
(command "VSCURRENT" 2);;将视觉样式设置成二维线框模式，以提高绘图速度.
(setq prefdisplay (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq color (vlax-variant-value (vlax-variant-change-type (vla-get-graphicswinmodelbackgrndcolor prefdisplay)vlax-vblong)));;取屏幕背景色
(if (= color 0)
(setvar "cecolor" "0,0,0")
(setvar "cecolor" "255,255,255")
);;end if
);;end progn
(progn
(command "VSCURRENT" 2);;将视觉样式设置成二维线框模式，以提高绘图速度.
(setvar "cecolor" "254")
);;end progn
);;end if
)
建议这个增加保存原来的屏幕底色设置→程序执行完毕→回归原来的屏幕底色！ 2369198685 发表于 2025-2-27 10:15
ACAD2025运行不了
命令:LUOSHUAN
Ls_suju_data.txt文件不存在00.螺栓组合形式=1
01.螺栓直径=M1.6
02.螺栓直径位号=0.000
03.螺栓比重=7.85
04.螺栓比重位号=3.000
05.螺栓材质=Q235
06.螺栓材质位号=0
07.螺栓价格=9
08.螺栓生产厂家=上海翔盛紧固件限公司
09.螺栓块标识=1
10.螺栓重量标识=1
; 错误: 参数类型错误: streamp nil
对不起各位，由于我的失误导致程序不能运行。请下载3WCAD.rar这个文件，将其保存到C盘。解压后会在C盘上建立如图所示的目录结构。再加载c:\3wcad\main program\目录中的相应程序。并运行相应命令。 国标三维螺栓实例
谢谢楼主的分享！
下载来学习 程序不错，但运行不了
版主好！我的CAD2018和中望建筑2023运行“LUOSHUAN”提示“Ls_suju_data.txt文件不存在
Error: undefined function - nil”，辛苦再补充上传？ ocoipw 发表于 2025-2-27 01:31
国标三维螺栓实例
ACAD2025运行不了 無法使用，坑了我2個幣
页:
[1]
2