5956263 发表于 2005-12-28 12:01:00

莱鸟求助：如何在些段程序里使用3次后加提示注册？

(defun c:cl (/ os ce bm ss se la )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (prompt "")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq&nbsp;&nbsp; os (getvar "osmode")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ce (getvar "cmdecho")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bm (getvar "blimpode")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "osmode" 37)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq se (getstring "\n input layer name&lt;any key&gt;/select matching object &lt;enter&gt;")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= se "")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq la (cdr (assoc '8 (entget (car (entsel "\n select an object to match it"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ss (ssget))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "copy" ss "" "@" "@")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "_change" ss "" "p" "la" la "")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq la (getstring "\n enter layer name&gt;"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ss (ssget))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "copy" ss "" "@" "@")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "_change" ss "" "p" "la" la "")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "osmode" os)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "cmdecho" ce)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "blipmode" bm)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ)<BR>)

zctao1966 发表于 2008-11-2 02:33:00

<p>有这样的功能 吗/？？？</p><p>支持原创！！</p><p>支持共享！！</p>

CAD83 发表于 2008-11-17 18:38:00

<p>支持原创！！</p><p>支持共享！！</p>

wenmaokun 发表于 2009-11-10 10:40:00

又学到

waterchen 发表于 2010-1-17 20:25:00

我也想要这样的程序哦.学习!

lisp爱好者 发表于 2011-4-11 11:44:55

自己编的喜欢这个，用别人的程序就不喜欢了

yxl88168 发表于 2011-4-12 18:45:36

同意楼主的说法，人就是这样。呵呵
页: [1]
查看完整版本: 莱鸟求助：如何在些段程序里使用3次后加提示注册？