[求助]：麻烦看下面语句

ago9999

2. 
   
3. (defun c:-1 (/ n m bjv nbjv bjvn bjvl jv mjv jvm jvl) ; 相贯线切割
   
4.   (prompt "请选择编辑实体:")
   
5.   (setq bjv (ssget))
   
6.   (prompt "请选择相贯实体:")
   
7.   (setq jv (ssget))
   
8.   (setq nbjv (sslength bjv))
   
9.   (setq mjv (sslength jv))
   
10.   (setvar "cmdecho" 0)                       ; 关闭命令提示
    
11.   (command "undo" "be")                       ; 定义返回点
    
12.   (setq n 0)                               ; 定义N初始值
    
13.   (while (< n nbjv)                       ; 定义循环
    
14.     (setq bjvn (ssname bjv n))
    
15.     (setq n (1+ n))
    
16.     (setq m 0)                               ; 定义M初始值
    
17.     (cond
    
18.       ((= (cdr (assoc '0 (entget bjvn))) "3DSOLID") ; 判断是否实体
    
19.         (while (< m mjv)               ; 定义循环
    
20.           (setq jvm (ssname jv m))
    
21.           (setq m (1+ m))
    
22.           (cond
    
23.             ((= (cdr (assoc '0 (entget jvm))) "3DSOLID") ; 判断是否实体
    
24.               (command "copy" jvm "" "0,0,0" "0,0,0")
    
25.               (setq jvml (ssget "l"))
    
26.               (command "subtract" bjvn "" jvml "")
    
27.               (command "solidedit" "body" "separate" bjvn "" "") ;
    
28.               (command "ERASE" bjvn "")
    
29. 
    
30.               (setq bjvn (ssget "l"))
    
31.             )
    
32.           )
    
33.         )
    
34.       )
    
35.     )
    
36.   )
    
37.   (command "undo" "e")                       ; 定义返点
    
38.   (setvar "cmdecho" 1)                       ; 打开命令提示
    
39. 
    
40. )
    
41. 
    

<br /> (defun c:-1 (/ n m bjv nbjv bjvn bjvl jv mjv jvm jvl) ; 相贯线切割<br />   (prompt "请选择编辑实体:")<br />   (setq bjv (ssget))<br />   (prompt "请选择相贯实体:")<br />   (setq jv (ssget))<br />   (setq nbjv (sslength bjv))<br />   (setq mjv (sslength jv))<br />   (setvar "cmdecho" 0)                       ; 关闭命令提示<br />   (command "undo" "be")                       ; 定义返回点<br />   (setq n 0)                               ; 定义N初始值<br />   (while (< n nbjv)                       ; 定义循环<br />     (setq bjvn (ssname bjv n))<br />     (setq n (1+ n))<br />     (setq m 0)                               ; 定义M初始值<br />     (cond<br />       ((= (cdr (assoc '0 (entget bjvn))) "3DSOLID") ; 判断是否实体<br />         (while (< m mjv)               ; 定义循环<br />           (setq jvm (ssname jv m))<br />           (setq m (1+ m))<br />           (cond<br />             ((= (cdr (assoc '0 (entget jvm))) "3DSOLID") ; 判断是否实体<br />               (command "copy" jvm "" "0,0,0" "0,0,0")<br />               (setq jvml (ssget "l"))<br />               (command "subtract" bjvn "" jvml "")<br />               (command "solidedit" "body" "separate" bjvn "" "") ;<br />               (command "ERASE" bjvn "")<br /> <br />               (setq bjvn (ssget "l"))<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (command "undo" "e")                       ; 定义返点<br />   (setvar "cmdecho" 1)                       ; 打开命令提示<br /> <br /> )<br /> <br />

在这里我遇到一个问题，最后删除的有时候出错，原因生成对象序列排序，我新手望点解。

XDSoft

最初由 ago9999 发布
[B](defun c:-1 (/ n m bjv nbjv bjvn bjvl jv mjv jvm jvl) ; 相贯线切割
(prompt "请选择编辑实体:")
(setq bjv (ssget))
(prompt "请选择相贯实体:")
(setq jv (ssget))
(setq nbjv (sslength bjv))
(se... [/B]

出错现象是什么，给大家说说。

原因生成对象序列排序，这句话怎么理解？

柔柔

(setq bjvn (ssget "l"))
可能这句出了问题。照上面(setq bjvn (ssname bjv n)) 应该是按编号来定的，last 是最后加入的对象，“原因生成对象序列排序”是不是指这个？ACAD的对象排序是按绘图（包括编辑）加入的先后，不是对象选择的先后。不过我对该程序没仔细看，不一定对。

ago9999

柔柔基本说对
这个是管切相关线，方法可能不是很好，如果我对投影了解多一些我可以用其它的办法来避免上面产生的现象。
上面的结构其实就是复制一个-对象，然后拿被减对象-去一个，生成一个双实体，然后分割开，再删除去一部分，可我难以判断哪个是删除对象。本来想用体积来判断（因为我们大多是保留体积大的一部分），可很多实体体积读不出来，只好用这个馊主义了。
其实我还有个-2，在-1不行的时候，一般-2就可以。可总觉得不是很理想。
为了方便理解这个东西，我可以先把我画管的代码写上，你们建立些空间管来试下，看有没其它更理想的结构。
对了就是不知道分割后实体的排序规则。