第一范文网 - 专业文章范例文档资料分享平台

冲压模具快速零件拆分程序

来源:用户分享 时间:2025/6/14 23:23:42 本文由loading 分享 下载这篇文档手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ:xxxxxx 处理(尽可能给您提供完整文档),感谢您的支持与谅解。

;;;;本程序主要是用于CAD软件中,冲压模具零件的快速拆分,程序是按照图层为基础,快速的拆分出模具零件,程序的命令是CMB。欢迎大家使用。 (defun c:cmb (/ ss p1 p2 p3) (princ \ \

(setq p2 (getpoint \ left quarter: \ (setq p3 (getpoint \ Right quarter: \ (setq p1 (getpoint \ Insert point:\ (command \ (command \ (setq ss (ssget \

(list (car p2) (cadr p2)) (list (car p3) (cadr p3)) ) )

(while ss (setq n 0)

(while (>= (sslength ss) 1) (setq ee (ssname ss 0))

(setq la (cdr (assoc 8 (entget ee)))) (setq s (ssget \

(list (car p2) (cadr p2)) (list (car p3) (cadr p3)) ) )

(while s

(setq s1 (ssadd)) (setq c 0)

(while (<= c (- (sslength s) 1)) (setq e (ssname s c))

(if (= la (cdr (assoc 8 (entget e)))) (progn

(ssadd e s1)

(ssdel (handent (cdr (assoc 5 (entget e)))) ss) ) )

(setq c (+ 1 c)) )

(setq s nil) )

(setq sc (- (cadr p3) (cadr p2))) (if (>= n 7)

(setq pt1 (list (+ (car p1) (- (car p3) (car p2))) (+ (cadr p1) (* (+ sc 100) (- n 6))) ) )

(if (< n 7)

(setq pt1 (list (car p1)

(+ (cadr p1) (* (+ sc 100) n)) ) ) ) )

(command \ (command \ (PRINC P2) (setq n (+ n 1)) )

(setq ss nil) )

(princ \ (princ) )

is over!)\

搜索更多关于: 冲压模具快速零件拆分程序 的文档
冲压模具快速零件拆分程序.doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印
本文链接:https://www.diyifanwen.net/c5sevv0fi1o3ibqw7s1xb7s7tu43p3900tqi_1.html(转载请注明文章来源)
热门推荐
Copyright © 2012-2023 第一范文网 版权所有 免责声明 | 联系我们
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:xxxxxx 邮箱:xxxxxx@qq.com
渝ICP备2023013149号
Top