lee50310 发表于 2024-8-28 19:55
.......我看看!
好了lee老师，我抄了楼下cjrun老师的几行代码就好了，谢谢您 cjrun 发表于 2024-8-28 21:49
(defun C:QQA ()
(defun s_tan (A1);正切函数;输入弧角度如π
(if (= (cos A1) 0) (sin A1) (/ (sin A ...
你好老师，你的代码假如不小心在角度输入了0，按了计算，然后这个程序就记住了角度为0，就这个它崩溃了，只能重开。 xyp1964 发表于 2024-8-29 08:53
动态DCL计算
我试了下，给板厚和角度输入值时，直接让结果框获取计算结果，但是效果不理想，输入后要点一下其他地方结果框的数值才变，请问老师用的哪种方法？ 本帖最后由 lee50310 于 2024-8-29 16:34 编辑
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
)
;-----------------------------------------------------------------------------------------------
lee50310 发表于 2024-8-29 15:58
;;當按下計算時 增加判斷輸入錯誤值提示訊息
好复杂，我研究看看，劳烦lee老师 非常感谢lee50310，cjrun，xyp1964三位老师的指导，帮助小白我搞出第一个插件，功能是便于钣金折弯展开计算，下面放源码出来，大家有用的就下载来看看吧哈哈哈，谢谢大家
页:
1
[2]