waterchen
发表于 2009-2-4 19:59:00
很好，我一直想学习下，现在终于有范例了，多谢了！
neng82
发表于 2009-2-23 00:45:00
<p>提示“请注册”对话框，按“确定”后，命令行就直接显示“命令: 您的申请码为: 347781802<br/>请输入注册码:TLoadMenu”，这时就提示“注册码无效”对话框！！！为什么就不能输入注册码？<!--Element not supported - Type: 8 Name: #comment--></p>
neng82
发表于 2009-2-23 00:55:00
neng82
发表于 2009-2-27 14:19:00
<p>怎么没有人解决问题、、、、、</p>
shine.ks
发表于 2009-3-15 09:18:00
<p>学习!! 不过按照9楼的做法,会不会每次运行是都要注册呢? 还是注册一次就ok了?</p>
neng82
发表于 2009-6-27 00:00:00
<p>我日，我操！！</p>
clh521
发表于 2009-7-3 22:17:00
<p>不错，我正想要这个</p>
zfsaaa
发表于 2009-7-8 15:51:00
谢谢！初学者一定要有这样详细的好贴
yjc
发表于 2009-7-12 16:41:00
<p>如果是很简单的程序，应该共享出来，大家互相学习</p><p>水平高了自然会写出要注册才能用的东西。那只是提高自己，不是来拦住别人，拦也是拦不住的。</p><p></p>
zfsaaa
发表于 2009-7-13 10:59:00
<p>我又有个问题请教大侠们，如下网上下的试用<br/>程序如何用？</p><p>;;;Copyrignt chengqiang Lin 2008 for mengyang<br/>;;;为梦扬软件添加使用期限<br/>(defun my_a_date ()<br/>(setq mengyang_code_e<br/>(vl-registry-read<br/> "HKEY_CURRENT_USER\\Software\\MengYang"<br/> "my_code_date_start"<br/>)<br/>);读出首次安装梦扬软件的日期<br/> <br/>(if (/= mengyang_code_e nil)<br/>(progn<br/>(setq mengyang_code_e<br/>(vl-registry-read<br/> "HKEY_CURRENT_USER\\Software\\MengYang"<br/> "my_code_date_start"<br/>)<br/>);如果已经安装梦扬则读出首次安装梦扬软件的日期<br/> <br/>(setq OLD_x (atof mengyang_code_e))<br/>(setq OLD (substr mengyang_code_e 3 2))<br/>(setq OLD_1 (atof OLD))<br/>(setq OLD_2 (- 30 OLD_1))<br/>(setq OLD_3 (- (+ (+ 30 OLD_x) 100) (+ OLD_1 OLD_2)));;;+30天试用<br/>(setq date_d_e (getvar "cdate"));;;获取当前日期<br/>(setq date_d_1_e (rtos date_d_e 2 20))<br/>(setq date_d_2_e (substr date_d_1_e 5 4))<br/>(setq date_d_3_e (atof date_d_2_e))<br/>(setq my_da (- OLD_3 date_d_3_e))<br/>(if (> my_da 30.0)(setq my_da (- 30 (- 100 My_da)))(princ))<br/>(if (> my_da 30.0)(vl-registry-delete "HKEY_CURRENT_USER\\Software\\MengYang" "code")(princ))<br/>;;剩余的使用日期<br/>(setq LP1 "\n-->距你使用梦扬软件的最后期限还剩")<br/>(setq LP3 "天!")<br/>(setq LP2 (rtos my_da))<br/>(setq Princ_LP (strcat LP1 LP2 LP3))<br/>(cond <br/>((<= my_da 0)(alert "\n梦扬软件已经到了使用期限，请你重新注册!")(vl-registry-delete "HKEY_CURRENT_USER\\Software\\MengYang" "code"))<br/>((<= my_da 30)(prompt Princ_LP))<br/>((> my_da 30)(alert "\n梦扬软件已经到了使用期限，请你重新注册!")(vl-registry-delete "HKEY_CURRENT_USER\\Software\\MengYang" "code"))<br/>)<br/>)<br/>(princ)<br/>)<br/>)<br style="mso-special-character: line-break;"/><br style="mso-special-character: line-break;"/>是直加入我们LSP文件里？还是另存个文件来运行？以下有个程序（注：也是网络上下的）如何加入使用以上程序，请高手指导，谢谢！</p><p>(<br/> defun c:zx()</p><p>(prompt "欢迎您用此程序")<br/> (setvar "cmdecho" 0)<br/> </p><p>;创建新层<br/> <br/> (setq oldvar (getvar "OSMODE"))<br/> (setvar "OSMODE" 512)<br/> (command "pline")<br/> (while (= 1 1)<br/> <br/> (setq p1 (getpoint "\n请选择第一个点："))<br/> <br/> (setq firstX (car p1))<br/> (setq firstY (cadr p1))<br/> (setq p2 (getpoint "\n请选择第二个点："))<br/> (if p2<br/> (progn<br/> (setq secondX (car p2))<br/> (setq secondY (cadr p2))<br/> (setq mX (/ (+ firstX secondX) 2))<br/> (setq mY (/ (+ firstY secondY) 2))<br/> (setq mX (rtos mX))<br/> (setq mY (rtos mY))<br/> (command (strcat mX "," mY))<br/> )<br/> (progn<br/> (command "") <br/> )</p><p> )<br/> <br/> )<br/> (setvar "OSMODE" oldvar)<br/> (princ)<br/> <br/>)</p><p>我很菜，只有通过不断学习才会进步，希望有好心的高手指导指导，谢谢！</p>