yoyoho 发表于 2011-4-15 19:10:13

运行程序后无法正常关闭指令,麻烦高手指点,谢谢!

(defun c:ce (/ el)                              
(setq el (entlast))                              
(princ "\n请选择要的移动实体面<回车退出>: ")      
(command "solidedit" "FACE" "MOVE")               
(while (/= (getvar "cmdnames") "")               
       (if (equal (entlast) el)                  
         (command pause "0,0,0" "@100,0,0")   
         (command "x" "x")       ; 这一列为何起不了作用            
       )                                          
)                                                
(princ)                                          
)                  

;运行程序后无法正常关闭指令,麻烦高手指点,谢谢!

;指令: CE

;请选择要复制的实体边<回车退出>: 找到 2 个面。
;R
;找到 1 个面，移除 1 个面。
;无效的选项关键字。
; 错误: 函数被取消
;输入实体编辑选项 [面(F)/边缘(E)/主体(B)/退回(U)/结束(X)] <结束>:
                                                               

ZZXXQQ 发表于 2011-4-15 20:51:28

本帖最后由 ZZXXQQ 于 2011-4-15 20:52 编辑

;这样试试
(defun c:ce (/ el)
(setq el (entlast))
(princ "\n请选择要的移动实体面<回车退出>: ")
(command "solidedit" "FACE" "MOVE")
(while (/= (getvar "cmdactive") 0)
(if (eq (entlast) el)
   (command pause "0,0,0" "@100,0,0")
   (command "x" "x")
)
)
(princ)
)


yoyoho 发表于 2011-4-15 21:35:23

本帖最后由 yoyoho 于 2011-4-15 21:36 编辑

感謝Z版回覆
測試結果如下:
指令:
CE
请选择要的移动实体面<回车退出>: 找到 1 个面。
找到 1 个面。
找到 1 个面。
找到 2 个面。
R
找到 1 个面，移除 1 个面。
找到 1 个面，移除 1 个面。
无效的选项关键字。
ERROR:函数被取消; 错误: *错误* 功能内部已发生一个错误已拒绝 AutoCAD 变数设定: "osmode" nil
输入实体编辑选项 [面(F)/边缘(E)/主体(B)/退回(U)/结束(X)] <结束>:

(command "x" "x");;没发挥作用,完全退出"solidedit"

yoyoho 发表于 2011-4-17 06:07:17

自己顶一下 !
盼高手帮忙一下! < 谢谢! >

yoyoho 发表于 2011-4-19 11:53:53

自己再顶一下 !
盼高手帮忙一下! < 谢谢! >

wen1235 发表于 2011-4-19 18:25:14

本帖最后由 wen1235 于 2011-4-19 18:43 编辑

(if T nil a b ) '( 0 0 0) '(100 0 0)
看下If 函数吧


(defun c:ce (/ el)                              
(setq el (entlast))                              
(princ "\n请选择要的移动实体面<回车退出>: ")      
(command "solidedit" "FACE" "MOVE")      
(while (/= (getvar "cmdnames") "")               
       (if (equal (entlast) el)
(progn
         (command pause "" (list 0 0)(list 100 0))   
         (command "x" "x")       ; 这一列为何起不了作用   
    )
       )                                          
)                                                
(princ)                                          
)


cad2002

yoyoho 发表于 2011-4-20 17:38:32

感谢wen1235 回覆
可有具体方法可参考,或者如何修正程序呢?
页: [1]
查看完整版本: 运行程序后无法正常关闭指令,麻烦高手指点,谢谢!