[试用]：加密测试

ll_j

今天晚上，忙里偷闲，写了一段小程序，可以蒙蒙初学者。
使用时注意，我有出现致命错误的情况。

2. 
   
3. ;;;加密测试 by LL_J
   
4. 
   
5. (defun c:lk (/ ss count entlist ent blk)  ;Lock
   
6.   (setq ss (ssget "X"))
   
7.   (entmake
   
8.     (list '(0 . "BLOCK") '(70 . 1) '(10 0 0 0) (cons 2 "*U"))
   
9.   )
   
10.   (setq count 0)
    
11.   (repeat (sslength ss)
    
12.     (setq entlist (entget (setq ent (ssname ss count))))
    
13.     (setq count (1+ count))
    
14.     (entmake entlist)
    
15.   )
    
16.   (setq count 0)
    
17.   (repeat (sslength ss)
    
18.     (setq ent (ssname ss count))
    
19.     (setq count (1+ count))
    
20.     (entdel ent)
    
21.   )
    
22.   (setq blk (entmake '((0 . "ENDBLK"))))
    
23.   (if blk
    
24.     (entmakex
    
25.       (list '(0 . "INSERT")
    
26.             (cons 2 blk)
    
27.             '(100 . "AcDbMinsertBlock")
    
28.             '(10 0.0 0.0 0.0)
    
29.             '(41 . 1.0)
    
30.             '(42 . 1.0)
    
31.             '(43 . 1.0)
    
32.             '(50 . 0.0)
    
33.             '(70 . 0)
    
34.             '(71 . 2)
    
35.             '(44 . 0.0)
    
36.             '(45 . 0.0)
    
37.       )
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )
    
42. 
    
43. (defun c:unlk (/ en ent)     ;Unlock
    
44.   (setq en (entsel "\nSelect Object to Unlock:"))
    
45.   (if en
    
46.     (if        (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))
    
47.            "INSERT"
    
48.         )
    
49.       (progn
    
50.         (setq ent (entmakex
    
51.                     (list '(0 . "INSERT")
    
52.                           (assoc 2 ent)
    
53.                           '(10 0.0 0.0 0.0)
    
54.                     )
    
55.                   )
    
56.         )
    
57.         (command "_.explode" (entlast))
    
58.         (entdel en)
    
59.       )
    
60.     )
    
61.   )
    
62.   (princ)
    
63. )
    

<br /> ;;;加密测试 by LL_J<br /> <br /> (defun c:lk (/ ss count entlist ent blk)  ;Lock<br />   (setq ss (ssget "X"))<br />   (entmake<br />     (list '(0 . "BLOCK") '(70 . 1) '(10 0 0 0) (cons 2 "*U"))<br />   )<br />   (setq count 0)<br />   (repeat (sslength ss)<br />     (setq entlist (entget (setq ent (ssname ss count))))<br />     (setq count (1+ count))<br />     (entmake entlist)<br />   )<br />   (setq count 0)<br />   (repeat (sslength ss)<br />     (setq ent (ssname ss count))<br />     (setq count (1+ count))<br />     (entdel ent)<br />   )<br />   (setq blk (entmake '((0 . "ENDBLK"))))<br />   (if blk<br />     (entmakex<br />       (list '(0 . "INSERT")<br />             (cons 2 blk)<br />             '(100 . "AcDbMinsertBlock")<br />             '(10 0.0 0.0 0.0)<br />             '(41 . 1.0)<br />             '(42 . 1.0)<br />             '(43 . 1.0)<br />             '(50 . 0.0)<br />             '(70 . 0)<br />             '(71 . 2)<br />             '(44 . 0.0)<br />             '(45 . 0.0)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (defun c:unlk (/ en ent)     ;Unlock<br />   (setq en (entsel "\nSelect Object to Unlock:"))<br />   (if en<br />     (if        (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))<br />            "INSERT"<br />         )<br />       (progn<br />         (setq ent (entmakex<br />                     (list '(0 . "INSERT")<br />                           (assoc 2 ent)<br />                           '(10 0.0 0.0 0.0)<br />                     )<br />                   )<br />         )<br />         (command "_.explode" (entlast))<br />         (entdel en)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

秋枫

呵呵。minsert, 不过，管用。加上出错处理就更好了。

秋枫

有待改进.

Command: lk

Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.

可否考虑用vl, 说不定效率高些。

秋枫

上面的测试用的是此处的那个dwg

http://www.xdcad.net/forum/showthread.php?s=&threadid=14008