如何让LISP命令连贯起来？

xskfq

比我我有2个支持框选的命令，我想用一个命令一次连贯起来实现，能做到吗？？

-------------------------------------------------
例子

(defun fun1 ((command "_explode" (ssget  ) "")) (princ "\n Fun1...") (getpoint))
(defun fun2 ((command "erase" (ssget  ) "")) (princ "\n Fun2...") (getpoint))

(defun c:cy ()
    (and
      (fun1)
      (fun2)
      (cy)
    )
)

好像不行，错在哪里？
哪位高手指点下怎么改，谢谢！

xyp1964

函数格式有误

2. (defun fun1 ()
   
3.   (command "_explode" (ssget))
   
4.   (princ "\n Fun1...")
   
5.   (getpoint "\np1: ")
   
6.   (princ p1)
   
7. )
   
8. (defun fun2 ()
   
9.   (command "erase" (ssget) "")
   
10.   (princ "\n Fun2...")
    
11.   (getpoint "\np2: ")
    
12.   (princ p2)
    
13. )
    
14. (defun c:tt ()
    
15.   (fun1)
    
16.   (fun2)
    
17.   (princ)
    
18. )

(defun fun1 ()<br />   (command "_explode" (ssget))<br />   (princ "\n Fun1...")<br />   (getpoint "\np1: ")<br />   (princ p1)<br /> )<br /> (defun fun2 ()<br />   (command "erase" (ssget) "")<br />   (princ "\n Fun2...")<br />   (getpoint "\np2: ")<br />   (princ p2)<br /> )<br /> (defun c:tt ()<br />   (fun1)<br />   (fun2)<br />   (princ)<br /> )

xskfq

xyp1964 发表于 2014-1-30 08:35
函数格式有误

赞一个。谢谢，，新年快乐！！

xskfq

xyp1964 发表于 2014-1-30 08:35
函数格式有误

现在需要一次命令+2次框选，可否优化为只要一次命令+1次框选？

xskfq

去掉getpoint也可以用，getpoint有什么用处？
两个程序有什么不同？？？

---------------------------------------------------
(defun fun1 ()
  (command "_explode" (ssget))
  (princ "\n Fun1...")
  (princ p1)
)
(defun fun2 ()
  (command "erase" (ssget) "")
  (princ "\n Fun2...")
  (princ p2)
)
(defun c:tt ()
  (fun1)
  (fun2)
  (princ)
)

ZZXXQQ

2. (defun fun1 ()
   
3. (if (setq ss (ssget)) (progn
   
4.   (setvar "QAFLAGS" 1)
   
5.   (command "_explode" ss "")
   
6.   (setvar "QAFLAGS" 0)
   
7.   (princ "\n Fun1...")
   
8. ))
   
9. (princ)
   
10. )
    
11. (defun fun2 ()
    
12. (if (or (setq ss (ssget "P")) (setq ss (ssget))) (progn
    
13.   (command "erase" ss "")
    
14.   (princ "\n Fun2...")
    
15. ))
    
16. (princ)
    
17. )
    
18. 
    
19. (defun c:cy ()
    
20. (fun1)
    
21. (fun2)
    
22. (princ)
    
23. )
    

(defun fun1 ()<br /> (if (setq ss (ssget)) (progn<br />   (setvar "QAFLAGS" 1)<br />   (command "_explode" ss "")<br />   (setvar "QAFLAGS" 0)<br />   (princ "\n Fun1...")<br /> ))<br /> (princ)<br /> )<br /> (defun fun2 ()<br /> (if (or (setq ss (ssget "P")) (setq ss (ssget))) (progn<br />   (command "erase" ss "")<br />   (princ "\n Fun2...")<br /> ))<br /> (princ)<br /> )<br /> <br /> (defun c:cy ()<br /> (fun1)<br /> (fun2)<br /> (princ)<br /> )<br />

zmzk

楼主你好，我有个打断的程序，想加入你们的程序里的第二段里，怎么加？你们的程序现在的第二段是删除，我想把它变成把所有物体打断的程序，如何加里边去？

2. ;;==========================================
   
3. ;;        Break all objects selected        
   
4. ;;==========================================
   
5. (defun c:breakall (/ cmd ss)
   
6. 
   
7.   (command ".undo" "begin")
   
8.   (setq cmd (getvar "CMDECHO"))
   
9.   (setvar "CMDECHO" 0)
   
10. 
    
11.   ;;  get objects to break
    
12.   (prompt "\nSelect All objects to break & press enter: ")
    
13.   (if (setq ss (ssget '((0 . "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE"))))
    
14.      (Break_with ss ss nil) ; ss2break ss2breakwith (flag nil = not to break with self)
    
15.   )
    
16. 
    
17.   (setvar "CMDECHO" cmd)
    
18.   (command ".undo" "end")
    
19.   (princ)
    
20. )

;;==========================================<br /> ;;        Break all objects selected        <br /> ;;==========================================<br /> (defun c:breakall (/ cmd ss)<br /> <br />   (command ".undo" "begin")<br />   (setq cmd (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br /> <br />   ;;  get objects to break<br />   (prompt "\nSelect All objects to break & press enter: ")<br />   (if (setq ss (ssget '((0 . "LINE,ARC,SPLINE,LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE"))))<br />      (Break_with ss ss nil) ; ss2break ss2breakwith (flag nil = not to break with self)<br />   )<br /> <br />   (setvar "CMDECHO" cmd)<br />   (command ".undo" "end")<br />   (princ)<br /> )

香远益清

（defun c: cy(）
  (setq pt (ssget (getpoint)))
(command "_explode" pt)
(command "erase" pt)
(princ)
)