CAD异形分层LISP哪位大神有！！！

希望的田野 · 发表于 2019-5-11 15:38

本帖最后由希望的田野于 2019-5-16 14:20 编辑

那位大神能用一个LISP来解决这个问题？
我的意思是D1是原始图，并在D1层。现在要实现分别把它偏移0.5与1.0到 D2与LB-W层并且颜色要随层。还要实现分别把它偏移0.5与2.5到 PPS-W与LP-W层及这两个层的图形要是规则的四边形并且颜色要随层。（注四边形的圆角大小没有要求，四边形的外形尺寸最好是整数）

lenlenq · 发表于 2019-5-16 18:54

试试吧,我为你编了个程序

cad890 · 发表于 2019-5-13 18:09

本帖最后由 cad890 于 2019-5-13 18:30 编辑

拿去吧，试过了，没多大问题，图层要事先建好
(defun c:At()(setq oldLayer (getvar "clayer"));记录原图层
(setq ent (entsel));选取偏移对象
(setq pt (getpoint"偏移方向：") )

(SETVAR "clayer" "D2")
(command "offset" "L" "C" 0.5 ent pt"")

(SETVAR "clayer" "LB-W")
(command "offset" "L" "C" 1.0 ent pt"")
(SETVAR "clayer" oldLayer);恢复原图层
)

希望的田野 · 发表于 2019-5-15 15:33

cad890 发表于 2019-5-13 18:09
拿去吧，试过了，没多大问题，图层要事先建好
(defun c:At()(setq oldLayer (getvar "clayer"));记录原图 ...

你好这个能实现一部分，我想要的是LB_W层要的图形是四边形。

20060510412 · 发表于 2019-5-11 18:34

好复杂，没有看懂……

lenlenq · 发表于 2019-5-11 18:35

做冲孔呀，模板分层。

希望的田野 · 发表于 2019-5-13 07:59

lenlenq;

是的我想像PressCAD哪样一个快捷件把这些每层的特征都一次性做好。

cad890 · 发表于 2019-5-13 18:18

http://bbs.mjtd.com/forum.php?mo ... hlight=%D7%EE%CD%E2
边界可以参考这个，谢谢。

sdls · 发表于 2019-5-13 22:13

直接用PressCAD来分层不是就解决了吗?

xudongchu · 发表于 2019-5-14 07:35

做冲模使用冲模专用外挂都有这个功能的 PressCAD tsaiprss
等

e2002 · 发表于 2019-5-14 10:06

这要求很简单，建议你自己看看AutoLISP帮助文档，学个两天，就能自己写出来了

账号		自动登录	找回密码
密码			注册

[提问] CAD异形分层LISP哪位大神有！！！

本帖子中包含更多资源

本帖子中包含更多资源