留言板
- tranney
- ;;;※hx,hx,调整显示顺序，后置物体(hx1)
(defun c:hx()
(progn
(print "工具 菜单栏 绘图次序 调整显示顺序，后置物体(hx1)")
(setq ss (ssget))
(command "DRAWORDER" ss "" "b")
)
(princ)
)
;;;※hx1,hx1,调整显示顺序，前置物体
(defun c:hx1()
(progn
(print "工具 菜单栏 绘图次序 调整显示顺序，前置物体")
(setq ss (ssget))
(command "DRAWORDER" ss "" "f")
(print " 前置物体成功")
)
(princ)
)
此命令非常不好用，建议 调整为上述代码，
- 金鹅起飞
- tranney大师好！很感谢您分享二合一命令，我对其中的“前置对象和后置对象”这个源码感兴趣，下载后运行了下，只成功了一次，后面就怎么也不能用了。能成功加载，但加载后一运行，就出现下方的提示：
命令: hx ; 错误: no function definition: C:HZWT
我上网查了下英文的意思，是说缺少函数，请大师指点一下。我把我复制您分享的源码粘贴如下：
(setq bbb1 1)
(defun c:hx()
(setq bbb1 (* bbb1 -1))
(if (> bbb1 0) (c:qzwt) (c:hzwt))
(princ)
)
(defun c:qzwt (/ ss)
(print " 调整显示顺序，前置物体")
(setq ss (ssget))
(command "DRAWORDER" ss "" "f")
)
(defun c:hzwt (/ ss)
(print " 调整显示顺序，后置物体")
(setq ss (ssget))
(command "DRAWORDER" ss "" "b")
)
;---------- 显示顺序 切换 结束
请大师指教，怎么解决？谢谢您