xiongdc 发表于 2006-4-20 21:19:00

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

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

xyp1964 发表于 2006-4-20 23:59:00

原地复制的意义？
(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屏幕
★通用函数下载地址：
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
http://free.ys168.com/?xyp1964
|;
(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)
)
页: [1]
查看完整版本: 层复制有点问题,烦请各位高手帮忙修改并说明原因,谢谢! 我的邮箱:xiongdc@163.com