CASS7.0、CASS2008破解及CASS9.0 ET199烧狗破解不完善的解决办法

sun881217

zhb236623 发表于 2012-2-27 15:39
源码。。。。。。

源码不公布哈！

zhb236623

sun881217 发表于 2012-2-27 22:13
源码不公布哈！

那我整点图层常用操作的源码，来源网络。

1. ;;;-----显示全部图层--------
   
2. (DEFUN C:qb()
   
3. (command "layer" "on" "*" "")
   
4. (COMMAND "LAYER" "THAW" "*" "")
   
5. (COMMAND "LAYER" "U" "*" "")
   
6. (PRINC)
   
7. );end defun
   
8. 
   
9. ;;;-----关闭所选对象所在图层(复选)--------
   
10. (DEFUN C:dqg ()
    
11. (setvar "cmdecho" 0)
    
12. (prompt"\nSelect entities to turn off:")
    
13. (setq ss (ssget))
    
14. (if (and ss (sslength ss) 0)
    
15. (progn
    
16. (setq ct 0 len (sslength ss) cl (getvar "clayer"))
    
17. (command ".layer")
    
18. (while (< ct len)
    
19. (setq la (cdr (assoc 8 (entget (ssname ss ct)))))
    
20. (if (/= cl la)(command "off" la)
    
21. (progn (prompt "\nThe layer")
    
22. (prompt la)
    
23. (prompt "is CURRENT!")
    
24. ) ;end of progn
    
25. ) ;end of if
    
26. (if (= old nil)(setq OLD la)(setq OLD (strcat OLD "," la)))
    
27. (setq ct (1+ ct))
    
28. ) ;end of while
    
29. (command"")
    
30. ) ;end of progn
    
31. ) ;end of if
    
32. (princ)
    
33. (setvar "cmdecho" 0) (prin1)
    
34. );end defun
    
35. 
    
36. ;;;------------------------关闭除所选对象所在图层外的所有层-------------------------------
    
37. (defun C:dq(/ ES EN EL A)
    
38. (Princ "Selected Entity(s) Layers ISOLate.")
    
39. (setq ES(ssget) A 0 EN "" EL nil FL nil)
    
40. (while (/= EN nil)
    
41. (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
    
42. (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
    
43. (repeat (- A 2)
    
44. (setq EN (cdr (assoc ' 8 (entget (car EL))))
    
45. FL (strcat EN "," FL) EL (cdr EL)) )
    
46. (command "LAYER" "OFF" "*" "Y" "ON" (eval FL) "")
    
47. (princ)
    
48. );end defun
    
49. 
    
50. 
    
51. ;;;----------------------------锁定所选对象所在图层---------------------------------
    
52. (defun C:dqs(/ ES EN EL A)
    
53. (Princ "Selected Entity(s) Layers Locked.")
    
54. (setq ES(ssget) A 0 EN "" EL nil FL nil)
    
55. (while (/= EN nil)
    
56. (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
    
57. (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
    
58. (repeat (- A 2)
    
59. (setq EN (cdr (assoc ' 8 (entget (car EL))))
    
60. FL (strcat EN "," FL) EL (cdr EL)) )
    
61. (command "LAYER" "LO" (eval FL) "")
    
62. (princ)
    
63. );end defun
    

复制代码

sun881217

zhb236623 发表于 2012-2-28 08:27
那我整点图层常用操作的源码，来源网络。

恩恩 不错的哈！

smallsea12

好东西啊！楼主厉害啊！

sun881217

smallsea12 发表于 2012-3-1 20:04
好东西啊！楼主厉害啊！

{:soso_e100:}

dwjb

cass9.1这个功能的确不能使用，谢谢分享，

shxm1122

没什么用处 啊  ！！！

sun881217

shxm1122 发表于 2012-3-12 10:27
没什么用处 啊  ！！！

说明你的没有问题

nlsh

刚刚测试了一下这个图层功能，似乎我的软件没有问题的。

都能够正常操作呢！！！

sun881217

nlsh 发表于 2012-3-23 19:28
刚刚测试了一下这个图层功能，似乎我的软件没有问题的。

都能够正常操作呢！！！

是的，有些的确没有，可能与系统或CAD有关