层复制有点问题,烦请各位高手帮忙修改并说明原因,谢谢! 我的邮箱:xiongdc@163.com

xiongdc

(DEFUN C:CF()(SETQ SS(SSGET))
             (if(= ss nil)
             (progn (prompt "\n---*error*选取对象---")
             (setq ss (ssget))))
             (setq s(getint"\n请输入复制方式1)输入层名: (2)选择该层物体: "))
             (if (= S 2 )(progn (while
             (setq LAY (entsel "\n选择该层物体 "))
             (setq LAY (cdr (assoc 8 (entget (car LAY)))))
             (if ( = lay nil)(progn(SETQ LAY(getstring "\n---*error*再一次输入---"))))
             (princ)(COMMAND"COPY" SS "" "0,0"  "0,0" )
             (COMMAND "CHPROP" SS  "" "LA" lay "" "" "")))
             (princ))(if (or(= S 1 ) (= s nil))
             (progn(while(SETQ LAY(GETSTRING"\n层名:_______"))
             (COMMAND"COPY" SS "" "0,0"  "0,0" )
             (COMMAND "CHPROP" SS  "" "LA" lay "" "" ""))))
             (if ( = lay nil)(progn(SETQ LAY(getstring "\n---*error*再一次输入---"))))
             (princ)(command "ucs" "v")
             (command "undo" "end")(PRINC))

xyp1964

原地复制的意义？

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060413
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
7. ■3·在command下，输入(load"xyp_lib.vlx")
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
12. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
13. [url]http://free.ys168.com/?xyp1964[/url]
14. |;
15. (DEFUN C:CF ()
16.   (cmdla0)
17.   (if (null kwd)
18.     (setq kwd "2")
19.   )
20.   (setq kwd (UKWORD 1
21.       "1 2"
22.       "\n请输入复制方式 : 1-输入层名/2-选择该层物体"
23.       kwd
24.      )
25.   )
26.   (cond ((= kwd "1")
27.   (setq STR (USTR 1 "\n输入层名" STR nil))
28.   ss
29.   (ssget (list (cons 8 STR)))
30. )
31. ((= kwd "2")
32.   (setq s1 (car (entsel "\n选择该层物体: "))
33.         la (xyp-get-dxf 8 s1)
34.         ss (ssget (list (cons 8 la)))
35.   )
36. )
37.   )
38.   (if ss
39.     (command "copy" ss "" pause pause)
40.   )
41.   (cmdla1)
42. )
43. [/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060413 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib.vlx") ■2·在每个程序内增加(load"xyp_lib.vlx") ■3·在command下，输入(load"xyp_lib.vlx") ■4·在菜单.mnl中增加(load"xyp_lib.vlx") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] [url]http://free.ys168.com/?xyp1964[/url] |; (DEFUN C:CF ()   (cmdla0)   (if (null kwd)     (setq kwd "2")   )   (setq kwd (UKWORD 1       "1 2"       "\n请输入复制方式 : 1-输入层名/2-选择该层物体"       kwd      )   )   (cond ((= kwd "1")   (setq STR (USTR 1 "\n输入层名" STR nil))   ss   (ssget (list (cons 8 STR))) ) ((= kwd "2")   (setq s1 (car (entsel "\n选择该层物体: "))         la (xyp-get-dxf 8 s1)         ss (ssget (list (cons 8 la)))   ) )   )   (if ss     (command "copy" ss "" pause pause)   )   (cmdla1) ) [/FONT]