[求助]程式在05正常10不能正常用求解

llyidong

这个程式在低版本2005时无异常；当用在2010版式时则不正常

在图元较多时根本无法将选中的图元的层置于最前面；

试了N久未查到问题

请大家看看是哪里出了问题

附上04版和10版格试样图供测试

 

;;;;;;;;;;;▓图层上浮;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (DEFUN C:tcsf (/ LAY en ss-1)
  (setvar "CMDECHO" 0)
  (setq en(ENTSEL "\n请选择要上浮的像素:"))
  (while (= en nil)
     (IF (= en NIL)
      (SETQ en(ENTSEL "\n请选择要上浮的像素!"))))
  (SETQ LAY (CDR (ASSOC 8 (ENTGET(CAR en)))))
  (setq ss-1 (ssget "x" (list (cons 8 LAY))))
  (command "DRAWORDER" ss-1 "" "f")
  (COMMAND "layer" "s" LAY "")
  (PRINC))

ZZXXQQ

我没有2010。但将程序改了改。你先试试

(defun C:tcsf (/ LAY en ss-1)
 (setvar "CMDECHO" 0)
 (setq en(entsel "\n请选择要上浮的像素 :"))
 (while (= en nil) (setq en(entsel "\n请选择要上浮的像素 :")))
 (setq LAY (cdr(assoc 8 (entget(car en)))))
 (setq ss-1 (ssget "X" (list(cons 8 LAY))))
 (command "._DRAWORDER" ss-1 "" "_F")
 (setvar "CLAYER" LAY)
 (setvar "CMDECHO" 1)
 (princ)
)

 

llyidong

谢谢版主回复！

 

 

我又反复试4台电脑；还是在2010版中无法得到想要的结果，选中图元的图层无法显示在最前面；

在05及10中用原始的DRAWORDER（前置）是有差异的

     05中如果用窗选了多个图层的图元则显示不变；再执行cad原始的DRAWORDER（前置）命令单选图元可执行成功

     10中如果用窗选了多个图层的图元则显示最上的图元有变化既非选取前的图元为最上；再执行cad原始的DRAWORDER（前置）命令单选图元则无法使

         选中的图无上浮.

 

以上现象非常怪异；请有兴趣的坛友试一下看是否能找到解决方案。

ZZXXQQ

给个在10中执行DRAWORDER的命令行显示

llyidong

感谢版主关注！！！！！

 

 

 

 

命令: *取消*
命令: *取消*
命令: *取消*
命令: DRAWORDER
选择对象: 指定对角点: 找到 1 个
选择对象:
输入对象排序选项 [对象上(A)/对象下(U)/最前(F)/最后(B)] <最后>: f
命令:

ZZXXQQ

这个与2004版相同呀。有不同的吗？

llyidong

是的命令相同提示相同

但达不到2004的效果,我是想要回04的效果能将整个图层上置