找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1151|回复: 1

[求助] [求助]:我的DCL和lisp连接不上????

[复制链接]
发表于 2008-2-4 08:24:35 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
各位大虾速来帮忙!!!!
尤其是action—tile就是弄不明白,以管线号这一栏为例,当我输入值时,lisp程序就是传不回来值

  1.   [FONT=courier new]


  2.    ( defun c:WL()

  3.    (setq weldDialog (load_dialog "d:\\weld"))

  4.    (new_dialog "weld" weldDialog)

  5.    (action_tile "pipeNo" "(setq pipe (get_tile "pipeNo"))")
  6.       
  7.    (start_dialog)
  8.    (princ pipe)     ;pipe总是传不会我在对话框输入的值
  9.    
  10. )
  11.   [/FONT]




  1.   [FONT=courier new]
  2.    weld:dialog {
  3.     label = "焊口标记程序" ;
  4.     :boxed_column {
  5.         label = "管线参数" ;
  6.         :edit_box {
  7.             key = "pipeNo" ;
  8.             label = "管线号" ;
  9.         }
  10.         ok_cancel;
  11.         :row {
  12.             :edit_box {
  13.                 alignment = left ;
  14.                 edit_width = 8 ;
  15.                 key = "pipeOutsideDiameter" ;
  16.                 label = "管道外径" ;
  17.             }
  18.             :edit_box {
  19.                 alignment = right ;
  20.                 edit_width = 4 ;
  21.                 fixed_height = true ;
  22.                 key = "pipeWallThickness" ;
  23.                 label = "壁厚" ;
  24.             }
  25.         }
  26.         :radio_row {
  27.             :edit_box {
  28.                 alignment = left ;
  29.                 edit_width = 8 ;
  30.                 key = "welderNo" ;
  31.                 label = "焊工号           " ;
  32.             }
  33.             :edit_box {
  34.                 alignment = right ;
  35.                 edit_width = 4 ;
  36.                 key = "radiographicProportion" ;
  37.                 label = "探伤比例" ;
  38.             }
  39.         }
  40.     }
  41.     :boxed_column {
  42.         label = "标记设定" ;
  43.         :row {
  44.             alignment = left ;
  45.             :edit_box {
  46.                 alignment = left ;
  47.                 edit_width = 8 ;
  48.                 key = "beginNo" ;
  49.                 label = "起始序号" ;
  50.             }
  51.             :radio_button {
  52.                 alignment = left ;
  53.                 key = "marker" ;
  54.                 label = "标记符号" ;
  55.                 width = 8 ;
  56.             }
  57.         }
  58.         :row {
  59.             alignment = left ;
  60.             :popup_list {
  61.                 edit_width = 7 ;
  62.                 key = "font" ;
  63.                 label = "字体            " ;
  64.                 list = "宋体\n仿宋\n楷体\n魏体" ;
  65.             }
  66.             :edit_box {
  67.                 edit_limit = 8 ;
  68.                 key = "Height" ;
  69.                 label = "字号" ;
  70.             }
  71.         }
  72.         :row {
  73.             alignment = left ;
  74.             :edit_box {
  75.                 edit_width = 8 ;
  76.                 key = "markerSize" ;
  77.                 label = "标记大小" ;
  78.             }
  79.             :radio_button {
  80.                 key = "proportion" ;
  81.                 label = "锁定比例" ;
  82.             }
  83.         }
  84.     }
  85.     :boxed_column {
  86.         label = "修改管线" ;
  87.         :popup_list {
  88.             key = "completePipeNo" ;
  89.         }
  90.         :button {
  91.             key = "currently" ;
  92.             label = "管线数据置当前" ;
  93.         }
  94.     }
  95. }

  96.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 57个

财富等级: 招财进宝

发表于 2008-2-5 23:26:11 | 显示全部楼层
(action_tile "pipeNo" "(setq pipe $value)")
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-22 11:23 , Processed in 0.406758 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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