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

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

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

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

有这样的功能吗/？？？

支持原创！！

支持共享！！

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

支持原创！！

支持共享！！

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

又学到

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

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

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

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

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

同意楼主的说法，人就是这样。呵呵

账号		自动登录	找回密码
密码			注册