[求助]：谁能帮忙看看此“反选”命令的冲突错误在那里?

gcb998

(defun c:test ()
  (CMDLA0)
  (princ "\选择")
  (setq ss1 (ssget "X")
ss2 (ssget)
  )
  (command "select" ss1 "r" ss2 "")
  (setq ss (ssget "P"))
  (XYP_LX ss)
  (CMDLA1)
)

为什么出现“Error: null function*Cancel*”
怎么修改?

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (princ "\n选择 : ")
    
18.   (setq        ss1 (ssget "X")
    
19.         ss2 (ssget)
    
20.   )
    
21.   (command "select" ss1 "r" ss2 "")
    
22.   (XYP_LX (ssget "P"))
    
23.   (CMDLA1)
    
24. )
    
25. [/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (princ "\n选择 : ")<br />   (setq        ss1 (ssget "X")<br />         ss2 (ssget)<br />   )<br />   (command "select" ss1 "r" ss2 "")<br />   (XYP_LX (ssget "P"))<br />   (CMDLA1)<br /> )<br /> [/FONT]

gcb998

楼上兄弟，可以给个R14的程序吗，谢谢！

xyp1964

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (princ "\n选择 : ")
   
5.   (setq        ss1 (ssget "X")
   
6.         ss2 (ssget)
   
7.         n -1
   
8.   )
   
9.   (command "select" ss1 "r" ss2 "")
   
10.   (setq ss (ssget "P"))
    
11.   (while (setq s1 (ssname ss (setq n (1+ n))))   
    
12.     (redraw s1 3)
    
13.   )
    
14.   ss
    
15. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (princ "\n选择 : ")<br />   (setq        ss1 (ssget "X")<br />         ss2 (ssget)<br />         n -1<br />   )<br />   (command "select" ss1 "r" ss2 "")<br />   (setq ss (ssget "P"))<br />   (while (setq s1 (ssname ss (setq n (1+ n))))    <br />     (redraw s1 3)<br />   )<br />   ss<br /> )[/FONT]

狂刀

(defun c:xss ()
  (command ".select" "all" "r" (ssget) "")
)

gcb998

来自北京的朋友，谢谢你的程序，非常感谢！
我还有一个小小的问题：
     [LSP]求r14下“选中一段PL线后，关闭线段？” 如下图！

xyp1964

似乎没有“关闭线段”这种功能。

gcb998

所谓关闭线段，就是PE之后选中物体然后输入C（关闭），我想说的就是
可不可  [编一个LSP]   以把它连在一起，先选种后关闭线段,加快程序执行

snoopychen

一段的可以直接用pedit，多个同时的可以如下

(defun c:close()
(setq ss-pl (ssget  (list (cons 0 "LWPOLYLINE") )))
(setq i 0)
(repeat (sslength ss-pl)
(command "pedit" (ssname ss-pl i) "c" "")
(setq i (1+ i))
)
)

xyp1964

闭合多义线：

2. [FONT=courier new](defun c:test ()
   
3.   (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 0))))
   
4.   (command "pedit" "M" ss "" "c" "")
   
5.   (princ)
   
6. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 0))))<br />   (command "pedit" "M" ss "" "c" "")<br />   (princ)<br /> )[/FONT]

gcb998

(defun c:test ()
  (setq ss (ssget '((0 . "LWPOLYLINE") (70 .

0))))
  (command "pedit" "M" ss "" "c" "")
  (princ)
)
上面的程序出现了小小的错误，不知该怎么修改？

xyp1964

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (setq ss (ssget '((0 . "*POLYLINE") (70 . 0))))
   
5.   (if ss
   
6.     (command "pedit" "M" ss "" "c" "")
   
7.   )
   
8.   (princ)
   
9. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (setq ss (ssget '((0 . "*POLYLINE") (70 . 0))))<br />   (if ss<br />     (command "pedit" "M" ss "" "c" "")<br />   )<br />   (princ)<br /> )[/FONT]

gcb998

好像问题相同，你试一下！

xyp1964

最初由 gcb998 发布
[B]好像问题相同，你试一下！ [/B]

无法测试－－没有R14。
可能pedit命令的选项版本发生变化。

Underway

9楼楼主snoopychen 的程序可用
OK for R14