[求助]希望朋友们帮下忙!
 

[求助]希望朋友们帮下忙!
www.dimcax.com
[求助]希望朋友们帮下忙!
最近做了个注册码和时间限定代码!
出了点问题!
在程序运行中出现问题!
例如:copy为注册模块,copy1为时间代码!
(defun c:jz (/)
(if(copy)
(progn
(copy1)
(progn
.......以下为主程序!
可是运行jz后只是出现距软件还有多长时间,不运行主程序!希望各位帮下忙!
d
来个高人帮下忙吧!
d
(if (條件)
(progn
條件成立時執行
)
(progn
　　條件不成立時執行　
)
)
d
比如下面这个程序!请朋友们帮忙检查一下!
(mycopyright)为注册模块,(my_a_date)为时间限定代码!
(defun c:t( / pt1 pt2 pt3 pt4 ss)
(if (mycopyright)
(progn
(if (my_a_date)
(progn
(princ "\n框选剪切")
(setvar "cmdecho" 0)
(princ "\n当前设置:投影=ucs，边=无")
(princ "选择剪切边...")
(setq ss (ssget))
(command "_.trim")
(if ss (command ss))
(if (wcmatch (getvar "cmdnames") "*trim*") (command ""))
(while (wcmatch (getvar "cmdnames") "*trim*")
(setvar "cmdecho" 0)
(initget 2 "f p e u")
(setq pt1 (getpoint "\n[栏选(f)/投影(p)/边(e)/放弃(u)]:"))
(cond ((= (type pt1) 'str)
(setvar "cmdecho" 1)
(command pt1)
(while (wcmatch (getvar "cmdnames") "*trim*") (command pause))
)
((= (type pt1) 'list)
(if (setq pt2 (getcorner pt1 ))
(progn
(setq pt3 (list (car pt1) (cadr pt2) 0.0)
pt4 (list (car pt2) (cadr pt1) 0.0)
)
(command "f" pt1 pt2 pt3 pt4 "" )
)
(command "")
)
)
(t (command ""))
)
)
)
)
)
)
)
d
没人帮忙啊!
d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
( c:t( pt1 pt2 pt3 pt4 ss)
( ( (mycopyright) (my_a_date))
(
( "\n框选剪切")
( "cmdecho" 0)
( "\n当前设置:投影=ucs，边=无")
( "选择剪切边...")
( ss ())
( "_.trim")
( ss ( ss))
( ( ( "cmdnames") "*trim*") ( ""))
( ( ( "cmdnames") "*trim*")
( "cmdecho" 0)
( 2 "f p e u")
( pt1 ( "\n[栏选(f)/投影(p)/边(e)/放弃(u)]:"))
(
(( ( pt1) 'str)
( "cmdecho" 1)
( pt1)
( ( ( "cmdnames") "*trim*") ( pause))
)
(( ( pt1) 'list)
( ( pt2 ( pt1 ))
(
( pt3 ( ( pt1) ( pt2) 0.0)
pt4 ( ( pt2) ( pt1) 0.0))
( "f" pt1 pt2 pt3 pt4 "" )
)
( "")
)
)
( ( ""))
)
)
))
()
)
踅摸