DCMZ 发表于 2015-1-16 11:13:30

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

比如我选中了一条直线，怎么用lisp实现让他前置呢，谢谢大家哈
目前键盘操作是这样的，简下图
http://bbs.mjtd.com/forum.php?mod=image&aid=86670&size=300x300&key=468aed66d3789d71&nocache=yes&type=fixnone

donghuidong2003 发表于 2015-1-17 12:49:39

;;; 命令: 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 发表于 2015-1-16 11:18:21

本帖最后由 牛仔key 于 2015-1-16 11:21 编辑

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

zzyong00 发表于 2015-1-16 11:20:53

DRAWORDER命令

鱼与熊掌 发表于 2015-1-16 12:52:30

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

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

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

DCMZ 发表于 2015-1-16 13:55:20

SunSpring 发表于 2015-1-16 13:31 static/image/common/back.gif


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

chenbh2 发表于 2015-1-16 22:07:23

十分感谢SunSpring

此站网友 发表于 2015-1-17 09:16:35

你操作的对。
页: [1]
查看完整版本: 请教大家，怎么让当前所选图形前置