[求助]：请求帮助！！

dabingrain

我在网上下载了一段lisp，经过修改想实现自己需要的供能，可是在编辑过程中有三个问题不能实现：
1、选择的圆中不能实现输入半径再选择，其中：
(setq ss (getreal "输入半径：<1.0>"))
(if (= ss nil) (setq ss 1.0))
  (setq p (ssget '((0 . "circle") (-4 . "=") (40 . ss))))
提示“错误: ssget 列表值错误”，不能解决。
2、此程序只能打断与选择圆相交的线，不能删除圆内实体，希望高手解决。
3、我希望程序在处理过程中不要把处理过程表现出来。
以下是代码：

(terpri)
   (prompt "清理〖圆〗内部线，一窗口搞定，启动命令clear")

(defun c:clear
       ( / p q l m n b center0 radius0 lll pt3 oldosmode ss)
  (COMMAND "UNDO" "be")
  (setq oldosmode (getvar "osmode"))
  (setvar "osmode" 0)
;;;  (setq ss (getreal "输入半径：<1.0>"))
;;;  (if (= ss nil) (setq ss 1.0))
;;;  (prin1 ss)
;;;  
  (prompt "默认圆半径为1.0")
  (setq p (ssget '((0 . "circle") (-4 . "=") (40 . 1.0))));;想用ss代替1.0没有成功
  (setq    l 0
    m 0
    n (sslength p)
  )
  (while (< l n)
    (setq q (ssname p l))
    (setq b (cdr (assoc 0 (entget q))))
    (if    (or (= "ARC" b) (= "CIRCLE" b))
      (progn
    (setq center0 (cdr (assoc 10 (entget q)))
          radius0 (cdr (assoc 40 (entget q)))
          LLL     0.0
    )
   
    (command "_.trim" q "" "f")
  
    (WHILE (< LLL 6.5)
      (SETQ PT3 (POLAR center0 lll (* radius0 0.9)))
      (command pt3)
      (SETQ LLL (+ 0.2 LLL))
    )
   
    (command "" "")
      )
    )
    (setq l (+ 1 l))
  )
  (setvar "osmode" oldosmode)
  (COMMAND "UNDO" "e")
;;;  (command "zoom" "e" )
  (princ)
)

xyp1964

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
7. 1.在acad.lsp中增加(load"xyp_lib")
   
8. 2.在每个程序内增加(load"xyp_lib")
   
9. 3.在command下，输入(load"xyp_lib")
   
10. 4.在菜单.mnl中增加(load"xyp_lib")
    
11. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
13. 
    
14. ;;;圆内物体剪切删除
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setvar "osmode" 0)
    
18.   (setq        no1 (UREAL 7 "" "\n输入半径" no1)
    
19.         SS  (ssget (list '(0 . "CIRCLE") '(-4 . "<") (cons 40 no1)))
    
20.         i   -1
    
21.   )
    
22.   (while (setq S1 (ssname SS (setq i (1+ i))))
    
23.     (setq pt  (dxf 10 (entget S1))
    
24.           rad (dxf 40 (entget S1))
    
25.           l   0.0
    
26.     )
    
27.     (command "_.trim" S1 "" "f")
    
28.     (WHILE (<= l (* pi 2.0))
    
29.       (setq pt0 (POLAR pt l (* rad 0.99)))
    
30.       (command pt0)
    
31.       (setq l (+ 0.1 l))
    
32.     )
    
33.     (command "" "")
    
34.     (setq l 0.0)
    
35.     (command "erase" "wp")
    
36.     (WHILE (<= l (* pi 2.0))
    
37.       (setq pt0 (POLAR pt l (* rad 0.99)))
    
38.       (command pt0)
    
39.       (setq l (+ 0.1 l))
    
40.     )
    
41.     (command "" "")
    
42.   )
    
43.   (CMDLA1)
    
44. )[/FONT]

[FONT=courier new]<br /> (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][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;圆内物体剪切删除<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setvar "osmode" 0)<br />   (setq        no1 (UREAL 7 "" "\n输入半径" no1)<br />         SS  (ssget (list '(0 . "CIRCLE") '(-4 . "<") (cons 40 no1)))<br />         i   -1<br />   )<br />   (while (setq S1 (ssname SS (setq i (1+ i))))<br />     (setq pt  (dxf 10 (entget S1))<br />           rad (dxf 40 (entget S1))<br />           l   0.0<br />     )<br />     (command "_.trim" S1 "" "f")<br />     (WHILE (<= l (* pi 2.0))<br />       (setq pt0 (POLAR pt l (* rad 0.99)))<br />       (command pt0)<br />       (setq l (+ 0.1 l))<br />     )<br />     (command "" "")<br />     (setq l 0.0)<br />     (command "erase" "wp")<br />     (WHILE (<= l (* pi 2.0))<br />       (setq pt0 (POLAR pt l (* rad 0.99)))<br />       (command pt0)<br />       (setq l (+ 0.1 l))<br />     )<br />     (command "" "")<br />   )<br />   (CMDLA1)<br /> )[/FONT]

dabingrain

非常谢谢版主，你的程序能够实现我的目的（有一点瑕疵，就是半径需要修改为直径）。

xyp1964

最初由 dabingrain 发布
[B]非常谢谢版主，你的程序能够实现我的目的（有一点瑕疵，就是半径需要修改为直径）。 [/B]

既然用代码DXF 40，就表示半径。