把选择集中的图元前置

forverd

我想在cad中选择 "文字,细虚线,细线,加粗细线,标注" 这几个图层的所有图元，然后使用draworder命令，把所有图元前置，不知道代码哪里有错误

2. (defun c:ll(/ selobj k n)
   
3. (setq selobj (ssget '((8. "文字,细虚线,细线,加粗细线,标注" ))))
   
4. (command "draworder" selobj "top")
   
5. )(princ)

(defun c:ll(/ selobj k n)<br /> (setq selobj (ssget '((8. "文字,细虚线,细线,加粗细线,标注" ))))<br /> (command "draworder" selobj "top")<br /> )(princ)

start4444

(command "draworder" selobj "" "top")
有top这个选项？不是F 吗

852456

[对象上(A)/对象下(U)/最前(F)/最后(B)] <最后>

e2002

这种操作，没有写代码的必要，直接用命令就可以很好的完成吧？

G〆h

e2002 发表于 2020-3-28 13:28
这种操作，没有写代码的必要，直接用命令就可以很好的完成吧？

很多程序都是你认为没有必要写的代码构成的。
小程序就是按个人的操作流程和习惯编制的。省时/省力/省工/快捷/高效 要从每一行代码开始！
不断完善、更新、改进、验证........

Kye

(8. "文字,细虚线,细线,加粗细线,标注" )这句中 8 后面那个点 .  真晃眼 ,改为(cons 8 "文字,细虚线,细线,加粗细线,标注" )试试

forverd

Kye 发表于 2020-3-28 22:28
(8. "文字,细虚线,细线,加粗细线,标注" )这句中 8 后面那个点 .  真晃眼 ,改为(cons 8 "文字,细虚线,细线, ...

ssget 列表错误
  总是显示这个问题，一直没解决

forverd

e2002 发表于 2020-3-28 13:28
这种操作，没有写代码的必要，直接用命令就可以很好的完成吧？

图层有些多，挨个去找确实浪费时间，而且图纸也多

forverd

start4444 发表于 2020-3-27 19:36
(command "draworder" selobj "" "top")
有top这个选项？不是F 吗

是“”F"  弄错了，但是，语句错误不在这里

669423907

8的后面加一个空格
setq selobj (ssget '((8 . "文字,细虚线,细线,加粗细线,标注" ))))