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

cqnj023 · 发表于 2004-2-1 11:52:14

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

popxi · 发表于 2004-2-3 22:27:55

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

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

cqnj023 · 发表于 2004-2-4 09:33:14

只能用于cad2000以上版本。

hi71400 · 发表于 2004-2-4 11:55:27

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

柔柔 · 发表于 2004-2-4 16:37:23

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

eachy · 发表于 2004-2-5 00:53:41

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

使用 Audit 命令修复后试试。

cqnj023 · 发表于 2004-2-5 09:59:42

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

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

eachy · 发表于 2004-2-5 13:06:46

最初由 cqnj023 发布
[B]

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

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

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

复制代码

Minsert <-> Insert 互换程序

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

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

syb106 · 发表于 2004-2-5 13:19:02

生成dwf文件

cqnj023 · 发表于 2004-2-5 16:04:28

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

wangwei_66 · 发表于 2004-2-5 22:22:38

斑竹能给演示一下吗？

猫队长 · 发表于 2006-8-24 11:47:43

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

hnxychf · 发表于 2009-5-20 10:33:20

TogBlk.LSP程序不错

luntanh · 发表于 2009-5-23 01:13:19

做DWF文件

追寻千里 · 发表于 2009-9-22 11:05:18

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

账号		自动登录	找回密码
密码			立即注册

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

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