hxb7609 老狼进来!

myloveflyer

你写的这个程序怎么把自己的LISP写到里面啊?不是太清楚!帮忙解决一下!
(DEFUN C:JM (/ cc1 ccI cnn cm)
  (SETVAR "CMDECHO" 0)
  (VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Network\\Recent")
  (SETQ cc1 (VL-REGISTRY-READ "HKEY_CURRENT_USER\\Network\\Recent"))
  (IF
    (EQUAL cc1 "HUANGXIONGBIN");引号里为授权码
     (pbb);运行要加密的程序
     (PROGN
       (SETQ ccI (STRCAT (CHR 77)(CHR 65)(CHR 83)(CHR 84)(CHR 69)(CHR 82)(CHR 67)(CHR 65)(CHR 77)));将授权码译成代码
       (SETQ cnn 3)
       (WHILE (> cnn 0)
         (SETQ cm (GETSTRING T "请输入您的授权码:"))
         (IF
           (EQUAL ccI cm)
            (PROGN (VL-REGISTRY-WRITE
                     "HKEY_CURRENT_USER\\Network\\Recent"
                     ""
                     "HUANGXIONGBIN";写入注册表的授权码
                   )
                   (SETQ cnn 0)
                   (pbb)
            )
            (SETQ cnn (1- cnn))
         )
         (IF (NOT (EQUAL cm ccI))
           (PRINC "SORRY, 请尊重他人劳动成果！")
           (PRINC "谢谢购买！")
         )
       )
     )
  )
  (SETVAR "CMDECHO" 1)
)

myloveflyer

老狼,拿下面这个程序来说吧!你帮忙修改一下吧!还有就是哪个授权号码怎么去算呢?
(defun c:t( / pt1 pt2 pt3 pt4 ss)
(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 ""))        
    )
)
)

hxb7609

你的程序名为"t", 把我程序中"(pbb);运行要加密的程序"的"pbb"改成"t"即可,程序名最好与LISP中的一些指令分开(不要用"t")

(SETQ ccI (STRCAT (CHR 77)(CHR 65)(CHR 83)(CHR 84)(CHR 69)(CHR 82)(CHR 67)(CHR 65)(CHR 77)))是将你自己要用的密码一个个译成ASCII对应的数字如(chr 65)对应"A"

你的程序自己好好检查一下,祝进步