ZXD111 发表于 2023-10-25 16:07:53

dcl对话框

本帖最后由 ZXD111 于 2023-11-12 16:08 编辑

非常感谢明经朋友的解答！！！

飞雪神光 发表于 2023-10-25 23:17:43

ZXD111 发表于 2023-10-25 21:05
麻烦您看一下

替换此函数 就可以 只加了一句显示幻灯片
;;;***select shaft shaft_type be used "shaft"
        ;;;选择轴段结构函数
        (defun shaft_stype ()
                (if (not (new_dialog "stype" dia))
                        (exit)
                )
                (shaft_vslide "sh1" "D:\\ZHOU\\S1.SLD" 0)
                (shaft_vslide "sh2" "D:\\ZHOU\\S2.SLD" 0)
                (shaft_vslide "sh3" "D:\\ZHOU\\S3.SLD" 0)
                (shaft_vslide "sh4" "D:\\ZHOU\\S4.SLD" 0)
                (shaft_vslide "sh5" "D:\\ZHOU\\S5.SLD" 0)
                (shaft_vslide "sh6" "D:\\ZHOU\\S6.SLD" 0)
                (shaft_vslide "sh7" "D:\\ZHOU\\S7.SLD" 0)
                (shaft_vslide "sh8" "D:\\ZHOU\\S8.SLD" 0)
                (shaft_vslide "sh9" "D:\\ZHOU\\S40.SLD" 0)
                (action_tile "sh1" "(setq shaft_type 1)")
                (action_tile "sh2" "(setq shaft_type 2)")
                (action_tile "sh3" "(setq shaft_type 3)")
                (action_tile "sh4" "(setq shaft_type 4)")
                (action_tile "sh5" "(setq shaft_type 5)")
                (action_tile "sh6" "(setq shaft_type 6)")
                (action_tile "sh7" "(setq shaft_type 7)")
                (action_tile "sh8" "(setq shaft_type 8)")
                (action_tile "sh9" "(s_gear) (setq shaft_type 40)")
                (action_tile "fan" "(done_dialog 7)")
                (action_tile "help" "(do_help)")
                (action_tile "accept" "(done_dialog 0)")
                (setq what1 (start_dialog))
                (if (= what1 7)
                        (sfanye)
                )
                (type_act)
                (if (or (= shaft_type 40) (= shaft_type 45) (= shaft_type 46))
                        (progn
                                (set_tile "shaft_D1" (rtos d1 2 1))
                                (set_tile "chamfer_B" (rtos b 2 1))
                                (setq d0 (* sca d0)
                                        d1 (* sca d1)
                                        b (* sca b)
                                )
                        )
                        (progn
                                (shaft_vslide "shaft_image" (strcat "D:\\ZHOU\\S" (itoa shaft_type) ".SLD") 0)
                        )
                )
        )
       

飞雪神光 发表于 2023-10-26 11:16:51

ZXD111 发表于 2023-10-26 10:27
你好，还有一个问题，上面那个程序就是我每次画完一个轴段都会有一个“是否进入中断循环”。这是咋回事， ...

VER是系统函数 不可赋值

飞雪神光 发表于 2023-10-26 16:22:53

ZXD111 发表于 2023-10-26 15:56
这个如果不取消，点个“是”CAD直接卡死了

当然是改自变量啊系统函数不能当做自定义变量 会导致CAD不稳定

ZXD111 发表于 2023-10-25 16:09:40

已经验证，对话框程序没啥问题，总共感觉这段程序有问题

飞雪神光 发表于 2023-10-25 17:54:07

想解决问题请把测试的代码发全 这样一段代码没人能精确的猜到问题

xj6019 发表于 2023-10-25 19:06:34

黄色背景看着好难受

masterlong 发表于 2023-10-25 20:36:59

请在标题中简要描述出你的问题

ZXD111 发表于 2023-10-25 21:03:57

本帖最后由 ZXD111 于 2023-11-12 16:07 编辑

非常感谢明经朋友的解答！！！

ZXD111 发表于 2023-10-25 21:05:12

飞雪神光 发表于 2023-10-25 17:54
想解决问题请把测试的代码发全 这样一段代码没人能精确的猜到问题

麻烦您看一下

ZXD111 发表于 2023-10-26 09:20:28

飞雪神光 发表于 2023-10-25 23:17
替换此函数 就可以 只加了一句显示幻灯片

可以，终于解决了，感谢大佬

ZXD111 发表于 2023-10-26 10:27:06

本帖最后由 ZXD111 于 2023-11-12 16:06 编辑

1
页: [1] 2
查看完整版本: dcl对话框