明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: he520930

[求助]请教在lisp中加入注册码

  [复制链接]
发表于 2009-2-4 19:59 | 显示全部楼层
很好,我一直想学习下,现在终于有范例了,多谢了!
发表于 2009-2-23 00:45 | 显示全部楼层

提示“请注册”对话框,按“确定”后,命令行就直接显示“命令: 您的申请码为: 347781802
请输入注册码:TLoadMenu”,这时就提示“注册码无效”对话框!!!为什么就不能输入注册码?

发表于 2009-2-23 00:55 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2009-2-27 14:19 | 显示全部楼层

怎么没有人解决问题、、、、、

发表于 2009-3-15 09:18 | 显示全部楼层

学习!! 不过按照9楼的做法,会不会每次运行是都要注册呢? 还是注册一次就ok了?

发表于 2009-6-27 00:00 | 显示全部楼层

我日,我操!!

发表于 2009-7-3 22:17 | 显示全部楼层

不错,我正想要这个

发表于 2009-7-8 15:51 | 显示全部楼层
谢谢!初学者一定要有这样详细的好贴
发表于 2009-7-12 16:41 | 显示全部楼层

如果是很简单的程序,应该共享出来,大家互相学习

水平高了自然会写出要注册才能用的东西。那只是提高自己,不是来拦住别人,拦也是拦不住的。

发表于 2009-7-13 10:59 | 显示全部楼层

我又有个问题请教大侠们,如下网上下的试用
程序如何用?

;;;Copyrignt chengqiang Lin 2008 for mengyang
;;;为梦扬软件添加使用期限
(defun my_a_date ()
(setq mengyang_code_e
(vl-registry-read
    "HKEY_CURRENT_USER\\Software\\MengYang"
    "my_code_date_start"
)
);读出首次安装梦扬软件的日期
  
(if (/= mengyang_code_e nil)
(progn
(setq mengyang_code_e
(vl-registry-read
    "HKEY_CURRENT_USER\\Software\\MengYang"
    "my_code_date_start"
)
);如果已经安装梦扬则读出首次安装梦扬软件的日期
   
(setq OLD_x (atof mengyang_code_e))
(setq OLD (substr mengyang_code_e 3 2))
(setq OLD_1 (atof OLD))
(setq OLD_2 (- 30 OLD_1))
(setq OLD_3 (- (+ (+ 30 OLD_x) 100) (+ OLD_1 OLD_2)));;;+30天试用
(setq date_d_e (getvar "cdate"));;;获取当前日期
(setq date_d_1_e (rtos date_d_e 2 20))
(setq date_d_2_e (substr date_d_1_e 5 4))
(setq date_d_3_e (atof date_d_2_e))
(setq my_da (- OLD_3 date_d_3_e))
(if (> my_da 30.0)(setq my_da (- 30 (- 100 My_da)))(princ))
(if (> my_da 30.0)(vl-registry-delete "HKEY_CURRENT_USER\\Software\\MengYang" "code")(princ))
;;剩余的使用日期
(setq LP1 "\n-->距你使用梦扬软件的最后期限还剩")
(setq LP3 "天!")
(setq LP2 (rtos my_da))
(setq Princ_LP (strcat LP1 LP2 LP3))
(cond
((<= my_da 0)(alert "\n梦扬软件已经到了使用期限,请你重新注册!")(vl-registry-delete "HKEY_CURRENT_USER\\Software\\MengYang" "code"))
((<= my_da 30)(prompt Princ_LP))
((> my_da 30)(alert "\n梦扬软件已经到了使用期限,请你重新注册!")(vl-registry-delete "HKEY_CURRENT_USER\\Software\\MengYang" "code"))
)
)
(princ)
)
)

是直加入我们LSP文件里?还是另存个文件来运行?以下有个程序(注:也是网络上下的)如何加入使用以上程序,请高手指导,谢谢!

(
  defun c:zx()

(prompt "欢迎您用此程序")
    (setvar "cmdecho" 0)
 

;创建新层
 
    (setq oldvar (getvar "OSMODE"))
    (setvar "OSMODE" 512)
    (command "pline")
    (while (= 1 1)
 
       (setq p1 (getpoint "\n请选择第一个点:"))
       
        (setq firstX (car p1))
        (setq firstY (cadr p1))
        (setq p2 (getpoint "\n请选择第二个点:"))
        (if p2
   (progn
           (setq secondX (car p2))
            (setq secondY (cadr p2))
            (setq mX (/ (+ firstX secondX) 2))
            (setq mY (/ (+ firstY secondY) 2))
            (setq mX (rtos mX))
            (setq mY (rtos mY))
            (command (strcat mX "," mY))
    )
   (progn
    (command "") 
   )

        )
 
    )
    (setvar "OSMODE" oldvar)
    (princ)
 
)

我很菜,只有通过不断学习才会进步,希望有好心的高手指导指导,谢谢!

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 20:25 , Processed in 0.221854 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表