快速展开图

gahzlly

已于 2024-04-01 13:44:13 修改

阅读量456

点赞数 8

文章标签： windows lisp auto pilot

于 2024-04-01 13:41:34 首次发布

本文链接：https://blog.csdn.net/gahzlly/article/details/137229961

版权

这是一个关于AutoCAD图形处理的LISP程序，包括快速钣金展开和矩形编辑功能。用户可以输入材质、板厚、数量等参数进行钣金展开操作，同时提供了画两点偏移展开的功能。此外，程序还包含矩形单边放大5mm并切除4个角的矩形编辑功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(defun C:B01(/ ot1 ot2 ot3);;
   (prompt "快速钣金展开")
   (setvar "cmdecho" 0);清除内存。
   (setq osm (getvar "osmode"));保存捕捉设置。
   (setvar "osmode" 0);;关闭捕捉。

   (setq ot1 (getdist "\n输入材质:"))
   (setq ot2 (getdist "\n输入板厚:"))
   (setq ot3 (getdist "\n输入数量:"))
   (setq ot4 (getdist "\n选择图形:"))

   (command "EXPLODE" "all" "");;先将图形炸开。


   ;;以下为偏移命令
   (setq a1 (getint "输入折弯边高:"))
   (setq gh (getpoint "\n偏移方向:"))
   (if ((SetQ gg (GetPoint)))
   (command "_.OFFSET" gk "" a1 "" gg "" ""))