弹窗面板的文字如何放大？

lee50310

aws 发表于 2023-1-2 13:20
哇，厉害，有更详细的教程吗

這是程式 ( tt.lisp + 幻燈片x7)
程式執行指令:tt

若存放路徑位置與此設定不同 需修改程式中此行
(setq path d:\\temp_chs\\sld\\")

請參考看看 !
幻燈片是我匆促製作 所以 大小位置不是很正 事後在程式中有做調整
你可自行繪製重新製作
cad製作幻燈片指令:mslide  

depgfdepgf

大佬，如何实现点击幻灯片进入调用命令，如点左箭头调用TT1命令，点右箭头调用TT2命令，希望解答下，谢谢

lee50310

depgfdepgf 发表于 2023-1-2 18:03
大佬，如何实现点击幻灯片进入调用命令，如点左箭头调用TT1命令，点右箭头调用TT2命令，希望解答下，谢谢{: ...

範例:2  < 點選 幻燈片 畫不同顏色的圓 >

2. 
   
3. ;;-------------------------------------------------------------------
   
4. ;;展示幻燈片於影像框上
   
5. (defun show_sld(key sld x y)
   
6. (setq xa(dimx_tile key))
   
7. (setq ya(dimy_tile key))
   
8. (start_image key)
   
9. (fill_image x y xa ya -2)
   
10. (slide_image x y xa ya sld)
    
11. (end_image)
    
12. )
    
13. ;;-------------------------------------------------------------------
    
14. (defun c:tt2(/ Dcl_File file str)
    
15.   (setq path "E:\\temp_chs\\sld\")
    
16.   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
    
17.   (setq file (open Dcl_File "w"))
    
18.   (foreach str '(
    
19.                   "dq:dialog{"
    
20.                   " label="物體對齊";"
    
21.                   " :row{"
    
22.                   "  :image_button{key="豎直";color=-2;width=16;height=8;allow_accept=true;}"
    
23.                   "  :image_button{key="上";color=-2;width=16;height=8;allow_accept=true;}"
    
24.                   "  :image_button{key="水平";color=-2;width=16;height=8;allow_accept=true;}"
    
25.                   " }"
    
26.                   " :row{"
    
27.                   "  :image_button{key="左";color=-2;width=16;height=8;allow_accept=true;}"
    
28.                   "  :image_button{key="下";color=-2;width=16;height=8;allow_accept=true;}"
    
29.                   "  :image_button{key="右";color=-2;width=16;height=8;allow_accept=true;}"
    
30.                   " }"
    
31.                   "  :image_button{key="雙向居中";color=-2;width=50;height=8;is_cancel=true;allow_accept=true;}"
    
32.                   "}"
    
33.                 )
    
34.     (write-line str file)
    
35.   )
    
36.   (close file)
    
37. (not (setq file (close file)))
    
38.             (< 0 (setq dch (load_dialog Dcl_File)))
    
39.             (new_dialog "dq" dch)
    
40.       
    
41.       (show_sld "豎直" (strcat path "II.sld") -10 -24)
    
42.       (show_sld "上" (strcat path "up.sld" ) -3 -16)
    
43.       (show_sld "水平" (strcat path "I2.sld") 0 -16)
    
44.       (show_sld "左" (strcat path "L.sld" ) 0 -10)
    
45.       (show_sld "下" (strcat path "D.sld") 0 -10)
    
46.       (show_sld "右" (strcat path "R.sld") 0 -10)
    
47.       (show_sld "雙向居中" (strcat path "TT.sld") 0 -5)      
    
48.   
    
49.       (action_tile "豎直" "(alert \" 按了:【豎直】\")(done_dialog 1)")
    
50.       (action_tile "上" "(alert \" 按了:【上】\")(done_dialog 2)")
    
51.       (action_tile "水平" "(alert \" 按了:【水平】\")(done_dialog 3)")
    
52.       (action_tile "左" "(alert \" 按了:【左】\")(done_dialog 4)")
    
53.       (action_tile "下" "(alert \" 按了:【下】\")(done_dialog 5)")
    
54.       (action_tile "右" "(alert \" 按了:【右】\")(done_dialog 6)")
    
55.       
    
56.       (setq dd(start_dialog))      
    
57.       (cond
    
58.            ((= dd 0)(alert " 按了:【雙向居中】")(draw 50 1)) ;畫紅色圓 半徑50
    
59.            ((= dd 1) (draw 50 2)) ;;畫黃色圓 半徑50
    
60.            ((= dd 2) (draw 50 3))
    
61.            ((= dd 3) (draw 50 4))         
    
62.            ((= dd 4) (draw 50 5))
    
63.            ((= dd 5) (draw 50 6))  
    
64.            ((= dd 6) (draw 50 7)) ;;畫白色圓 半徑50        
    
65.       )  
    
66. )
    
67. ;;-------------------------------------------------------------------
    
68. (defun draw( r1 col)
    
69. (setq p1(getpoint "\n輸入插入點"))
    
70. (ah:Circle p1 r1 col)
    
71. )
    
72. ;;--------------------------------------------------------------------
    
73. ;;創建圓
    
74. (defun ah:Circle (cen rad col)
    
75. (entmakex (list (cons 0 "CIRCLE")
    
76.                  (cons 10 cen)
    
77.                  (cons 40 rad)
    
78.                  (cons 62 col)))
    
79. )
    
80. ;;-------------------------------------------------------------------

<br /> ;;-------------------------------------------------------------------<br /> ;;展示幻燈片於影像框上<br /> (defun show_sld(key sld x y)<br /> (setq xa(dimx_tile key))<br /> (setq ya(dimy_tile key))<br /> (start_image key)<br /> (fill_image x y xa ya -2)<br /> (slide_image x y xa ya sld)<br /> (end_image)<br /> )<br /> ;;-------------------------------------------------------------------<br /> (defun c:tt2(/ Dcl_File file str)<br />   (setq path "E:\\temp_chs\\sld\")<br />   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))<br />   (setq file (open Dcl_File "w"))<br />   (foreach str '(<br />                   "dq:dialog{"<br />                   " label="物體對齊";"<br />                   " :row{"<br />                   "  :image_button{key="豎直";color=-2;width=16;height=8;allow_accept=true;}"<br />                   "  :image_button{key="上";color=-2;width=16;height=8;allow_accept=true;}"<br />                   "  :image_button{key="水平";color=-2;width=16;height=8;allow_accept=true;}"<br />                   " }"<br />                   " :row{"<br />                   "  :image_button{key="左";color=-2;width=16;height=8;allow_accept=true;}"<br />                   "  :image_button{key="下";color=-2;width=16;height=8;allow_accept=true;}"<br />                   "  :image_button{key="右";color=-2;width=16;height=8;allow_accept=true;}"<br />                   " }"<br />                   "  :image_button{key="雙向居中";color=-2;width=50;height=8;is_cancel=true;allow_accept=true;}"<br />                   "}"<br />                 )<br />     (write-line str file)<br />   )<br />   (close file)<br /> (not (setq file (close file)))<br />             (< 0 (setq dch (load_dialog Dcl_File)))<br />             (new_dialog "dq" dch)<br />       <br />       (show_sld "豎直" (strcat path "II.sld") -10 -24)<br />       (show_sld "上" (strcat path "up.sld" ) -3 -16)<br />       (show_sld "水平" (strcat path "I2.sld") 0 -16)<br />       (show_sld "左" (strcat path "L.sld" ) 0 -10)<br />       (show_sld "下" (strcat path "D.sld") 0 -10)<br />       (show_sld "右" (strcat path "R.sld") 0 -10)<br />       (show_sld "雙向居中" (strcat path "TT.sld") 0 -5)      <br />   <br />       (action_tile "豎直" "(alert \" 按了:【豎直】\")(done_dialog 1)")<br />       (action_tile "上" "(alert \" 按了:【上】\")(done_dialog 2)")<br />       (action_tile "水平" "(alert \" 按了:【水平】\")(done_dialog 3)")<br />       (action_tile "左" "(alert \" 按了:【左】\")(done_dialog 4)")<br />       (action_tile "下" "(alert \" 按了:【下】\")(done_dialog 5)")<br />       (action_tile "右" "(alert \" 按了:【右】\")(done_dialog 6)")<br />       <br />       (setq dd(start_dialog))      <br />       (cond <br />            ((= dd 0)(alert " 按了:【雙向居中】")(draw 50 1)) ;畫紅色圓 半徑50 <br />            ((= dd 1) (draw 50 2)) ;;畫黃色圓 半徑50 <br />            ((= dd 2) (draw 50 3))<br />            ((= dd 3) (draw 50 4))         <br />            ((= dd 4) (draw 50 5))<br />            ((= dd 5) (draw 50 6))  <br />            ((= dd 6) (draw 50 7)) ;;畫白色圓 半徑50        <br />       )  <br /> )<br /> ;;-------------------------------------------------------------------<br /> (defun draw( r1 col)<br /> (setq p1(getpoint "\n輸入插入點"))<br /> (ah:Circle p1 r1 col)<br /> )<br /> ;;--------------------------------------------------------------------<br /> ;;創建圓<br /> (defun ah:Circle (cen rad col)<br /> (entmakex (list (cons 0 "CIRCLE")<br />                  (cons 10 cen)<br />                  (cons 40 rad)<br />                  (cons 62 col)))<br /> )<br /> ;;-------------------------------------------------------------------

cghdy

lee50310  2023-1-2 15:28
@ ( tt.lisp + x7)
:tt

小哥6，票投对了