forverd 发表于 2020-3-27 16:43:35

把选择集中的图元前置

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


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


start4444 发表于 2020-3-27 19:36:44

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

852456 发表于 2020-3-27 20:56:41

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

e2002 发表于 2020-3-28 13:28:33

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

G〆h 发表于 2020-3-28 14:41:30

本帖最后由 G〆h 于 2020-3-28 14:43 编辑

e2002 发表于 2020-3-28 13:28
这种操作，没有写代码的必要，直接用命令就可以很好的完成吧？
很多程序都是你认为没有必要写的代码构成的。:lol
小程序就是按个人的操作流程和习惯编制的。省时/省力/省工/快捷/高效 要从每一行代码开始！
不断完善、更新、改进、验证........

Kye 发表于 2020-3-28 22:28:55

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

forverd 发表于 2020-3-30 21:21:29

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

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

forverd 发表于 2020-3-30 21:23:01

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

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

forverd 发表于 2020-3-30 21:25:02

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

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

669423907 发表于 2020-3-31 08:46:28

8的后面加一个空格
setq selobj (ssget '((8 . "文字,细虚线,细线,加粗细线,标注" ))))
页: [1] 2
查看完整版本: 把选择集中的图元前置