CAD钣金展开AutoLisp开发

最新推荐文章于 2020-12-30 15:44:14 发布

jianpf

最新推荐文章于 2020-12-30 15:44:14 发布

阅读量2.7k

点赞数 17

分类专栏： CAD 文章标签： AutoLisp CAD 钣金展开

本文链接：https://blog.csdn.net/jianpf/article/details/84291411

版权

这篇博客介绍了如何利用AutoLisp语言开发一个CAD钣金展开程序，包括设置板厚、读取标注值、绘制钣金展开形状等功能，并提供了源码链接。

摘要由CSDN通过智能技术生成

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