[求助]：有没有把cad 图能看能打印 却不能编辑的程序

cqnj023

加载上传的文件，命令名wjbf，即可知怎么做了。根据需要，可以保护文件中的部分内容，即选中什么，则什么不能被编辑。

popxi

最初由 cqnj023 发布
[B]加载上传的文件，命令名wjbf，即可知怎么做了。根据需要，可以保护文件中的部分内容，即选中什么，则什么不能被编辑。 [/B]

我下了，可是用apploade不能载入，怎么用啊？？

cqnj023

只能用于cad2000以上版本。

hi71400

7楼的，匿名块怎么做的？

柔柔

cqnj023大虾用的可能是多重插入匿名块，我一时还无法解开。

eachy

最初由 柔柔 发布
[B]cqnj023大虾用的可能是多重插入匿名块，我一时还无法解开。 [/B]

使用 Audit  命令修复后试试。

cqnj023

最初由 eachy 发布
[B]
回复:最初由 柔柔 发布
cqnj023大虾用的可能是多重插入匿名块，我一时还无法解开。  
使用 Audit 命令修复后试试。  [/B]

对，再试试这张图，Audit会无效的。

eachy

最初由 cqnj023 发布
[B]

对，再试试这张图，Audit会无效的。 [/B]

用ActiveX方法重新插入块，把Minsert删除。
http://www.artnet.com.pl/lkozicki/graty/acad.html

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.artnet.com.pl/lkozicki/graty/acad.html">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

Minsert <-> Insert 互换程序

2. 
   
3. 
   
4. ;;; ====================================================================== ;;;
   
5. ;;;                                                                        ;;;
   
6. ;;; TogBlk.LSP                                                             ;;;
   
7. ;;; Copyright (c) 2000 by Lukasz Kozicki                                   ;;;
   
8. ;;;                                                                        ;;;
   
9. ;;; ====================================================================== ;;;
   
10. ;;;                                                                        ;;;
    
11. ;;; Permission to use, copy, modify, and distribute this software for any  ;;;
    
12. ;;; purpose and without fee is hereby granted. It is freeware, but do not  ;;;
    
13. ;;; hesitate to send me a post-card or an e-mail, if you find it useful.   ;;;
    
14. ;;;                                                                        ;;;
    
15. ;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY. ;;;
    
16. ;;; IT MAY NOT BE ERROR FREE, IF YOU USE IT, YOU DO THAT AT YOUR OWN RISK. ;;;
    
17. ;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF    ;;;
    
18. ;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.                                 ;;;
    
19. ;;;                                                                        ;;;
    
20. ;;;       Lukasz Kozicki                                                   ;;;
    
21. ;;;       ul. Krasickiego 24/65                                            ;;;
    
22. ;;;       81-385 Gdynia 8 Poland                                           ;;;
    
23. ;;;       [email]lkozicki@atelier.pl[/email]                                              ;;;
    
24. ;;;                                                                        ;;;
    
25. ;;; Gdynia, September 2000                                                 ;;;
    
26. ;;;                                                                        ;;;
    
27. ;;; ====================================================================== ;;;
    
28. ;;;                                                                        ;;;
    
29. ;;; DESRIPTION                                                             ;;;
    
30. ;;;                                                                        ;;;
    
31. ;;;   This function permits to toggle an inserted BLOCK between INSERT and ;;;
    
32. ;;; MINSERT entities. This is the remedy for the stupid manner of treating ;;;
    
33. ;;; Inserts and Minserts of a block as completely different entities - as  ;;;
    
34. ;;; it is introduced in AutoCAD r. 15 , due to separate DXF codes 100 :    ;;;
    
35. ;;; (100 . "AcDbBlockReference") and (100 . "AcDbMInsertBlock").           ;;;
    
36. ;;;                                                                        ;;;
    
37. ;;;   With a MINSERT, the function reads a MinsertBlock, sets the number   ;;;
    
38. ;;; of rows and number of columns do 0 and makas a new BlockReference in   ;;;
    
39. ;;; the same location.                                                     ;;;
    
40. ;;;                                                                        ;;;
    
41. ;;;   With an INSERT, it sets rows and columns to 1 and makes a new        ;;;
    
42. ;;; MinsertBlock in the lobcation of a BlockReference.                     ;;;
    
43. ;;;                                                                        ;;;
    
44. ;;; The oryginal entities are deleted from the drawing.                    ;;;
    
45. ;;;                                                                        ;;;
    
46. ;;; ====================================================================== ;;;
    
47. ;;;                                                                        ;;;
    
48. ;;; USAGE                                                                  ;;;
    
49. ;;;                                                                        ;;;
    
50. ;;;   Simply click the mouse on an inserted block. If it is an INSERT, it  ;;;
    
51. ;;; will be converted to a MINSERT. If its a MINSERT, it will be converted ;;;
    
52. ;;; to an INSERT.                                                          ;;;
    
53. ;;;                                                                        ;;;
    
54. ;;; ====================================================================== ;;;
    
55. 
    
56. 
    
57. 
    
58. (defun C:TOGBLK        (/ bt)
    
59.   (defun bt (/ qq qn qt)
    
60.     (setq qq
    
61.            (cdr
    
62.              (entget
    
63.                (setq qn (car (entsel "Select a Block Insert/Minsert\n")))
    
64.              )
    
65.            )
    
66.     )
    
67.     (if        (member '(0 . "INSERT") qq)
    
68.       (progn
    
69.         (princ "OK\n")
    
70.         (if (setq qt (member '(100 . "AcDbMInsertBlock") qq))
    
71.           (progn
    
72.             (setq qt
    
73.                    (append
    
74.                      (cdr qt)
    
75.                      (cdr (member '(100 . "AcDbMInsertBlock") (reverse qq))
    
76.                      )
    
77.                    )
    
78.             )
    
79.             (setq qt (subst '(70 . 0) (assoc '70 qt) qt))
    
80.             (setq qt (subst '(71 . 0) (assoc '71 qt) qt))
    
81.             (entmake (reverse qt))
    
82.             (entdel (cdr (assoc '-1 (entget qn))))
    
83.           )
    
84.         )
    
85.         (if (setq qt (member '(100 . "AcDbBlockReference") qq))
    
86.           (progn
    
87.             (setq qt
    
88.                    (append
    
89.                      (cdr qt)
    
90.                      (cdr
    
91.                        (member '(100 . "AcDbBlockReference") (reverse qq))
    
92.                      )
    
93.                    )
    
94.             )
    
95.             (setq qt (subst '(70 . 1) (assoc '70 qt) qt))
    
96.             (setq qt (subst '(71 . 1) (assoc '71 qt) qt))
    
97.             (entmake (reverse qt))
    
98.             (entdel (cdr (assoc '-1 (entget qn))))
    
99.           )
    
100.         )
     
101.       )
     
102.       (princ "Selected entity is not a Block Insert/Minsert\n")
     
103.     )
     
104.     (princ)
     
105.   )
     
106.   (command "_.redraw")
     
107.   (bt)
     
108. )

<br /> <br /> ;;; ====================================================================== ;;;<br /> ;;;                                                                        ;;;<br /> ;;; TogBlk.LSP                                                             ;;;<br /> ;;; Copyright (c) 2000 by Lukasz Kozicki                                   ;;;<br /> ;;;                                                                        ;;;<br /> ;;; ====================================================================== ;;;<br /> ;;;                                                                        ;;;<br /> ;;; Permission to use, copy, modify, and distribute this software for any  ;;;<br /> ;;; purpose and without fee is hereby granted. It is freeware, but do not  ;;;<br /> ;;; hesitate to send me a post-card or an e-mail, if you find it useful.   ;;;<br /> ;;;                                                                        ;;;<br /> ;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY. ;;;<br /> ;;; IT MAY NOT BE ERROR FREE, IF YOU USE IT, YOU DO THAT AT YOUR OWN RISK. ;;;<br /> ;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF    ;;;<br /> ;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.                                 ;;;<br /> ;;;                                                                        ;;;<br /> ;;;       Lukasz Kozicki                                                   ;;;<br /> ;;;       ul. Krasickiego 24/65                                            ;;;<br /> ;;;       81-385 Gdynia 8 Poland                                           ;;;<br /> ;;;       [email]lkozicki@atelier.pl[/email]                                              ;;;<br /> ;;;                                                                        ;;;<br /> ;;; Gdynia, September 2000                                                 ;;;<br /> ;;;                                                                        ;;;<br /> ;;; ====================================================================== ;;;<br /> ;;;                                                                        ;;;<br /> ;;; DESRIPTION                                                             ;;;<br /> ;;;                                                                        ;;;<br /> ;;;   This function permits to toggle an inserted BLOCK between INSERT and ;;;<br /> ;;; MINSERT entities. This is the remedy for the stupid manner of treating ;;;<br /> ;;; Inserts and Minserts of a block as completely different entities - as  ;;;<br /> ;;; it is introduced in AutoCAD r. 15 , due to separate DXF codes 100 :    ;;;<br /> ;;; (100 . "AcDbBlockReference") and (100 . "AcDbMInsertBlock").           ;;;<br /> ;;;                                                                        ;;;<br /> ;;;   With a MINSERT, the function reads a MinsertBlock, sets the number   ;;;<br /> ;;; of rows and number of columns do 0 and makas a new BlockReference in   ;;;<br /> ;;; the same location.                                                     ;;;<br /> ;;;                                                                        ;;;<br /> ;;;   With an INSERT, it sets rows and columns to 1 and makes a new        ;;;<br /> ;;; MinsertBlock in the lobcation of a BlockReference.                     ;;;<br /> ;;;                                                                        ;;;<br /> ;;; The oryginal entities are deleted from the drawing.                    ;;;<br /> ;;;                                                                        ;;;<br /> ;;; ====================================================================== ;;;<br /> ;;;                                                                        ;;;<br /> ;;; USAGE                                                                  ;;;<br /> ;;;                                                                        ;;;<br /> ;;;   Simply click the mouse on an inserted block. If it is an INSERT, it  ;;;<br /> ;;; will be converted to a MINSERT. If its a MINSERT, it will be converted ;;;<br /> ;;; to an INSERT.                                                          ;;;<br /> ;;;                                                                        ;;;<br /> ;;; ====================================================================== ;;;<br /> <br /> <br /> <br /> (defun C:TOGBLK        (/ bt)<br />   (defun bt (/ qq qn qt)<br />     (setq qq<br />            (cdr<br />              (entget<br />                (setq qn (car (entsel "Select a Block Insert/Minsert\n")))<br />              )<br />            )<br />     )<br />     (if        (member '(0 . "INSERT") qq)<br />       (progn<br />         (princ "OK\n")<br />         (if (setq qt (member '(100 . "AcDbMInsertBlock") qq))<br />           (progn<br />             (setq qt<br />                    (append<br />                      (cdr qt)<br />                      (cdr (member '(100 . "AcDbMInsertBlock") (reverse qq))<br />                      )<br />                    )<br />             )<br />             (setq qt (subst '(70 . 0) (assoc '70 qt) qt))<br />             (setq qt (subst '(71 . 0) (assoc '71 qt) qt))<br />             (entmake (reverse qt))<br />             (entdel (cdr (assoc '-1 (entget qn))))<br />           )<br />         )<br />         (if (setq qt (member '(100 . "AcDbBlockReference") qq))<br />           (progn<br />             (setq qt<br />                    (append<br />                      (cdr qt)<br />                      (cdr<br />                        (member '(100 . "AcDbBlockReference") (reverse qq))<br />                      )<br />                    )<br />             )<br />             (setq qt (subst '(70 . 1) (assoc '70 qt) qt))<br />             (setq qt (subst '(71 . 1) (assoc '71 qt) qt))<br />             (entmake (reverse qt))<br />             (entdel (cdr (assoc '-1 (entget qn))))<br />           )<br />         )<br />       )<br />       (princ "Selected entity is not a Block Insert/Minsert\n")<br />     )<br />     (princ)<br />   )<br />   (command "_.redraw")<br />   (bt)<br /> )

syb106

生成dwf文件

cqnj023

eachy斑竹提供了一种很好的方法。

wangwei_66

斑竹能给演示一下吗？

猫队长

附件都不能下载了，可惜啊，我收到了一张图纸，很有用，可惜里面的东西都不能选择，而且也炸不开，想量一下距离也做不到，真着急啊

hnxychf

TogBlk.LSP程序不错

luntanh

做DWF文件

追寻千里

把图打印成图像文件（ipg、tif.......）就能达到你的要求了。