20181120s
CAD钣金展开AutoLisp开发
Make:jianpf
20190013(The Mid-Autumn Festival is coming)
Autolisp地址:
https://github.com/jianpf/autolisp/tree/jianpf-patch-2
;jbox钣金盒子展开外尺寸20190404x ver:0.001-1.0
;jianpf 20190404x
;设置板厚tbh
(defun c:tbhj()
(princ “jbox设置板厚:”)
(setq tbh (getreal));
(princ “板厚:”)
(princ tbh)
(princ)
)
;---------20190520jianpf
;读取标注值jianpf20190530w
(defun raval()
(progn
(setq cent (entget (car (entsel (strcat “获取标注值:” )))))
;获取标注值
(setq rvale (cdr (assoc 42 cent)))
)
)
;结束读取标注值
(defun c:jbox()
;(setq tbh (getreal “设置实际板厚度(mm):”))
;判断板厚是否存在
(if (not tbh) (setq tbh (getreal “\n板厚:”)))
(setq ww (getreal “平板折好宽度(mm):”))
(if ww () (setq ww (raval)))
(setq hh (getreal “平板折好高度(mm):”))
(if hh () (setq hh (raval)))
(setq t1 (getreal “90度折高(mm):”))
(if t1 () (setq t1 (rava