[兩點截斷]程式需版主修改....

idchris

以下这程序为 选择线段做 [两点截断] 的方式,
程序绝对可行,但是被写入了依附程序需
由另一个程序的配合才能执行
现在……………
希望能版主或各位高手能把这个程序独立出来…….
................................................

2. 
   
3. ;
   
4. (defun c:m_break()
   
5.        (setq brk_chk nil)
   
6.        (break)
   
7.        (princ)
   
8. )
   
9. (defun break(/ bcg brm0 brm1 sle0len sle0)
   
10.    (setvar "cmdecho" 0)
    
11.    (defun eror(s)
    
12.       (princ "\n完毕!")
    
13.       (princ)
    
14.    )
    
15.    (setq bcg *error* *error* eror)
    
16.    (while T
    
17.           (princ "\n/SPACE 返回/ <请选取欲作断线的原体> : ")
    
18.           (initget 1)
    
19.           (setq sle0 (ssget (lay_lock)))
    
20.           (cond ( (= sle0 nil)
    
21.                   (princ "\n/SPACE继续UNDO/ <按任一键返回主选项> !")
    
22.                   (while (= (nth 1 (grread)) 32)
    
23.                          (command "U")
    
24.                   )
    
25.                 )
    
26.                 ( T
    
27.                   (command "undo" "g")
    
28.                   (setq brm0 (getpoint "\n切断的起始点 : "))
    
29.                   (if (= brk_chk nil)
    
30.                       (setq brm1 (getpoint brm0"\n切断的端点 : "))
    
31.                       (setq brm1 brm0)
    
32.                   )
    
33.                   (princ "\n两点断距为 : ")(princ (distance brm0 brm1))
    
34.                   (setq sle0len (sslength sle0))
    
35.                   (setq num 0)
    
36.                   (repeat sle0len
    
37.                           (setq sle0_-1 (cdr (assoc -1 (entget (ssname sle0 num)))))
    
38.                           (command "break" (list sle0_-1 brm0) "f" brm0 brm1)
    
39.                           (setq num (+ num 1))
    
40.                   )
    
41.                   (command "undo" "e")
    
42.                 )
    
43.           )
    
44.    )
    
45. )

<br /> ;<br /> (defun c:m_break()<br />        (setq brk_chk nil)<br />        (break)<br />        (princ)<br /> )<br /> (defun break(/ bcg brm0 brm1 sle0len sle0)<br />    (setvar "cmdecho" 0)<br />    (defun eror(s)<br />       (princ "\n完毕!")<br />       (princ)<br />    )<br />    (setq bcg *error* *error* eror)<br />    (while T<br />           (princ "\n/SPACE 返回/ <请选取欲作断线的原体> : ")<br />           (initget 1)<br />           (setq sle0 (ssget (lay_lock)))<br />           (cond ( (= sle0 nil)<br />                   (princ "\n/SPACE继续UNDO/ <按任一键返回主选项> !")<br />                   (while (= (nth 1 (grread)) 32)<br />                          (command "U")<br />                   )<br />                 )<br />                 ( T<br />                   (command "undo" "g")<br />                   (setq brm0 (getpoint "\n切断的起始点 : "))<br />                   (if (= brk_chk nil)<br />                       (setq brm1 (getpoint brm0"\n切断的端点 : "))<br />                       (setq brm1 brm0)<br />                   )<br />                   (princ "\n两点断距为 : ")(princ (distance brm0 brm1))<br />                   (setq sle0len (sslength sle0))<br />                   (setq num 0)<br />                   (repeat sle0len<br />                           (setq sle0_-1 (cdr (assoc -1 (entget (ssname sle0 num)))))<br />                           (command "break" (list sle0_-1 brm0) "f" brm0 brm1)<br />                           (setq num (+ num 1))<br />                   )<br />                   (command "undo" "e")<br />                 )<br />           )<br />    )<br /> )

............................