请各位老师看看怎么修改，或者提供一下修改思路

xyp1964

动态DCL计算

chen3732088

lee50310 发表于 2024-8-28 19:55
.......我看看!

好了lee老师，我抄了楼下cjrun老师的几行代码就好了，谢谢您

chen3732088

cjrun 发表于 2024-8-28 21:49
(defun C:QQA ()
        (defun s_tan (A1);正切函数;输入弧角度如π
                (if (= (cos A1) 0) (sin A1) (/ (sin A ...

你好老师，你的代码假如不小心在角度输入了0，按了计算，然后这个程序就记住了角度为0，就这个它崩溃了，只能重开。

chen3732088

xyp1964 发表于 2024-8-29 08:53
动态DCL计算

我试了下，给板厚和角度输入值时，直接让结果框获取计算结果，但是效果不理想，输入后要点一下其他地方结果框的数值才变，请问老师用的哪种方法？

lee50310

chen3732088 发表于 2024-8-29 14:11
你好老师，你的代码假如不小心在角度输入了0，按了计算，然后这个程序就记住了角度为0，就这个它崩溃了， ...

;;當按下計算時 增加判斷輸入錯誤值提示訊息



;key命名觸發操作
  (action_tile "BH" "(setq bh_key(atof(get_tile \"BH\")))")
  (action_tile "JD" "(setq jd_key(atof(get_tile \"JD\")))")
  (action_tile "SUM" "(check_vlue)(if(= ck 0)(progn  
                      (set_tile \"JG\"  (rtos(* (/ 1 (tan (/ (* (atof(get_tile \"JD\")) 3.14) 360)))
                      (atof(get_tile \"BH\")) 0.833)2 1))
                      (setq jg_key(atof(get_tile \"JG\")))
                      ))")





;;三角函數tan()
(defun Tan( x / )
(/ (sin x) (cos x))
)
;;輸入錯誤值提示訊息
(defun check_vlue ()
       (setq ck 0)
       (cond
                ((or(<= bh_key 0)(= bh_key 'nil))(alert "輸入板厚值不能小於等於 0 或 為空值")(setq ck 1))
                ((or(<= jd_key 0)(= jd_key 'nil))(alert "輸入角度不能小於等於 0 或 為空值")(setq ck 1))
                                                                                       
          );end_cond
)
;-----------------------------------------------------------------------------------------------

chen3732088

lee50310 发表于 2024-8-29 15:58
;;當按下計算時 增加判斷輸入錯誤值提示訊息

好复杂，我研究看看，劳烦lee老师

chen3732088

非常感谢lee50310，cjrun，xyp1964三位老师的指导，帮助小白我搞出第一个插件，功能是便于钣金折弯展开计算，下面放源码出来，大家有用的就下载来看看吧哈哈哈，谢谢大家