dcl对话框

ZXD111

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

飞雪神光

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

替换此函数 就可以 只加了一句显示幻灯片

1. ;;;***select shaft shaft_type be used "shaft"
   
2.         ;;;选择轴段结构函数
   
3.         (defun shaft_stype ()
   
4.                 (if (not (new_dialog "stype" dia))
   
5.                         (exit)
   
6.                 )
   
7.                 (shaft_vslide "sh1" "D:\\ZHOU\\S1.SLD" 0)
   
8.                 (shaft_vslide "sh2" "D:\\ZHOU\\S2.SLD" 0)
   
9.                 (shaft_vslide "sh3" "D:\\ZHOU\\S3.SLD" 0)
   
10.                 (shaft_vslide "sh4" "D:\\ZHOU\\S4.SLD" 0)
    
11.                 (shaft_vslide "sh5" "D:\\ZHOU\\S5.SLD" 0)
    
12.                 (shaft_vslide "sh6" "D:\\ZHOU\\S6.SLD" 0)
    
13.                 (shaft_vslide "sh7" "D:\\ZHOU\\S7.SLD" 0)
    
14.                 (shaft_vslide "sh8" "D:\\ZHOU\\S8.SLD" 0)
    
15.                 (shaft_vslide "sh9" "D:\\ZHOU\\S40.SLD" 0)
    
16.                 (action_tile "sh1" "(setq shaft_type 1)")
    
17.                 (action_tile "sh2" "(setq shaft_type 2)")
    
18.                 (action_tile "sh3" "(setq shaft_type 3)")
    
19.                 (action_tile "sh4" "(setq shaft_type 4)")
    
20.                 (action_tile "sh5" "(setq shaft_type 5)")
    
21.                 (action_tile "sh6" "(setq shaft_type 6)")
    
22.                 (action_tile "sh7" "(setq shaft_type 7)")
    
23.                 (action_tile "sh8" "(setq shaft_type 8)")
    
24.                 (action_tile "sh9" "(s_gear) (setq shaft_type 40)")
    
25.                 (action_tile "fan" "(done_dialog 7)")
    
26.                 (action_tile "help" "(do_help)")
    
27.                 (action_tile "accept" "(done_dialog 0)")
    
28.                 (setq what1 (start_dialog))
    
29.                 (if (= what1 7)
    
30.                         (sfanye)
    
31.                 )
    
32.                 (type_act)
    
33.                 (if (or (= shaft_type 40) (= shaft_type 45) (= shaft_type 46))
    
34.                         (progn
    
35.                                 (set_tile "shaft_D1" (rtos d1 2 1))
    
36.                                 (set_tile "chamfer_B" (rtos b 2 1))
    
37.                                 (setq d0 (* sca d0)
    
38.                                         d1 (* sca d1)
    
39.                                         b (* sca b)
    
40.                                 )
    
41.                         )
    
42.                         (progn
    
43.                                 (shaft_vslide "shaft_image" (strcat "D:\\ZHOU\\S" (itoa shaft_type) ".SLD") 0)
    
44.                         )
    
45.                 )
    
46.         )
    
47.        

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

飞雪神光

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

VER是系统函数 不可赋值

飞雪神光

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

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

ZXD111

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

飞雪神光

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

xj6019

黄色背景看着好难受

masterlong

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

ZXD111

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

ZXD111

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

麻烦您看一下

ZXD111

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

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

ZXD111

1