请教大家，怎么让当前所选图形前置

DCMZ

比如我选中了一条直线，怎么用lisp实现让他前置呢，谢谢大家哈
目前键盘操作是这样的，简下图

donghuidong2003

;;; 命令: DF, DB
;;; 功能: DF 前置所选物体，DB 后置所选物体。
;;; 备注: 施工用较多
*************************************************************************
;;调整显示顺序，前置物体
(defun c:DF(/ ss)(setq ss (ssget)) (command "DRAWORDER" ss "" "f"))
;;调整显示顺序，后置物体
(defun c:DB(/ ss)(setq ss (ssget)) (command "DRAWORDER" ss "" "b"))

牛仔key

(setvar "clayer" "井字梁")                   ; 将'井字梁'层设为当前层
前提是你还要获取你当前所选图元的图层
========================================
不知道你是用什么版本的CAD，我的CAD是自带了这个功能的

zzyong00

DRAWORDER命令

鱼与熊掌

(defun c:de()
(cx-de (ssget))
)
;
cx-de => DRAWORDER命令

SunSpring

1. (defun c:drf ( / entgrp)
   
2.   (prompt "修改显示次序到最前")
   
3.   (if (setq entgrp (ssget))
   
4.     (command ".draworder" entgrp "" "f")
   
5.   )
   
6.   (princ)
   
7. )
   
8. (defun c:drb ( / entgrp)
   
9.   (prompt "修改显示次序到最后")
   
10.   (if (setq entgrp (ssget))
    
11.     (command ".draworder" entgrp "" "b")
    
12.   )
    
13.   (princ)
    
14. )

(defun c:drf ( / entgrp)<br />   (prompt "修改显示次序到最前")<br />   (if (setq entgrp (ssget))<br />     (command ".draworder" entgrp "" "f")<br />   )<br />   (princ)<br /> )<br /> (defun c:drb ( / entgrp)<br />   (prompt "修改显示次序到最后")<br />   (if (setq entgrp (ssget))<br />     (command ".draworder" entgrp "" "b")<br />   )<br />   (princ)<br /> )

DCMZ

SunSpring 发表于 2015-1-16 13:31

十分感谢sama您，我马上试一下

chenbh2

十分感谢SunSpring

此站网友

你操作的对。