[求助]用了个别命令使运行中断问题

xhq1954425

在下面程序开头中加了一个　全屏模式　命令(COMMAND "_.CLEANSCREENON")使运行中断，去掉它就正常了，可有办法解决？谢谢！

(defun C:test()
(COMMAND "_.CLEANSCREENON");2007以上版本有的　全屏模式   
(prompt "\n在程序开头用全屏模式，能不能使它接着往下运行，不中断呢？:")
(command "solidedit" "F" "C" pause "" "0,0,0" "0,0,0" "" "");复制面
(command "chprop" (entlast) "" "c" "红" "")
(princ) 
)

淮上

不用pause似乎可行

(defun C:test()
(setq e (car (entsel)))
(COMMAND "_.CLEANSCREENON");2007以上版本有的　全屏模式   
(prompt "\n在程序开头用全屏模式，能不能使它接着往下运行，不中断呢？:")
(command "solidedit" "F" "C" e "" "0,0,0" "0,0,0" "" "");复制面
(command "chprop" (entlast) "" "c" "红" "")
(princ) 
)

xhq1954425

非常感谢淮上的帮助！

这样会出现两个问题：

1.打开文本窗口还是有错

2.用(setq e (car (entsel)))无法选中三维立体上的某一个表面，也没有复制出新的表面

经常看到你对别人的帮助，再次表示谢意！

命令: test
选择对象: _.CLEANSCREENON
命令:
在程序开头用全屏模式，能不能使它接着往下运行，不中断呢？:solidedit
实体编辑自动检查:  SOLIDCHECK=1
输入实体编辑选项 [面(F)/边(E)/体(B)/放弃(U)/退出(X)] <退出>: F
输入面编辑选项
[拉伸(E)/移动(M)/旋转(R)/偏移(O)/倾斜(T)/删除(D)/复制(C)/颜色(L)/材质(A)/放弃(U)/退出(X)] <退出>: C
选择面或 [放弃(U)/删除(R)]:
命令: TEST 未知命令“TEST”。按 F1 查看帮助。

命令: 0,0,0 未知命令“0,0,0”。按 F1 查看帮助。

命令: 0,0,0 未知命令“0,0,0”。按 F1 查看帮助。

命令: TEST 未知命令“TEST”。按 F1 查看帮助。

命令: TEST 未知命令“TEST”。按 F1 查看帮助。

命令: chprop
选择对象:   找到 1 个

cauin

没用过三维的

淮上

;;你测试一下

(defun C:test()
(COMMAND "_.CLEANSCREENON");2007以上版本有的　全屏模式   
(prompt "\n在程序开头用全屏模式，能不能使它接着往下运行，不中断呢？:")
(prompt "\n选择一个面:")
(command "solidedit" "F" "C" )
(while (/= (getvar 'CMDACTIVE) 0)
  (command pause)
)
(command "" "0,0,0" "0,0,0" "" "");复制面
(command "chprop" (entlast) "" "c" "红" "")
(princ) 
)

xhq1954425

太麻烦你了……谢谢！谢谢！

如果在开始是非全屏模式（_.CLEANSCREENOFF）下运行还是不行

如果在已经是全屏模式（_.CLEANSCREENON）下运行是没问题的，

命令: test _.CLEANSCREENON
命令:
在程序开头用全屏模式，能不能使它接着往下运行，不中断呢？:
选择一个面:solidedit
实体编辑自动检查:  SOLIDCHECK=1
输入实体编辑选项 [面(F)/边(E)/体(B)/放弃(U)/退出(X)] <退出>: F
输入面编辑选项
[拉伸(E)/移动(M)/旋转(R)/偏移(O)/倾斜(T)/删除(D)/复制(C)/颜色(L)/材质(A)/放弃(U)/退出(X)] <退出>: C
选择面或 [放弃(U)/删除(R)]: ; 错误: no function definition: COOAMD

选择面或 [放弃(U)/删除(R)]: *取消*

淮上

不好意思command写成COOAMD

淮上

;;下面的思路似乎对了，你自己调试一下

(defun C:test()
(COMMAND "_.CLEANSCREENON")
(prompt "\n选择一个面:")
(vla-SendCommand
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  "solidedit F C "
)
(while (/= (getvar 'CMDACTIVE) 0)
  (vla-SendCommand  doc "\\")
)
(vla-SendCommand  doc " 0,0,0 0,0,0  ");复制面
(command "chprop" (entlast) "" "c" "红" "")
(princ) 
)

xhq1954425

感谢你的热情帮助，献花一朵略表谢意！

程序中有　红色　的部分是失效的，只要输入运行命令，一回车就立刻执行过了(command "chprop" (entlast) "" "c" "红" "")这一句，（因为已经有对象变为红色了）。实在不行就只有在程序中拿掉(COMMAND "_.CLEANSCREENON")这句了，再次感谢你的热情帮助。

(defun C:test()
(COMMAND "_.CLEANSCREENON")
(prompt "\n选择一个面:")
(vla-SendCommand
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  "solidedit F C "
)
(while (/= (getvar 'CMDACTIVE) 0)
  (vla-SendCommand  doc "\\")
)
(vla-SendCommand  doc " 0,0,0 0,0,0  ");复制面
(command "chprop" (entlast) "" "c" "红" "")
(princ) 
)

淮上

(defun C:test()
(COMMAND "_.CLEANSCREENON")
(prompt "\n选择一个面:")
(vla-SendCommand
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  "solidedit F C "
)
(while (/= (getvar 'CMDACTIVE) 0)
  (vla-SendCommand  doc "\\")
)
(vla-SendCommand  doc " 0,0,0 0,0,0  chprop !(entlast) c 红 ")
(princ) 
)