[求助]：加面层线的问题？

andyhua5240

CAD2008，在运行加面层命令前，先执行下此代码：
(defun c:55 (/ cm)
(princ "\n*** 偏移对象到源图层 ***")
(princ "\n当前设置: 删除源=是 图层=源 OFFSETGAPTYPE=0")
(setq cm (getvar "cmdecho"))
(setq *error* cd_err)
(setvar "cmdecho" 0)
(setvar "offsetgaptype" 0)
(command ".offset" "e" "y" "l" "s")
(setvar "cmdecho" cm)
(princ)
)

(defun cd_err (s)
(setvar "cmdecho" cm)
(command "_.undo" "_e")
)


会把选择的边界删除掉，这个边界是不希望删除的！
不会把手工点取的边界删除，这个虚显的边界是希望删除的！
请求核实！

Qun

可能是你的出错函数里面“(command "_.undo" "_e")”这句造成的错误！
请不要覆盖理正建筑的出错函数，会有很多问题的。你的程序如果用到出错函数，用完了再还回去。

andyhua5240

用完了，如何还回去？请指教，对LISP不懂？
还有，我的出错函数是cd_err，难道理正的也有这个同名的出错函数？
谢谢！

应该不是我的出错函数的问题，看看命令行的提示吧！08CAD

正在重生成模型。

AutoCAD Express Tools Copyright ?2002-2004 Autodesk, Inc.

AutoCAD 菜单实用程序已加载。
***** CAD2008 常用命令 for andyhua <CMD: H1 H2 H3 H4 for help> 已加载 *****
*** 文字修改大师(dd)Ctt [V11.0 恒易空间 作者:周海兵] 贺岁版 ***
－ 理正建筑（V4.0）－*取消*
输入 UNDO 控制选项 [全部(A)/无(N)/一个(O)/合并(C)] <全部>:
命令: offset
当前设置: 删除源=否  图层=源  OFFSETGAPTYPE=0
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:  e
要在偏移后删除源对象吗？[是(Y)/否(N)] <否>:  y
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:
选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:
命令: rec RECTANGLE
指定第一个角点或 [倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W)]:
指定另一个角点或 [面积(A)/尺寸(D)/旋转(R)]:
命令: offset
当前设置: 删除源=是  图层=源  OFFSETGAPTYPE=0
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:
选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:
指定通过点或 [退出(E)/多个(M)/放弃(U)] <退出>:
选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:
指定通过点或 [退出(E)/多个(M)/放弃(U)] <退出>:
选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:

命令: (_@Ld"tuan")

命令: jmc

面层厚度 <20>:
请选取要加面层的墙线、柱子或搜索边线 <手工取点>:
选择对象:
请在面层一侧的线上点取起始点 <退出>:
下一点[A－弧线] <结束>:
下一点[A－弧线/U－回退] <结束>:
下一点[A－弧线/U－回退/C－闭合] <结束>:
下一点[A－弧线/U－回退/C－闭合] <结束>:
下一点[A－弧线/U－回退/C－闭合] <结束>:

请点出面层的偏移方向[R－倒角/C－切角] <退出>:


主要是我的offset命令设置了删除源对象造成的！如果不设置为删除源对象就没有问题，加面层线命令正常！

命令: offset
当前设置: 删除源=是  图层=源  OFFSETGAPTYPE=0
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:  e
要在偏移后删除源对象吗？[是(Y)/否(N)] <是>:  n

指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:
选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:
指定通过点或 [退出(E)/多个(M)/放弃(U)] <退出>:
选择要偏移的对象，或 [退出(E)/放弃(U)] <退出>:

命令: (_@Ld"tuan")
命令: jmc

面层厚度 <20>:
请选取要加面层的墙线、柱子或搜索边线 <手工取点>:
选择对象:
请在面层一侧的线上点取起始点 <退出>:
下一点[A－弧线] <结束>:
下一点[A－弧线/U－回退] <结束>:
下一点[A－弧线/U－回退/C－闭合] <结束>:
下一点[A－弧线/U－回退/C－闭合] <结束>:
下一点[A－弧线/U－回退/C－闭合] <结束>:
请点出面层的偏移方向[R－倒角/C－切角] <退出>:

理正的加面层线命令是好早就有的命令，应该是在OFFSET命令上的基础上完成的，但是自从CAD2006以后，OFFSET命令得到加强了，就是可以允许用户是否删除偏移的源对象，具体的信息可以看帮助。估计是理正的命令没有考虑到用户会设置里面的E，删除选项？？？

Qun

(defun c:55 (/ cd_err0 cm)
(princ "\n*** 偏移对象到源图层 ***")
(princ "\n当前设置: 删除源=是 图层=源 OFFSETGAPTYPE=0")
(setq cm (getvar "cmdecho"))
(setq cd_err0 *error* *error* cd_err)
(setvar "cmdecho" 0)
(setvar "offsetgaptype" 0)
(command ".offset" "e" "y" "l" "s")
(setvar "cmdecho" cm)
(setq *error* cd_err0)
(princ)
)

(defun cd_err (s)
(setvar "cmdecho" cm)
(command "_.undo" "_e")
)

andyhua5240

应该不是我出错命令的问题，但是我的出错命令我会改的。主要是OFFSET中的新选项E，理正可能没有考虑到。上面的命令行提示，我是用的OFFSET原始命令呀。把删除源对象设置为是，加面层命令就不会删除手工点取的边界，也会删除选择框选择的PL线的边界，请求核实！

Qun

确实是这个问题！相关的程序很多；已经改正，请下载补丁，谢谢！