[编程申请]：申请帮忙编一个前置、后置程序

njyulei

申请帮忙编一个前置、后置程序,就是把所选物体所在层的全部东西前置或者后置。谢谢！谢谢！谢谢！谢谢！

xgwl

cad本身的前置或者后置都可以用啊! 用一下图层隔离,再前置或者后置一下! 不知你什么情况下频繁的用前置或者后置!

njyulei

有大量的图件，而且每个图件都有很多图层，开关和隔离图层很慢，如果斑竹能帮忙编一个选择一个物体就能把物体所在图层的所有物体就自动前置和后置的程序，我的工作就方便多了，谢谢斑竹。

xgwl

呵呵!我刚学lisp 没多少天, 赶鸭子上架, 费尽心思,搞了一个!

2. 
   
3. ;;;;;;;;;;
   
4. (defun c:order(/ lay en_data lay_name s ordertype)
   
5.            (setvar "CMDECHO" 0)
   
6.            (setq lay (entsel "\n选择实体:"))
   
7.            (setq en_data (entget (car lay)))
   
8.            (setq lay_name (cdr (assoc 8 en_data)))
   
9.            (setq s (ssget "X" (list (cons 8 lay_name))))
   
10.                       (initget "A B")
    
11.            (setq ordertype (getkword "\nA-前置,B-后置,< A > : "))
    
12.        (if (null ordertype) (setq ordertype "A"))
    
13.            (cond ((= ordertype "A") (command "draworder"  s "" "f"))
    
14.                      ((= ordertype "B") (command "draworder"  s "" "b"))
    
15.    )   
    
16.    (princ)
    
17. )

<br /> ;;;;;;;;;;<br /> (defun c:order(/ lay en_data lay_name s ordertype)<br />            (setvar "CMDECHO" 0)<br />            (setq lay (entsel "\n选择实体:"))<br />            (setq en_data (entget (car lay)))<br />            (setq lay_name (cdr (assoc 8 en_data)))<br />            (setq s (ssget "X" (list (cons 8 lay_name))))<br />                       (initget "A B")<br />            (setq ordertype (getkword "\nA-前置,B-后置,< A > : "))<br />        (if (null ordertype) (setq ordertype "A"))<br />            (cond ((= ordertype "A") (command "draworder"  s "" "f"))<br />                      ((= ordertype "B") (command "draworder"  s "" "b"))<br />    )   <br />    (princ)<br /> )

eachy

提示这样写就可以使用右键快捷菜单了

1. 
   
2. (getkword "\n[A -前置/B -后置]< A >: ")

复制代码

梦断江南

因为只有两个选项+默认，所以也可这样
[php]
...
(setq s (ssget "X" (list (cons 8 lay_name))))
                      (initget "A B  ")
           (setq ordertype (getkword "\nA-前置,B-后置,< A > : "))
           (if (= ordertype "B") (command "draworder"  s "" "b")(command "draworder"  s "" "f"))   
...
[/php]

eachy

还有用 Cond  时最后加 T 选项或者 仅有 (T) 比较安全。

njyulei

谢谢各位大哥们了

它山之石

　　1、写这种程序的目的就是加快制图速度，所以我没用“前置”“后置”选项。而是直接定义了两个程序。但为了防止误选，增加了个确认的选项。并统计了该图层上有多少个实体。
　　2、这个程序还有个问题，就是当图层上实体较多时，速度慢，另外为了看到后置的效果要“REGEN”，也会大大影响速度。我看到XDAPI说用ARX会快得多，抽时间再改进一下这个程序。
　　3、另外有时无法后置，用CAD的命令也不行（R14）。除非把整个图做个外部块，再打开又可以了，不知何故。
　　4、加载后用“CB”命令，这是我中英结合的产物。“Ceng　Back”的简写，意思是“层后”，也就是把所选图层上的实体置于其它实体之后。由于这两个字母靠得近，又都在左手位。“图层前置”当然就是“CF”了，也希望我这招对大家设置命令快捷键有帮助。
　　5、我这招主要是用在使柱子、剪力墙的阴影填充置后，露出轴线、外轮廓线、尺寸标注等其它实体。
　　6、本想收点钱的，但看到斑主那么慷慨，只好免费提供给大家，然后找斑主要钱了。