[LISP函数]：自编的“直线修补”程序

haijiangl

将位于同一直线上的两条线段合并为一条，两条线段之间可以有缺口，用于修补墙线。
command:tt(enter)

aeo

1如果点到第一个线,不点第二个,或两个都不点,或不是line .undo begin就没end了. / 写个*error*
2点到的第一根线要让人知道点的对不对./redraw一下比较好.

haijiangl

最初由 aeo 发布
[B]1如果点到第一个线,不点第二个,或两个都不点,或不是line .undo begin就没end了. / 写个*error*
2点到的第一根线要让人知道点的对不对./redraw一下比较好. [/B]

请教教我,谢谢!

aeo

2. 
   
3. (defun myerr(msg)
   
4. (setq  *error* olderr)
   
5. (redraw line1 4)
   
6. (command"undo""end")
   
7. (princ"\n中断")
   
8. )
   
9. ;;;;;;开始.
   
10. (setq olderr *error* *error* myerr)
    
11. (if(and (setq line1(car(entsel)))
    
12.            (= "LINE"(cdr(assoc 0(entget line1)))) )
    
13. (progn(redraw line1 3)
    
14. (command "undo"....
    
15.     ...............
    
16. 
    
17. (command"undo""end")
    
18. (setq *error* olderr)
    
19. (princ"\nOK")
    
20. )
    

<br /> (defun myerr(msg)<br /> (setq  *error* olderr)<br /> (redraw line1 4)<br /> (command"undo""end")<br /> (princ"\n中断")<br /> )<br /> ;;;;;;开始.<br /> (setq olderr *error* *error* myerr)<br /> (if(and (setq line1(car(entsel)))<br />            (= "LINE"(cdr(assoc 0(entget line1)))) )<br /> (progn(redraw line1 3)<br /> (command "undo"....<br />     ...............<br /> <br /> (command"undo""end")<br /> (setq *error* olderr)<br /> (princ"\nOK")<br /> )<br />

方法有很多.
看看晓东工具箱里的程序,xdrx_begin xdrx_end 就是完成这的.

lcqbaby

不错

tc405003

想用。但不知道命令是什么？后面补的源程序是做什么的