小懒人CAD工具箱  LISP插件

首页 >> 精选插件 >>代码分享 >> LISP edit_box默认值设置_文本框内容互换_CAD插件_小懒人CAD工具箱
详细内容

LISP edit_box默认值设置_文本框内容互换_CAD插件_小懒人CAD工具箱

时间:2019-06-10     作者:逆流而上的鱼   阅读

LISP edit_box默认值设置_文本框内容互换_CAD插件_小懒人CAD工具箱

CAD插件

CASS插件

edit_box默认值

LISP代码

CAD插件


;;;;;;功能:文本框内容互换

(defun C:tt ()

  (setq @dclfiledame (vl-filename-mktemp nil nil ".dcl"))

  (setq @dclfiled (open @dclfiledame "w"))

  (write-line "dzdcljlbz:dialog {" @dclfiled)

  (write-line "    :edit_box {" @dclfiled)

  (write-line "        key = \"AA1\" ;" @dclfiled)

  (write-line "    }" @dclfiled)

  (write-line "    :edit_box {" @dclfiled)

  (write-line "        key = \"AA2\" ;" @dclfiled)

  (write-line "    }" @dclfiled)

  (write-line "    :button {" @dclfiled)

  (write-line "        key = \"AA3\" ;" @dclfiled)

  (write-line "        label = \"内容互换\" ;" @dclfiled)

  (write-line "    }" @dclfiled)

  (write-line "    ok_cancel;" @dclfiled)

  (write-line "}" @dclfiled)

  (close @dclfiled)

 

;;以下根据情况处理

(setq @dclid (load_dialog @dclfiledame))

(new_dialog "dzdcljlbz" @dclid)

;;设置控件默认值

(if (and (/= AA1_1  "")(/=  AA1_1 nil))(set_tile  "AA1"  AA1_1))

(if (and (/= AA2_1  "")(/=  AA2_1 nil))(set_tile  "AA2"  AA2_1))

(action_tile "accept" "(get_dzdcljlbz_main)(done_dialog 1)")  ;;;确定

(action_tile "AA3""(get_dzdcljlbz_main)(set_dzdcljlbz_main)")

  (setq return# (start_dialog))

  (cond

     ((= return# 1)

      (alert "测试")

     )

   )

  (unload_dialog @dclid)

  (vl-file-delete @dclfiledame)

  (princ)

 )

 

 

(defun set_dzdcljlbz_main()

  (set_tile  "AA1"  AA2_1)

  (set_tile  "AA2"  AA1_1)

  )

 

;;;;;获得对话框值

(defun get_dzdcljlbz_main ()

(setq AA1_1   (get_tile "AA1"))

(setq AA2_1   (get_tile "AA2"))

)




电话直呼
在线客服
在线留言
发送邮件
联系我们:
15126824036
小懒人1号
点击这里给我发消息
小懒人2号
点击这里给我发消息
还可输入字符250(限制字符250)
技术支持: 建站ABC | 管理登录
×

联系电话:151  2682  4036(段)
联系QQ:736188807
联系微信:151  2682  4036
承接CAD、CASS插件开发定制出售

扫一扫加微信

关注微信公众号

小懒人CAD工具箱,拥有功能950个,免费功能400个,下载免费使用。关注微信公众号,里面分享一些插件代码及插件使用视频等CAD技能。