绘制三维螺栓螺母及垫圈的程序

ocoipw

几年前编写的三维螺栓螺母及垫圈的程序。本程序可根据紧固段长度自选择螺栓的公称长度。网友们不试试。

寒潮大冬瓜

(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

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

ocoipw

对不起各位，由于我的失误导致程序不能运行。请下载3WCAD.rar这个文件，将其保存到C盘。解压后会在C盘上建立如图所示的目录结构。再加载c:\3wcad\main program\目录中的相应程序。并运行相应命令。

ocoipw

国标三维螺栓实例

p-3-ianlcc

谢谢楼主的分享！
下载来学习

技术工作室

程序不错，但运行不了

寒潮大冬瓜

版主好！我的CAD2018和中望建筑2023运行“LUOSHUAN”提示“Ls_suju_data.txt文件不存在
Error: undefined function - nil”，辛苦再补充上传？

2369198685

ocoipw 发表于 2025-2-27 01:31
国标三维螺栓实例

ACAD2025运行不了

675513233

無法使用，坑了我2個幣