mingvictor 发表于 2007-10-3 13:36:00

HELP ME !关于偏移为当前图层的问题！

本帖最后由 作者 于 2007-10-3 14:03:12 编辑 <br /><br /> <p>各位大侠：</p><p>兄弟在使用CAD遇到下面的情况：比如有一个闭合的四边形（也有可能是其它闭合形状），它本身是图层0层！而当前图层是1层！如何在LISP中实现让这个图形偏移出去（整体闭合图形偏移，距离要有随意性！）是当前图层1层！</p><p>请各位大侠帮忙，这个问题对兄弟日常设计有一定的阻碍！先谢谢了！</p>

zmzk 发表于 2022-12-10 12:04:03

good idea! 收藏了

mingvictor 发表于 2007-10-3 13:38:00

<p>版主在不在啊！请出招啊！</p><p>哎！自己先顶一顶！不要让它沉下去了！</p>

mingvictor 发表于 2007-10-3 13:40:00

<p>大侠！我二十四小时在线等啊！</p>

ZZXXQQ 发表于 2007-10-3 13:58:00

太性急了吧。


;明经 ZZXXQQ 偏移变到当前层
(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(SETQ CL (GETVAR "CLAYER"))
(COMMAND ".UNDO" "BE")
(COMMAND "OFFSET" "T" PAUSE PAUSE "")
(COMMAND "CHPROP" "L" "" "LA" CL "")
(COMMAND ".UNDO" "E")
(SETVAR "CMDECHO" 1)
(PRINC)
)

mingvictor 发表于 2007-10-3 14:10:00

不是意思啊！版主！小弟是性子急了点！

mingvictor 发表于 2007-10-3 14:18:00

谢谢版主！

haiya139 发表于 2008-10-21 10:20:00

我刚好需要这个，和楼主真的是同命相连啊，可惜还看不了555

haiya139 发表于 2008-10-21 10:31:00

对了，版主有没有办法就是把不是当前图层的东西，在运行其他一些命令（如复制，移动等）后，自动变成当前图层？

caoyin 发表于 2008-10-21 11:29:00

<p>命令:<br/>OFFSET<br/>当前设置: 删除源=否&nbsp; 图层=当前&nbsp; OFFSETGAPTYPE=0<br/>指定偏移距离或 [通过(T)/删除(E)/<font color="#3300ff">图层</font>(L)] &lt;通过&gt;:&nbsp; <font color="#ff0000">l</font></p><p>输入偏移对象的图层选项 [<font color="#3300ff">当前</font>(C)/源(S)] &lt;当前&gt;:&nbsp; <font color="#ff0000">c</font></p><p></p><p></p>

haiya139 发表于 2008-10-21 12:45:00

<p><strong><font face="Verdana" color="#61b713">谢谢caoyin了，版主写的东西我看不懂，555</font></strong></p>
页: [1] 2
查看完整版本: HELP ME !关于偏移为当前图层的问题！