没事弄个注册程序和注册机提提兴趣

jxy308

lzg8877

学习下

paulpipi

正是要找的，学习一下，谢谢！

f4800

多谢多谢多谢。。。

qwsss31

很详细很重要的哈。

qwsss31

各位大佬求教一下，比如这个代码怎么加需要注册的流程，测试了几次都是乱码跪谢，

2. (princ "\n程序：统计线段长度 命令：zz")
   
3. (defun C:zz (/ CURVE TLEN SS N SUMLEN)  
   
4. (vl-load-com)  (setq SUMLEN 0)
   
5. (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
   
6. (setq N 0)
   
7. (repeat (sslength SS)  
   
8. (setq CURVE (vlax-ename->vla-object (ssname SS N)))  
   
9. (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))  
   
10. (setq SUMLEN (+ SUMLEN TLEN))  
    
11. (setq N (1+ N))  
    
12. )  
    
13. (princ (strcat "\n共选择 " (itoa (sslength SS)) " 条线段. 线段总长: " (rtos SUMLEN 2 3) "  .")) (princ)  
    
14. )   
    
15. 
    

(princ "\n程序：统计线段长度 命令：zz") <br /> (defun C:zz (/ CURVE TLEN SS N SUMLEN)  <br /> (vl-load-com)  (setq SUMLEN 0) <br /> (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))) <br /> (setq N 0) <br /> (repeat (sslength SS)  <br /> (setq CURVE (vlax-ename->vla-object (ssname SS N)))  <br /> (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))  <br /> (setq SUMLEN (+ SUMLEN TLEN))  <br /> (setq N (1+ N))  <br /> )  <br /> (princ (strcat "\n共选择 " (itoa (sslength SS)) " 条线段. 线段总长: " (rtos SUMLEN 2 3) "  .")) (princ)  <br /> )   <br /> <br />

qwsss31

大佬们知道这个注册成功后怎么删除吗？两次成功已经没办法测试了。。。注册表搜索不到

阿猪蛋

正是要找的，学习一下，谢谢！