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

aws

• (defun chuangkou(/ Dcl_File file str)
•   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
•   (setq file (open Dcl_File "w"))
•   (foreach str '(
•                   "dq:dialog{"
•                   " label=\"物体对齐\";"
•                   " :row{"
•                   "  :button{label=\"┃\";key=\"竖直\";width=16;height=8;allow_accept=true;}"
•                   "  :button{label=\"↑\";key=\"上\";width=16;height=8;allow_accept=true;}"
•                   "  :button{label=\"━\";key=\"水平\";width=16;height=8;allow_accept=true;}"
•                   " }"
•                   " :row{"
•                   "  :button{label=\"←\";key=\"左\";width=16;height=8;allow_accept=true;}"
•                   "  :button{label=\"↓\";key=\"下\";width=16;height=8;allow_accept=true;}"
•                   "  :button{label=\"→\";key=\"右\";width=16;height=8;allow_accept=true;}"
•                   " }"
•                   "  :button{label=\" 双向居中 \";key=\"双向居中\";width=50;height=8;is_cancel=true;fixed_width=true;alignment=centered;}"
•                   "}"
•                 )
•     (write-line str file)
•   )
•   (close file)
•   Dcl_File
• )
  

上述代码，是一个弹窗面板，我觉得文字有点小了，请问如何把文字给放大？

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 /> ;;-------------------------------------------------------------------

lee50310

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

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

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

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

aws

wzg356 发表于 2023-1-1 01:09
http://bbs.mjtd.com/thread-184666-1-1.html

你这个东西，有点意思啊，挺好玩的。不过生成fas，有点难受。

纵横八方

拿个放大镜

wzg356

只做成image

aws

wzg356 发表于 2022-12-31 19:27
只做成image

做成图片吗？那怎么加载到lsp里面。。。

aws

纵横八方 发表于 2022-12-31 19:04
拿个放大镜

看来是没招了？

kozmosovia

直接用vector_image画

wzg356

aws 发表于 2022-12-31 19:47
做成图片吗？那怎么加载到lsp里面。。。

http://bbs.mjtd.com/thread-184666-1-1.html

lee50310

可以用 image_button

aws

lee50310 发表于 2023-1-2 11:05
可以用 image_button

哇，厉害，有更详细的教程吗