CAD钣金展开AutoLisp开发

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 (raval)))

(setq pps (getpoint “中心点:”))

(setq wwtt (- ww (* 2 tbh) ))
(setq hhtt (- hh (* 2 tbh) ))
(setq t1t (- t1 tbh))
(setq w (/ ww 2))
(setq h (/ hh 2))
(setq wt (- w tbh))
(setq ht (- h tbh))
(setq ppx (car pps))
(setq ppy (cadr pps))
(setq p1 (list (+ wt ppx) (+ ht ppy)))
(setq p2 (polar p1 (polarx 180.0) wwtt))
(setq p3 (polar p2 (polarx 270.0) hhtt))
(setq p4 (polar p3 (polarx 0.0) wwtt))
(setvar “osmode” 0);;关闭捕捉
;(command “pline” p1 p2 p3 p4 “c”)
(setq pz0 (polar p1 (polarx 90.0) t1t))
(setq pz1 (polar pz0 (polarx 180.0) wwtt))
(setq pz2 (polar pz1 (polarx 270.0) t1t))
(setq pz3 (polar pz2 (polarx 180.0) t1t))
(setq pz4 (polar pz3 (polarx 270.0) hhtt))
(setq pz5 (polar pz4 (polarx 0.0) t1t))
(setq pz6 (polar pz5 (polarx 270.0) t1t))
(setq pz7 (polar pz6 (polarx 0.0) wwtt))
(setq pz8 (polar pz7 (polarx 90.0) t1t))
(setq pz9 (polar pz8 (polarx 0.0) t1t))
(setq pz10 (polar pz9 (polarx 90.0) hhtt))
(setq pz11 (polar pz10 (polarx 180.0) t1t))
(command “pline” p1 pz0 pz1 pz2 pz3 pz4 pz5 pz6 pz7 pz8 pz9 pz10 pz11 “”)
(setvar “osmode” 16383);;启动捕捉

;文本位置
(if (not rsth) (setq rsth 60))
(setq txtpit (getpoint “\n创建单行文本位置:”))
(setq rstext (strcat “T” (rtos tbh) " wh:" (rtos ww) “*” (rtos hh) " tt:" (rtos t1) ))
(command “text” txtpit (/ rsth 2) 0 rstext )
)

;折弯线经度函数(起点坐标,经度方向)
(defun zwx(zwdp polarxx)
(setq xianchang (+ 5 20))
(setvar “osmode” 0);;关闭捕捉
(command “line” (polar zwdp polarxx 5) (polar zwdp polarxx xianchang) “”)
)
(defun dzwx ()
(zwx p1 polars)(zwx p1 polard)
(zwx p2 polarf)(zwx p2 polard)
(zwx p3 polare)(zwx p3 polarf)
(zwx p4 polare)(zwx p4 polars)
(setvar “osmode” 16383);;关闭捕捉
)
(defun ddzwx ()
(zwx pz0 polars)
(zwx pz3 polarf)
(zwx pz5 polard)
(zwx pz8 polare)
(zwx pz10 polarf)
(zwx pz13 polars)
(zwx pz15 polare)
(zwx pz18 polard)

(setvar “osmode” 16383);;关闭捕捉
)

(defun c:jh()
(dzwx)
)
(defun c:jjh()
(ddzwx)
)
(defun c:jjbox()
;(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 (raval)))
(setq t2 (getreal “90度再内折(mm):”))
(if t2 () (setq t2 (raval)))
;20190702x
(setq pps (getpoint “中心点:”))

(setq wwtt (- ww (* 2 tbh) ))
(setq hhtt (- hh (* 2 tbh) ))
(setq t1t (- t1 (* 2 tbh)))
(setq t2t (- t2 tbh))
(setq t245 (/ t2t (sin polart)))
(setq t245c (* t245 (cos polart)))
(setq t245c2 (* t245c 2))
(setq w (/ ww 2))
(setq h (/ hh 2))
(setq wt (- w tbh))
(setq ht (- h tbh))
(setq ppx (car pps))
(setq ppy (cadr pps))
(setq p1 (list (+ wt ppx) (+ ht ppy)))
(setq p2 (polar p1 (polarx 180.0) wwtt))
(setq p3 (polar p2 (polarx 270.0) hhtt))
(setq p4 (polar p3 (polarx 0.0) wwtt))
(setvar “osmode” 0);;关闭捕捉
;(command “pline” p1 p2 p3 p4 “c”)
(setq pz0 (polar p1 (polarx 90.0) t1t))
(setq pz1 (polar pz0 (polarx 135.0) t245))
(setq pz2 (polar pz1 (polarx 180) (- wwtt t245c2) ))
(setq pz3 (polar pz2 (polarx 225) t245 ))
(setq pz4 (polar pz3 (polarx 270) t1t ))
(setq pz5 (polar pz4 (polarx 180) t1t ))
(setq pz6 (polar pz5 (polarx 225) t245 ))
(setq pz7 (polar pz6 (polarx 270) (- hhtt t245c2) ))
(setq pz8 (polar pz7 (polarx 315) t245 ))
(setq pz9 (polar pz8 (polarx 0) t1t ))
(setq pz10 (polar pz9 (polarx 270) t1t ))
(setq pz11 (polar pz10 (polarx 315) t245 ))
(setq pz12 (polar pz11 (polarx 0) (- wwtt t245c2) ))
(setq pz13 (polar pz12 (polarx 45) t245 ))
(setq pz14 (polar pz13 (polarx 90) t1t ))
(setq pz15 (polar pz14 (polarx 0) t1t ))
(setq pz16 (polar pz15 (polarx 45) t245 ))
(setq pz17 (polar pz16 (polarx 90) (- hhtt t245c2) ))
(setq pz18 (polar pz17 (polarx 135) t245 ))
(setq pz19 (polar pz18 (polarx 180) t1t ))
(command “pline” p1 pz0 pz1 pz2 pz3 pz4 pz5 pz6
pz7 pz8 pz9 pz10 pz11 pz12 pz13 pz14 pz15
pz16 pz17 pz18 pz19 “”)
(setvar “osmode” 16383);;启动捕捉
;文本位置
(if (not rsth) (setq rsth 60))
(setq txtpit (getpoint “\n创建单行文本位置:”))
(setq rstext (strcat “T” (rtos tbh) " wh:" (rtos ww) “*” (rtos hh) " ttt:" (rtos t1) " t:" (rtos t2) ))
(command “text” txtpit (/ rsth 2) 0 rstext )
)

;角度经度数
(defun polarx(pn)
(* pi (/ pn 180.0))
)
(setq polarf 0.0)
(setq polare (/ pi 2))
(setq polars pi)
(setq polard (* pi 1.5))
(setq polart (* pi (/ 45.0 180)))
(setq polarw (* pi (/ 135.0 180)))
(setq polarz (* pi (/ 225.0 180)))
(setq polarv (* pi (/ 315.0 180)))

CAD钣金展开AutoLisp开发相关推荐

cad钣金展开插件_户外垃圾桶顶盖钣金拆分展开方法
今天给大家讲解一个户外垃圾箱顶盖的拆分展开方法如下图拆分零件如下对称的两个零件如下打开SolidWorks,新建草图如下点击拉伸凸台命令设置参数如下点击倒圆角命令设置参数选择下面蓝色面 ...
cad钣金展开插件_钣金折弯展开的计算方法汇总
提醒:点上方↑↑↑"钣金学习网"免费关注 90度折弯折弯系数最简单的计算方法就属90度折弯系数经验公式:1.7倍料厚计算方法了. 这个公式是怎么使用的?用在90钣金折弯加工中,一 ...
cad钣金展开插件_简单的钣金CAD展开方法
问:我也是钣金人,怎么加入组织? 答:点标题下方蓝字"钣金学习网一.结构 1.此图是A边折弯20,B边折弯30,C边折弯41,即ABC三边有2道折弯.宽度50MM. 2.板厚T=1.0,我 ...
cad钣金展开插件_钣金高级工考试大小头手工展开图步骤教程
提醒:点上方↑↑↑"钣金学习网"免费关注简单方法一: 等分弧画法简单方法二: 角度计算画法 1.先画一条中心直线,在线上取一点A,过A点画一条与中心线垂直相交线.量取大 ...
钣金缺口lisp_方圆段钣金展开的AutoLisp编程方法
方圆段钣金展开的 AutoLisp 编程方法董菊梅 ; 王庆明 [摘要] 应用 Auto CAD 软件建立天方地圆展开的几何模型在工程应用中较为常见 , 详述了天方地圆展开的数学模型 , 并在数 ...
铝板展开插件_钣金件快速绘图与展开程序CAD插件(钣金展开插件工具)Vr2.10 最新版...
钣金件快速绘图与展开程序CAD插件(钣金展开插件工具)是一款非常优秀实用的针对板金加工推出的钣金展开辅助工具.小编推荐的这款钣金件快速绘图与展开程序CAD插件拥有强大全面的功能,操作起来简单方便,使用 ...
凯图 CADTool2000(天喻CAD) 1CD钣金展开软件AP100 v5.1 中文版 1DVD
开目系列软件: 开目尧创CAD2010专业版 1CD 开目CAD3.81 1CD(完全解密版) 开目CAPP 2004 Sp7 1CD(完全安装版+开目CAPP培训资料+开目操作手册) 开目CAPP ...
cad四边形展开lisp_快速绘图与展开程序命令集下载-钣金件快速绘图与展开程序CAD插件下载r2.10 免费版-西西软件下载...
钣金件快速绘图与展开程序CAD插件是一款适合板金加工的钣金展开插件,这款插件可以将繁杂的放样工作变得很轻松,任意角度弯头,三通.异径三通.丫形三通.含单双偏心天圆地方,含单双偏心天方地圆,含单双偏心矩 ...
市面上比较好用的钣金展开软件都有哪些？
市面上比较好用的钣金展开软件有以下几种: SolidWorks:SolidWorks 是一款知名的三维设计软件,其中包含了钣金设计和展开模块.它可以根据所选材料和工艺,快速地生成精确的钣金展开图. A ...

CAD钣金展开AutoLisp开发

CAD钣金展开AutoLisp开发相关推荐

最新文章

热门文章