Creo Elements/Direct软件lisp汇总（不断更新中）

陈浩

本帖最后由 Superman 于 2021-11-2 17:52 编辑

本贴汇总CreoElements/Direct（CoCreate）软件各类lisp，说明如下：

1.按照用途分类为：3D lisp（建模、草绘增强、测量等Modeling环境下使用）和2D lisp（工程图）

2.简单功能描述和实用性指数推荐，方便了解lisp的功能

3.复杂一些的提供使用教程（简单的就不提供教程）

4.此帖会不定时更新新的lisp

5.如没有你想要的lisp可以留言，或有好的lisp，也可以分享给大家

人人为我，我为人人，希望看到更多的OSD用户分享自己的经验和资源，协助其他人解决技术问题

（ps：吐槽一下，从社区的活跃度看，大部分OSD兄弟们只喜欢做一个看客，保持沉默，无人发帖提问，也无意帮助其他人解决问题）

一：3D lisp

1.3D建模增强

（1）3D文字

功能描述：输入英文字母或数字，自动创建高度为10mm的3D字母或数字实体。不支持汉字。这个功能就是将“文本转轮廓”和“拉伸”命令整合一起了。如需要创建3D汉字，也可通过“文本转轮廓”命令创建2D汉字轮廓，再通过拉伸创建3D汉字。

使用教程：https://www.addskills.cn/thread-216-1-1.html

下载lisp：

text_in_3d文字.lsp (763 Bytes, 下载次数: 24)

2020-11-22 10:14 上传

点击文件名下载附件

实用指数：⭐

（2）沉槽

功能描述：圆柱体交接处创建沉槽，有E、F、G、H四种类型可选。

使用教程：https://www.addskills.cn/thread-217-1-1.html

下载Lisp：

沉槽.lsp (17.87 KB, 下载次数: 20)

2020-11-22 10:15 上传

点击文件名下载附件

实用指数：⭐⭐

（3）齿轮

功能描述：输入相应的尺寸参数，可自动生成齿轮，可生成直齿轮、斜齿轮、锥齿轮、行星齿轮。

使用教程：https://www.addskills.cn/thread-220-1-1.html

下载Lisp：

GearDesigner齿轮.lsp (183.77 KB, 下载次数: 54)

2020-11-26 17:02 上传

点击文件名下载附件

实用指数：⭐⭐⭐⭐⭐

（4）弹簧

功能描述：可创建三类弹簧，压缩弹簧、拉伸弹簧、矩形压缩弹簧

使用教程：https://www.addskills.cn/thread-222-1-1.html

下载Lisp：

Spring多种弹簧v18-v20_cn.lsp (25.32 KB, 下载次数: 62)

2020-11-22 10:18 上传

点击文件名下载附件
实用指数：⭐⭐⭐⭐⭐

（5）管件piping

功能描述：可以创建圆形和矩形管件，可创建直线型和弯曲型样式。

使用教程：https://www.addskills.cn/thread-230-1-1.html

下载lisp:

Piping管件.lsp (25.15 KB, 下载次数: 37)

2020-11-22 10:28 上传

点击文件名下载附件

实用指数：⭐

（6）L型材

功能描述：创建标准的L型材，整合“草绘”和“拉伸”命令，一个命令创建标准L型材。

使用教程：使用简单，已翻译为中文界面，不做教程说明。

下载lisp：

L型材_cn.lsp (7.35 KB, 下载次数: 25)

2020-11-22 10:31 上传

点击文件名下载附件

实用指数：⭐

（7）螺丝孔

功能描述：快速创建标准的螺丝孔，M3-M16，沉头、盲孔、通孔三种类型。
特别说明：如临时导入，必须通过打开命令导入，不能通过拖入的方式，否则无法显示。与新版本的Machining相同。

下载lisp：

Screw tool螺丝孔.LSP (6.16 KB, 下载次数: 69)

2020-11-22 10:32 上传

点击文件名下载附件

实用指数：⭐⭐⭐⭐⭐

（8）特征阵列

功能描述：对结构特征做阵列，可圆形、直线、自由阵列。CoCreate没有直接特征阵列的命令，非常推荐的一个命令。

使用教程：https://www.addskills.cn/thread-232-1-1.html

下载lisp：

movepattern特征阵列v1.0.lsp (8.77 KB, 下载次数: 73)

2020-11-22 10:33 上传

点击文件名下载附件

实用指数：⭐⭐⭐⭐⭐

（9）创建圆柱/锥体

功能描述：创建圆柱体和圆锥体

使用教程：使用简单，不做说明

下载lisp：

Cylinder圆柱体.lsp (4.02 KB, 下载次数: 22)

2020-11-22 10:35 上传

点击文件名下载附件

实用指数：⭐

（10）旋转复制叠加

功能描述：对零件或组件进行旋转复制，有共享和复制两种模式。虽然是对零件/组件进行旋转复制的，但配合布尔运算命令，也可用于设计一些特征造型。所以，不仅仅只用于零件/组件。

使用教程：https://www.addskills.cn/thread-235-1-1.html

下载lisp：

螺旋复制叠加阵列.lsp (4.82 KB, 下载次数: 22)

2020-11-22 10:36 上传

点击文件名下载附件

实用指数：⭐⭐⭐

2.工作平面

（1）重心处创建工作平面

功能描述：在零件重心（质心）处创建工作平面，多了一个创建工作平面的方法。

使用教程：

下载lisp：

WP at Centroid.lsp (3.4 KB, 下载次数: 27)

2020-11-22 10:51 上传

点击文件名下载附件

实用指数：⭐⭐⭐⭐

3.2D草绘

（1）2D CAD(dwg/dxf)导入

功能描述：导入2D dwg/dxf档至工作平面，18版开始可以直接通过“打开”命令实现，但对于17版及更早的版本，这个功能特别实用。

使用教程：https://www.addskills.cn/thread-71-1-1.html

下载lisp：

loaddwg v17.0.lsp (5.31 KB, 下载次数: 8)

2020-11-22 10:52 上传

点击文件名下载附件

loaddwg v20.1.lsp (5.33 KB, 下载次数: 3)

2020-11-22 10:52 上传

点击文件名下载附件

实用指数：⭐⭐⭐⭐

（2）2D等分线

功能描述：创建等分线，直接输入需要等分的份数即可。一次创建所有的等分线，很直观。默认的等分线工具一次只能创建一条线。

使用教程：Segments:等分数量，接着点击需等分的直线两个端点，1.Point和2.Point即可。

下载lisp：

C-Line Segments等分线.lsp (1.71 KB, 下载次数: 25)

2020-11-22 11:00 上传

点击文件名下载附件

实用指数：⭐⭐⭐

（3）FlateRotate扁平旋转
功能描述：指定中心点、基准点、角度、数量，沿着中心点和基准点旋转指定的角度，复制相应数量的2D图形。

使用教程：https://www.addskills.cn/thread-241-1-1.html

下载lisp：

FlateRotate扁平旋转.lsp (1.77 KB, 下载次数: 11)

2020-11-22 11:00 上传

点击文件名下载附件

实用指数：⭐⭐⭐

（4）弧形文字

功能描述：沿着指定的圆弧，创建沿圆弧的文字。

使用教程：https://www.addskills.cn/thread-254-1-1.html

下载lisp：

create-text-on-arc.lsp (5.47 KB, 下载次数: 24)

2020-11-22 11:01 上传

点击文件名下载附件

实用指数：⭐⭐⭐

（5）正多边形

功能描述：创建正多边形，此功能在新版本中已增加，适合17版等老版本用户使用。

使用教程：https://www.addskills.cn/thread-254-1-1.html

下载lisp：

polygon.lsp (4.52 KB, 下载次数: 6)

2020-11-22 11:04 上传

点击文件名下载附件

实用指数：⭐⭐⭐

4.保存

（1）20.1/20.0/19.0/18.1高级版保存17及以下低版本

功能描述：高版本保存低版本，软件默认可以向下保存1个版本，此lisp可以保存v13-v19，几乎所有的版本都可以保存
使用教程：https://www.addskills.cn/thread-342-1-1.html

下载lisp：

previous_save保存低版本.lsp (6.94 KB, 下载次数: 36)

2020-11-22 11:06 上传

点击文件名下载附件

实用指数：⭐⭐⭐⭐⭐

（2）保存PKG+JPG缩略图

功能描述：同时保存pkg+jpg缩略图，通过jpg缩略图，快速分辨是什么零件

使用教程：https://www.addskills.cn/thread-342-1-1.html

下载lisp：

save-all-at-top-pkg-plus-picture.lsp (4.56 KB, 下载次数: 17)

2020-11-22 11:07 上传

点击文件名下载附件

save-all-at-top-pkg-plus-picture-v20.3.lsp (4.58 KB, 下载次数: 10)

2020-11-22 11:08 上传

点击文件名下载附件

实用指数： ⭐⭐⭐

5.测量

（1）标记边长小于或等于特定长度的边

功能描述：输入的数值，标记边长小于或等于该数值的边

使用教程：https://www.addskills.cn/thread-350-1-1.html

下载lisp：

length filter_en.lsp (1.89 KB, 下载次数: 14)

2020-11-22 16:10 上传

点击文件名下载附件

实用指数：⭐⭐

（2）测量3D边缘角度

功能描述：选择参考边，点击任意一条边，即可测量两条边之间的夹角

使用教程：https://www.addskills.cn/thread-350-1-1.html

下载lisp：

Measure angle_en.lsp (1.07 KB, 下载次数: 5)

2020-11-22 16:10 上传

点击文件名下载附件

实用指数：⭐⭐

（3）测量零件外形尺寸

功能描述：选择零件，自动显示零件的长宽高外形尺寸

使用教程：https://www.addskills.cn/thread-350-1-1.html

下载lisp：

MaxVol外形轮廓大小测量.lsp (624 Bytes, 下载次数: 49)

2020-11-22 16:10 上传

点击文件名下载附件

实用指数：⭐⭐⭐⭐⭐

6.系统属性

(1)3D随机颜色

功能描述：零件或装配体，自动随机改变颜色

使用教程：

下载lisp：

random color_simpchinesev17.lsp (4.91 KB, 下载次数: 29)

2020-11-22 16:11 上传

点击文件名下载附件

random color_simpchinese v20.1 .lsp (4.59 KB, 下载次数: 43)

2020-11-22 16:12 上传

点击文件名下载附件

实用指数：⭐⭐⭐⭐⭐

(2)等级透明度

功能描述：零件或装配体，按照选择的透明度显示。

使用教程：

下载lisp：

Transparency_en.lsp (1.05 KB, 下载次数: 19)

2020-11-22 16:12 上传

点击文件名下载附件

实用指数：⭐⭐⭐

(3)分配密度颜色重量

功能描述：设置零件的材料、密度、颜色、透明度，在一个命令里完成。

使用教程：

下载lisp：

Assign properties.lsp (30.44 KB, 下载次数: 59)

倪1833 · 发表于 2020-12-9 16:01:55

谢谢楼主分享

Superman · 发表于 2020-12-9 16:23:15

倪1833 发表于 2020-12-9 16:01
谢谢楼主分享

多多分享OSD软件的技术经验，有问题，可以在社区发帖提问

倪1833 · 发表于 2020-12-9 16:51:40

Superman 发表于 2020-12-9 16:23
多多分享OSD软件的技术经验，有问题，可以在社区发帖提问

我们公司有些lsp文件，怎么把他们移植到家里，还有些是2d的

Superman · 发表于 2020-12-9 17:06:46

倪1833 发表于 2020-12-9 16:51
我们公司有些lsp文件，怎么把他们移植到家里，还有些是2d的

这个看起来不像是独立的lisp，这种我也不确定能否移植。或者是有加密保护的，这种就无法移植了。帖子里的这种独立lisp可以随意导入任何CoCreate软件

倪1833 · 发表于 2020-12-11 12:43:44

有个在osd.de上下载的lsp文件（anslist_invert.lsp），是转换反向隐藏/显示零件的，为什么在17版本里可以加载，在19版本不能加载呢？
这个对应我之前上传的图片的按钮是 "invert structurelist".
请指点一下，谢谢！

//////////////////////////////////////////////////////
(in-package :custom)
(use-package :OLI)

;;--------------------------------------------------------------------------*

(sd-defdialog 'dc4-ansichtsliste-invertieren-dialog
:dialog-title "Invertiere Ansichtsliste"
:toolbox-button t
;;:dialog-control :sequential
:variables
  '(
)
:local-functions
  '(
(invert-action ()
   (let (sichtblist sichtb)
(setf sichtblist (sd-inq-vp-drawlist-objects (oli::sd-inq-current-vp)))
(uic_draw_all (oli::sd-inq-current-vp))
   (dolist (sichtb sichtblist)
   (sd-call-cmds (remove_from_vp_drawlist (oli::sd-inq-current-vp) :with-wp sichtb))
   );;dolist
   );;let
)
)
:ok-action
'(sd-call-cmds (invert-action))
:help-action '()
)
///////////////////////////////////////////

Superman · 发表于 2020-12-11 13:49:09

本帖最后由 Superman 于 2020-12-11 13:50 编辑

倪1833 发表于 2020-12-11 12:43
有个在osd.de上下载的lsp文件（anslist_invert.lsp），是转换反向隐藏/显示零件的，为什么在17版本里可以 ...

将17版lisp原档上传一下，我测试一下。另外这个lisp的功能是显示和隐藏零件吗？

倪1833 · 发表于 2020-12-11 13:53:56

是的，是反向显示隐藏，把显示的隐藏，把隐藏的显示吧。
我公司的的那个是直接按那个钮就行了，它这个加了个对话框。

Superman · 发表于 2020-12-11 14:24:13

倪1833 发表于 2020-12-11 13:53
是的，是反向显示隐藏，把显示的隐藏，把隐藏的显示吧。
我公司的的那个是直接按那个钮就行了，它这个加了 ...

我这边20.1版测试没有问题，正常19.0版本也是可以的

倪1833 · 发表于 2020-12-11 14:27:48

好的，我回家试试

图文精华

Creo Elements/Direct软件lisp汇总（不断更新中）

点评

已有(50)人评论