[编程申请]：偏移并清除原来的对象。

活塞

各位豪情万丈的大侠，能否编译一个偏移同时清除原对象的lsp来呢？
要能直接加在acadr14.lsp和acad2000doc.lsp中使用。
学生感激涕零！
下面这个附件也许能参考···

活塞

why?  没人理我···

e2002

我写的offset程序不仅可以实现你的要求,而且可以指定offset后的图层和是否双向offset....
已经在我的工具集中了,到下载中心下载吧...8-)

Command: lk-command:Offset
Specify offset distance or [Exit/Remove source/Double side/Layer/Through/1.0000] <1.0000>:

活塞

能为我定制一个，就单纯的————偏移同时清除原对象的lisp吗？
一定要能直接加在acadr14.lsp和acad2000doc.lsp中使用。
感激之情难以言表！

cao2420

下载了，怎么用啊！:9

雄啸

(defun c:fe ( / fd ent pt)
(while (= nil (setq fd (getdist "\n偏移距离:"))))
(while (setq ent (car (entsel)))
(setq pt (getpoint "\n偏移点:"))
(command "_.offset" fd ent pt ^c)
(entdel ent)
))

秋枫

2. 
   
3. [FONT=courier new]
   
4. ;;; ==================================
   
5. ;;; Offset and delete original object.
   
6. ;;; command: offset2
   
7. ;;; Copyright by Qiu Feng, 9/13/02
   
8. ;;; ==================================
   
9. 
   
10. (if (null ai_dcl)
    
11.   (load "ai_utils")
    
12. )
    
13. 
    
14. (defun C:offset2 (/ ent input Offset2_error)
    
15.   (defun Offset2_error (msg)
    
16.     (ai_error msg)                        ; 此处直接调用ai_utils.lsp中的出错处理函数
    
17.   )
    
18.   ;; 设置错误处理
    
19.   (setq        old_error *error*
    
20.         *error*          Offset2_error
    
21.   )
    
22.   (setq old_cmd (getvar "cmdecho"))
    
23.   (setvar "cmdecho" 0)
    
24.   (ai_undo_on)                                ; 使UNDO有效
    
25.   (ai_undo_push)                        ; 开始UNDO GROUP
    
26. 
    
27.   ; 主程序 ----------------------------
    
28.   (initget (+ 2 4) "Through")
    
29.   (setq        input (getdist (strcat "\nSpecify offset distance or [Through] <"
    
30.                                (if (= -1 (getvar "OFFSETDIST"))
    
31.                                  "Through"
    
32.                                  (rtos (getvar "OFFSETDIST"))
    
33.                                )
    
34.                                ">:"
    
35.                        )
    
36.               )
    
37.   )
    
38.   (if (null input)
    
39.     (setq input "")
    
40.   )
    
41.   (while (setq ent (entsel "\nSelect object to offset or <exit>:"))
    
42.     (command "_.offset" input)
    
43.     (setvar "cmdecho" 1)
    
44.     (command ent)
    
45.     (setvar "cmdecho" 0)
    
46.     (command pause "")
    
47.     (entdel (car ent))
    
48.   )
    
49.   ; 主程序结束 ------------------------
    
50.   
    
51.   (ai_undo_pop)                                ; 关闭UNDO GROUP
    
52.   (ai_undo_off)                                ; 恢复UNDO的原来态
    
53.   (setvar "cmdecho" old_cmd)
    
54.   (setq *error* old_err)                ; 恢复默认出错处理函数
    
55.   (princ)
    
56. )
    
57. [/FONT]

<br /> [FONT=courier new]<br /> ;;; ==================================<br /> ;;; Offset and delete original object.<br /> ;;; command: offset2<br /> ;;; Copyright by Qiu Feng, 9/13/02<br /> ;;; ==================================<br /> <br /> (if (null ai_dcl)<br />   (load "ai_utils")<br /> )<br /> <br /> (defun C:offset2 (/ ent input Offset2_error)<br />   (defun Offset2_error (msg)<br />     (ai_error msg)                        ; 此处直接调用ai_utils.lsp中的出错处理函数<br />   )<br />   ;; 设置错误处理<br />   (setq        old_error *error*<br />         *error*          Offset2_error<br />   )<br />   (setq old_cmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (ai_undo_on)                                ; 使UNDO有效<br />   (ai_undo_push)                        ; 开始UNDO GROUP<br /> <br />   ; 主程序 ----------------------------<br />   (initget (+ 2 4) "Through")<br />   (setq        input (getdist (strcat "\nSpecify offset distance or [Through] <"<br />                                (if (= -1 (getvar "OFFSETDIST"))<br />                                  "Through"<br />                                  (rtos (getvar "OFFSETDIST"))<br />                                )<br />                                ">:"<br />                        )<br />               )<br />   )<br />   (if (null input)<br />     (setq input "")<br />   )<br />   (while (setq ent (entsel "\nSelect object to offset or <exit>:"))<br />     (command "_.offset" input)<br />     (setvar "cmdecho" 1)<br />     (command ent)<br />     (setvar "cmdecho" 0)<br />     (command pause "")<br />     (entdel (car ent))<br />   )<br />   ; 主程序结束 ------------------------<br />   <br />   (ai_undo_pop)                                ; 关闭UNDO GROUP<br />   (ai_undo_off)                                ; 恢复UNDO的原来态<br />   (setvar "cmdecho" old_cmd)<br />   (setq *error* old_err)                ; 恢复默认出错处理函数<br />   (princ)<br /> )<br /> [/FONT]

下载见附件

aeo

这么弱智的问题到成了精华
我提了那么多从来没正面回答过.
"怎么把布什杀了?""用枪呀!"  这我也知道,还要你回答,下次我要骂了

XDSoft

最初由 aeo 发布
[B]这么弱智的问题到成了精华
我提了那么多从来没正面回答过.
"怎么把布什杀了?""用枪呀!"  这我也知道,还要你回答,下次我要骂了 [/B]

不明白你的意思，这个帖子交流的很好啊，加精是因为解决了。变于以后大家找到它。

秋枫

最初由 aeo 发布
[B]这么弱智的问题到成了精华
我提了那么多从来没正面回答过.
"怎么把布什杀了?""用枪呀!"  这我也知道,还要你回答,下次我要骂了 [/B]

你的lwpline问题，我没有能力回答。不要发飚好不好。

aeo

我不是发飚
前面好多次了
我知道大家忙,但是我问点问题,是我想了又想,没好方法才提问的
有那么多时间嘻嘻哈哈,早帮我解决了,没时间写,点拨一下就行

活塞

首先谢谢各位倾力相助，写了这么好的程序。但在使用过程中我发现······
选择对象为实体时，命名行提示“该对象无法偏移“。如果再选择一次该实体，它就整个儿消失了！