设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 浩辰：对话框不兼容CAD吗？
返回列表 发新帖
查看: 522|回复: 2

[提问] 浩辰：对话框不兼容CAD吗？

[复制链接]
尘缘一生
发表于 2019-12-28 18:48 | 显示全部楼层 |阅读模式
如题：

浩辰的DCL和CAD不兼容？

  1. ;;;system.slb 幻灯库放在CAD支持路径下
  2. ;;-----------------填充【开始】----------------------------------------------------------------
  3. (defun C:TT ( / dcl_id dlg)
  4.   ;;说明:填充名列表
  5.   (if (or (not dcl_id) (< (setq dcl_id (load_dialog (SL_TC))) 0))
  6.     (setq dcl_id (load_dialog (SL_TC))) ;加载对话框
  7.   )
  8.   (if (not (new_dialog "填充" dcl_id)) (exit))
  9.   (SL-Lib-ImageFill "img1-1" "system(solid)" 0) ;;;;;;显示幻灯库中solid幻灯片
  10.   (SL-Lib-ImageFill "img1-2" "system(ansi31)" 0)
  11.   (SL-Lib-ImageFill "img1-3" "system(ansi37)" 0)
  12.   (SL-Lib-ImageFill "img1-4" "system(钢筋混凝土)" 0)
  13.   
  14.   (SL-Lib-ImageFill "img2-1" "system(混凝土)" 0)
  15.   (SL-Lib-ImageFill "img2-2" "system(加气混凝土)" 0)
  16.   (SL-Lib-ImageFill "img2-3" "system(金属)" 0)
  17.   (SL-Lib-ImageFill "img2-4" "system(木材)" 0)
  18.   
  19.   (SL-Lib-ImageFill "img3-1" "system(夯实土壤)" 0)
  20.   (SL-Lib-ImageFill "img3-2" "system(平行线)" 0)
  21.   (SL-Lib-ImageFill "img3-3" "system(弯瓦屋面)" 0)
  22.   (SL-Lib-ImageFill "img3-4" "system(隔热材料01)" 0)
  23.   
  24.   (SL-Lib-ImageFill "img4-1" "system(砂灰土)" 0)
  25.   (SL-Lib-ImageFill "img4-2" "system(AR-B88)" 0)
  26.   (SL-Lib-ImageFill "img4-3" "system(天然石材)" 0)
  27.   (SL-Lib-ImageFill "img4-4" "system(玻璃1)" 0)
  28.   
  29.   (action_tile "img1-1" "(done_dialog 1)")
  30.   (action_tile "img1-2" "(done_dialog 2)")
  31.   (action_tile "img1-3" "(done_dialog 3)")
  32.   (action_tile "img1-4" "(done_dialog 4)")
  33.   
  34.   (action_tile "img2-1" "(done_dialog 5)")
  35.   (action_tile "img2-2" "(done_dialog 6)")
  36.   (action_tile "img2-3" "(done_dialog 7)")
  37.   (action_tile "img2-4" "(done_dialog 8)")
  38.   
  39.   (action_tile "img3-1" "(done_dialog 9)")
  40.   (action_tile "img3-2" "(done_dialog 10)")
  41.   (action_tile "img3-3" "(done_dialog 11)")
  42.   (action_tile "img3-4" "(done_dialog 12)")
  43.   
  44.   (action_tile "img4-1" "(done_dialog 13)")
  45.   (action_tile "img4-2" "(done_dialog 14)")
  46.   (action_tile "img4-3" "(done_dialog 15)")
  47.   (action_tile "img4-4" "(done_dialog 16)")
  48.   
  49.   (action_tile "dtbi" "(done_dialog 17)")
  50.   (action_tile "tcmj" "(done_dialog 21)")
  51.   (action_tile "cgtc" "(done_dialog 18)")
  52.   (action_tile "jctco" "(done_dialog 19)")
  53.   (action_tile "cjbj" "(done_dialog 20)")
  54.   (setq dlg (start_dialog))
  55.   (cond
  56.     ((= dlg 0)
  57.       (princ "\n取消")
  58.     )
  59.     ((= dlg 1)
  60.       (mdtc "SOLID") ;填充 SOLID
  61.     )
  62.     ((= dlg 2)
  63.       (mdtc "ANSI31")
  64.     )
  65.     ((= dlg 3)
  66.       (mdtc "ANSI37")
  67.     )
  68.     ((= dlg 4)
  69.       (mdtc "钢筋混凝土")
  70.     )
  71.     ((= dlg 5)
  72.       (mdtc "混凝土")
  73.     )
  74.     ((= dlg 6)
  75.       (mdtc "加气混凝土")
  76.     )
  77.     ((= dlg 7)
  78.       (mdtc "金属")
  79.     )
  80.     ((= dlg 8)
  81.       (mdtc "木材")
  82.     )
  83.     ((= dlg 9)
  84.       (mdtc "夯实土壤")
  85.     )
  86.     ((= dlg 10)
  87.       (mdtc "平行线")
  88.     )
  89.     ((= dlg 11)
  90.       (mdtc "弯瓦屋面")
  91.     )
  92.     ((= dlg 12)
  93.       (mdtc "隔热材料01")
  94.     )
  95.     ((= dlg 13)
  96.       (mdtc "砂灰土")
  97.     )
  98.     ((= dlg 14)
  99.       (mdtc "AR-B88")
  100.     )
  101.     ((= dlg 15)
  102.       (mdtc "天然石材")
  103.     )
  104.     ((= dlg 16)
  105.       (mdtc "玻璃1")
  106.     )
  107.     ((= dlg 17)
  108.       (c:dttcbi)
  109.     )
  110.     ((= dlg 18)
  111.       (command "bhatch")
  112.     )
  113.     ((= dlg 19)
  114.       (c:jctc)
  115.     )
  116.     ((= dlg 20)
  117.       (CJTCHL)
  118.     )
  119.     ((= dlg 21)
  120.       (btmj)
  121.     )
  122.   )
  123. )

  125. ;;-----------------三领填充 DCL-----------------------------------------------------------------
  126. (defun SL_TC (/ lst_str str file f)
  127.   (setq lst_str
  128.     (list
  129.       "填充:dialog {"
  130.       "label = \"三领外挂V7.3         三领填充V1.0 开发 陈传建 QQ:15290049\" ;"
  131.       ":row {"
  132.       ":image_button {"
  133.       " aspect_ratio = 0.5;"
  134.       " key = \"img1-1\" ;"
  135.       " width = 25 ;"
  136.       " }"
  137.       ":image_button {"
  138.       " aspect_ratio = 0.5;"
  139.       " key = \"img1-2\" ;"
  140.       " width = 25 ;"
  141.       " }"
  142.       ":image_button {"
  143.       " aspect_ratio = 0.5;"
  144.       " key = \"img1-3\" ;"
  145.       " width = 25 ;"
  146.       " }"
  147.       ":image_button {"
  148.       " aspect_ratio = 0.5;"
  149.       " key = \"img1-4\" ;"
  150.       " width = 25 ;"
  151.       " }"
  152.       " }"
  153.       ":row {"
  154.       ":image_button {"
  155.       " aspect_ratio = 0.5;"
  156.       " key = \"img2-1\" ;"
  157.       " width = 25 ;"
  158.       " }"
  159.       ":image_button {"
  160.       " aspect_ratio = 0.5;"
  161.       " key = \"img2-2\" ;"
  162.       " width = 25 ;"
  163.       " }"
  164.       ":image_button {"
  165.       " aspect_ratio = 0.5;"
  166.       " key = \"img2-3\" ;"
  167.       " width = 25 ;"
  168.       " }"
  169.       ":image_button {"
  170.       " aspect_ratio = 0.5;"
  171.       " key = \"img2-4\" ;"
  172.       " width = 25 ;"
  173.       " }"
  174.       " }"
  175.       ":row {"
  176.       ":image_button {"
  177.       " aspect_ratio = 0.5;"
  178.       " key = \"img3-1\" ;"
  179.       " width = 25 ;"
  180.       " }"
  181.       ":image_button {"
  182.       " aspect_ratio = 0.5;"
  183.       " key = \"img3-2\" ;"
  184.       " width = 25 ;"
  185.       " }"
  186.       ":image_button {"
  187.       " aspect_ratio = 0.5;"
  188.       " key = \"img3-3\" ;"
  189.       " width = 25 ;"
  190.       " }"
  191.       ":image_button {"
  192.       " aspect_ratio = 0.5;"
  193.       " key = \"img3-4\" ;"
  194.       " width = 25 ;"
  195.       " }"
  196.       " }"
  197.       ":row {"
  198.       ":image_button {"
  199.       " aspect_ratio = 0.5;"
  200.       " key = \"img4-1\" ;"
  201.       " width = 25 ;"
  202.       " }"
  203.       ":image_button {"
  204.       " aspect_ratio = 0.5;"
  205.       " key = \"img4-2\" ;"
  206.       " width = 25 ;"
  207.       " }"
  208.       ":image_button {"
  209.       " aspect_ratio = 0.5;"
  210.       " key = \"img4-3\" ;"
  211.       " width = 25 ;"
  212.       " }"
  213.       ":image_button {"
  214.       " aspect_ratio = 0.5;"
  215.       " key = \"img4-4\" ;"
  216.       " width = 25 ;"
  217.       " }"
  218.       " }"
  219.       ":row {"
  220.       ":button {"
  221.       "key = \"cjbj\" ;"
  222.       "label = \"重建填充边界\" ;"
  223.       " }"
  224.       ":button {"
  225.       "key = \"tcmj\" ;"
  226.       "label = \"批量填充面积\" ;"
  227.       " }"
  228.       ":button {"
  229.       "key = \"dtbi\" ;"
  230.       "label = \"动态填充比例\" ;"
  231.       " }"
  232.       ":button {"
  233.       "key = \"jctco\" ;"
  234.       "label = \"继承填充\" ;"
  235.       " }"
  236.       ":button {"
  237.       "key = \"cgtc\" ;"
  238.       "label = \"常规填充\" ;"
  239.       " }"
  240.       ":button {"
  241.       "action = \"(done_dialog 0)\" ;"
  242.       "is_cancel = true ;"
  243.       "key = \"btn_Cancel\" ;"
  244.       " label = \"取消\" ;"
  245.       " }"
  246.       " }"
  247.       " }"  
  248.     )
  249.   )
  250.   (setq file (vl-filename-mktemp "DclTemp.dcl"))
  251.   (setq f (open file "w"))
  252.   (foreach str lst_str
  253.     (princ "\n" f)
  254.     (princ str f)
  255.   )
  256.   (close f)
  257.   ;;返回
  258.   file
  259. )
  260. ;;-----------------填充【结束】----------------------------------------------------------------
  261. ;图形预览对话框处理;==DCL控件写幻灯===================(一级)======================================
  262. ;;语法 (SL-Lib-ImageFill img_key slide cobak)
  263. ;;img_key 图像控件关键字
  264. ;;slide 幻灯片名字
  265. ;;cobak 图像控件底色
  266. ;;功能：对话框图像初始化
  267. (defun SL-Lib-ImageFill (imgkey slide cobak / x1 y1)
  268.   (setq x1 (dimx_tile imgkey))
  269.   (setq y1 (dimy_tile imgkey))
  270.   (start_image imgkey)
  271.   (fill_image 0 0 x1 y1 cobak)
  272.   (slide_image 0 -2 x1 y1 slide)
  273.   (end_image)
  274. )

"觉得好，就打赏"
打赏
还没有人打赏，支持一下
回复

使用道具 举报

e2002
发表于 2019-12-29 10:03 | 显示全部楼层
gcad对DCL的支持还算可以的，没有问题。

回复 支持 反对

使用道具 举报

尘缘一生
 楼主| 发表于 2019-12-29 11:25 | 显示全部楼层
e2002 发表于 2019-12-29 10:03
gcad对DCL的支持还算可以的，没有问题。

找到原因了
(if (not (new_dialog "填充" dcl_id)) (exit))   填充，不能用汉字，改成字符即可了。
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-4-25 05:31 , Processed in 0.205861 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表