[求助]请教个 有关DCL的问题?

QUAN2518

上面开关控制后面的单选按钮是怎么实现的

我想用开关来控制DCL的一些输入项目 ?哪个高手给个相关的 DCL和LISP源码来学习一下 谢谢了先

在请教下 :我想将一组选集复制后,对复制出来的图元进行操作 ;如何得到复制所产生的新图元集?

byghbcx

(action_tile   "key"  "(mode_tile  \"key1\" 0)")

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68694&replyID=&skin=1

QUAN2518

byghbcx发表于2008-7-18 7:47:00(action_tile   \"key\"  \"(mode_tile  \\"key1\\" 0)\")http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68694&replyID=&skin=1

(action_tile   "key"  "(mode_tile  \"key1\" 0)")

着句不太理解 能给个

mode_tile设置对话框控件的状态

但是具体使用上还是不太了解该如何操作

\"key1\"  (指定控件操作名的字符串。区分大小写。) 若控制下面的项目 \"key1\"字符因该如何写

 :edit_box{label="厚度";key="dcl-cov-t";edit_width=5;}

 :edit_box{label="材质";key="dcl-cov-m";edit_width=5;}

byghbcx

(action_tile   "key"  "(mode_tile  \"dcl-cov-t\" (abs (1- (atoi (get_tile \"dcl-cov-t\")))))")

(action_tile   "key"  "(mode_tile  \"dcl-cov-m\" (abs (1- (atoi (get_tile \"dcl-cov-m\")))))")

xyp1964

;; 对话框测试
(defun c:test711 ()
  (cmdla0)
  (defun aaa ()
    (xyp-Dcl-Gettile '("k1"))
    (cond ((= k1 "1")
    (mode_tile "k2" 0)
    (mode_tile "k3" 0)
   )
   ((= k1 "0")
    (mode_tile "k2" 1)
    (mode_tile "k3" 1)
   )
    )
  )
  (xyp-initSet '(k1 k2 k3) '("1" "1" "0"))
  (setq Ilst '(("k1" "自动保存打印并发布日志(A)" "bool" "(aaa)")
        (nil nil ":boxed_radio_column{")
        ("k2" "保存一个连续打印日志(C)" "radio")
        ("k3" "每次打印保存一个日志(L)" "radio")
        (nil nil "}")
        (nil nil "user" "(aaa)")
       )
  )
  (if (= (xyp-Dcl-Init Ilst "【打印并发布日志文件】" t) 1)
    (alert "\n对话框测试")
  )
  (cmdla1)
)