能讓block直接在DCL上預覽 ，無需轉成.SLD

lee50310

來源出處: http://www.theswamp.org/index.php?topic=42413.0
來源出處下載之程式 無法正常執行(需自行修正)

;-------------------------------------------------
在此處下載可正常執行
部份程式碼:

2.                 (and
   
3.                     (setq tmp (vl-filename-mktemp nil nil ".dcl"))
   
4.                     (setq des (open tmp "w"))
   
5.                     (foreach line
   
6.                        '(
   
7.                      "blockpreview : dialog"
   
8.                             "{"
   
9.                             "    label = "图块预览";"
   
10.                             "    spacer;"
    
11.                             "    : column"
    
12.                             " {"                       
    
13.                             "    : row"
    
14.                             "    {"
    
15.                             "        : list_box { key = "lst"; width = 30.0; fixed_width = true; }"
    
16.                             "        spacer;"
    
17.                             "        : image"
    
18.                             "        {"
    
19.                             "            key = "img";"
    
20.                             "            width = 33.5;"
    
21.                             "            aspect_ratio = 1.0;"
    
22.                             "            fixed_width = true;"
    
23.                             "            fixed_height = true;"
    
24.                             "        }"
    
25.                             "    }"
    
26. 
    
27.                             "     :boxed_column {"  
    
28.                             "               : edit_box {"  
    
29.                             "                 label="图块名称:";"  
    
30.                             "                  mnemonic ="B";"  
    
31.                             "                   key = "blk_name";"  
    
32.                             "                   edit_width=6;"  
    
33.                             "               }"  
    
34.                             "               : edit_box {"  
    
35.                             "                 label="X 比例:";"  
    
36.                             "                  mnemonic ="X";"  
    
37.                             "                   key = "x_sca";"  
    
38.                             "                   edit_width=6;"  
    
39.                             "               }"  
    
40.                             "               : edit_box {"  
    
41.                             "                 label="Y 比例:";"  
    
42.                             "                  mnemonic ="Y";"  
    
43.                             "                   key = "y_sca";"  
    
44.                             "                   edit_width=6;"  
    
45.                             "               }"  
    
46.                             "               : edit_box {"  
    
47.                             "              label="Z 比例:";"  
    
48.                             "              mnemonic ="Z";"  
    
49.                             "                key = "z_sca";"  
    
50.                             "                   edit_width=6;"  
    
51.                             "               }"  
    
52.                             "               : edit_box {"  
    
53.                             "                 label="旋转角度:";"  
    
54.                             "                  mnemonic ="R";"  
    
55.                             "                   key = "r_angle";"  
    
56.                             "                   edit_width=6;"  
    
57.                             "               }"  
    
58.                             "     } //end boxed_column"
    
59. 
    
60.                             "  }"
    
61. 
    
62.                             "    spacer;"
    
63.                             "    ok_only;"
    
64.                             "}"
    
65.                         )
    
66.                         (write-line line des)
    
67.                     )
    
68.                     (not (setq des (close des)))
    
69.                     (< 0 (setq dcl (load_dialog tmp)))
    
70.                     (new_dialog "blockpreview" dcl)
    
71.                            
    
72.                 )
    

                (and<br />                     (setq tmp (vl-filename-mktemp nil nil ".dcl"))<br />                     (setq des (open tmp "w"))<br />                     (foreach line<br />                        '(<br />                      "blockpreview : dialog"<br />                             "{"<br />                             "    label = "图块预览";"<br />                             "    spacer;"<br />                             "    : column"<br />                             " {"                       <br />                             "    : row"<br />                             "    {"<br />                             "        : list_box { key = "lst"; width = 30.0; fixed_width = true; }"<br />                             "        spacer;"<br />                             "        : image"<br />                             "        {"<br />                             "            key = "img";"<br />                             "            width = 33.5;"<br />                             "            aspect_ratio = 1.0;"<br />                             "            fixed_width = true;"<br />                             "            fixed_height = true;"<br />                             "        }"<br />                             "    }"<br /> <br />                             "     :boxed_column {"  <br />                             "               : edit_box {"  <br />                             "                 label="图块名称:";"  <br />                             "                  mnemonic ="B";"  <br />                             "                   key = "blk_name";"  <br />                             "                   edit_width=6;"  <br />                             "               }"  <br />                             "               : edit_box {"  <br />                             "                 label="X 比例:";"  <br />                             "                  mnemonic ="X";"  <br />                             "                   key = "x_sca";"  <br />                             "                   edit_width=6;"  <br />                             "               }"  <br />                             "               : edit_box {"  <br />                             "                 label="Y 比例:";"  <br />                             "                  mnemonic ="Y";"  <br />                             "                   key = "y_sca";"  <br />                             "                   edit_width=6;"  <br />                             "               }"  <br />                             "               : edit_box {"  <br />                             "              label="Z 比例:";"  <br />                             "              mnemonic ="Z";"  <br />                             "                key = "z_sca";"  <br />                             "                   edit_width=6;"  <br />                             "               }"  <br />                             "               : edit_box {"  <br />                             "                 label="旋转角度:";"  <br />                             "                  mnemonic ="R";"  <br />                             "                   key = "r_angle";"  <br />                             "                   edit_width=6;"  <br />                             "               }"  <br />                             "     } //end boxed_column" <br /> <br />                             "  }"<br /> <br />                             "    spacer;"<br />                             "    ok_only;"<br />                             "}"<br />                         )<br />                         (write-line line des)<br />                     )<br />                     (not (setq des (close des)))<br />                     (< 0 (setq dcl (load_dialog tmp)))<br />                     (new_dialog "blockpreview" dcl)<br />                             <br />                 )<br />

源碼功能與圖二相同可預覽可插入圖塊功能尚未達到的部份: 1.帶有文字的圖塊 ，文字無法被預覽 ,                                                                                      2.帶有剖面線圖塊,剖面線無法被預覽
其他功能皆正常，功能未達到的部份可自行研究   

lee50310

angel066499 发表于 2020-2-25 18:35
缺这个函数哦，“LM:BlockPreview”

我查看 所貼的原程式 blk_view_CHS.lsp ,裡面有找到LM:BlockPreview 這個 函式 ,而且程式也在電腦 autocad 2018測試過 執行上都ok (如圖二), 並沒有發現這個問題, 麻煩你再查看 一下

lxl217114

难道我们用的不是同一款软件？

1.我的AutoCAD 编辑块定义是可以预览的

2.楼主增加了显示块的X.Y.Z的比例以及块的旋转的角度

lee50310

lxl217114 发表于 2020-2-27 13:50
难道我们用的不是同一款软件？

1.我的AutoCAD 编辑块定义是可以预览的

cad 功能都相同

LIULISHENG

很有用这个

纵横八方

原版 就 不能识别文字吗？

lee50310

纵横八方 发表于 2020-2-24 13:12
原版 就 不能识别文字吗？

是的原版就沒這功能,有興趣可自行研究看看

sachindkini

dear sir,

Press escape don't exit directly

sachindkini

dear sir,

nice using lee program

angel066499

缺这个函数哦，“LM:BlockPreview”

qq509103902

学习学习