lee50310 发表于 2020-2-24 08:41:34

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

本帖最后由 lee50310 于 2024-1-31 11:56 编辑

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

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

                (and
                  (setq tmp (vl-filename-mktemp nil nil ".dcl"))
                  (setq des (open tmp "w"))
                  (foreach line
                     '(
                     "blockpreview : dialog"
                            "{"
                            "    label = \"图块预览\";"
                            "    spacer;"
                            "    : column"
                            " {"                     
                            "    : row"
                            "    {"
                            "      : list_box { key = \"lst\"; width = 30.0; fixed_width = true; }"
                            "      spacer;"
                            "      : image"
                            "      {"
                            "            key = \"img\";"
                            "            width = 33.5;"
                            "            aspect_ratio = 1.0;"
                            "            fixed_width = true;"
                            "            fixed_height = true;"
                            "      }"
                            "    }"

                            "   :boxed_column {"
                            "               : edit_box {"
                            "               label=\"图块名称:\";"
                            "                  mnemonic =\"B\";"
                            "                   key = \"blk_name\";"
                            "                   edit_width=6;"
                            "               }"
                            "               : edit_box {"
                            "               label=\"X 比例:\";"
                            "                  mnemonic =\"X\";"
                            "                   key = \"x_sca\";"
                            "                   edit_width=6;"
                            "               }"
                            "               : edit_box {"
                            "               label=\"Y 比例:\";"
                            "                  mnemonic =\"Y\";"
                            "                   key = \"y_sca\";"
                            "                   edit_width=6;"
                            "               }"
                            "               : edit_box {"
                            "            label=\"Z 比例:\";"
                            "            mnemonic =\"Z\";"
                            "                key = \"z_sca\";"
                            "                   edit_width=6;"
                            "               }"
                            "               : edit_box {"
                            "               label=\"旋转角度:\";"
                            "                  mnemonic =\"R\";"
                            "                   key = \"r_angle\";"
                            "                   edit_width=6;"
                            "               }"
                            "   } //end boxed_column"

                            "}"

                            "    spacer;"
                            "    ok_only;"
                            "}"
                        )
                        (write-line line des)
                  )
                  (not (setq des (close des)))
                  (< 0 (setq dcl (load_dialog tmp)))
                  (new_dialog "blockpreview" dcl)
                           
                )

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






lee50310 发表于 2020-2-25 19:28:53

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

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

lxl217114 发表于 2020-2-27 13:50:22

本帖最后由 lxl217114 于 2020-2-27 13:53 编辑

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

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

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



lee50310 发表于 2020-2-27 18:34:48

本帖最后由 lee50310 于 2020-2-27 18:57 编辑

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

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

cad 功能都相同

LIULISHENG 发表于 2020-2-24 11:47:33

很有用这个

纵横八方 发表于 2020-2-24 13:12:38

原版 就 不能识别文字吗？

lee50310 发表于 2020-2-24 15:28:14

本帖最后由 lee50310 于 2020-2-25 16:36 编辑

纵横八方 发表于 2020-2-24 13:12
原版 就 不能识别文字吗？
是的原版就沒這功能,有興趣可自行研究看看


sachindkini 发表于 2020-2-24 19:01:07

dear sir,

Press escape don't exit directly

sachindkini 发表于 2020-2-24 19:01:36

dear sir,

nice using lee program

angel066499 发表于 2020-2-25 18:35:14

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

qq509103902 发表于 2020-2-26 16:19:56

学习学习
页: [1] 2
查看完整版本: 能讓block直接在DCL上預覽 ，無需轉成.SLD