[求助]：一张打开就会破坏CAD200X的图纸(十万火急)

kirbysun

你改了什么参数吗
我不能修改的

柔柔

这是我的程序的开头说明：
;;
;; 本程序适用于线条类图纸如钢结构图、船体结构图。不过，这完全依据编者个人
;; 嗜好定制,你最好别用。否则，因此而引起的问题(尽管编者自信不会有问题),编者概不负责。
;; 本人始终认为: 没有或不可能统一设置的情况下,便于别人修改的设置是最佳的。
;; 本程序功能:
;;  1. 所有元素根据其特性放置到相应图层内,颜色线型随层
;;  2. 简化并规范字体设置,字型名(style name)按如下规则:
;;     纯西文 -- 西文字体名  ROMANS-->  romans.shx
;;     中西混合--中文字体名   HZTXT-->  romans.shx,hztxt.shx
;;     系统文字--系统字体名 SIMFANG-->  simfang.ttf
;;     系统缺省字型名 STANDARD 恢复其缺省设置 txt.shx
;;     纯西文的文字不使用中西混合设置
;;  3. 整理图块
;;     图块是无用信息的主要携带者,用插入文件的形式插入图块,文件上的无用的图层、字体、尺寸标注
;;     等信息就一起带入并且不打碎图块就无法清除.而打碎图块又不能忠实原图。最不好的图块是嵌套图块,
;;     即图块内含有子图块,甚至子图块内还存在子子图块。本程序着重考虑了这些问题,对嵌套图块外层打碎,
;;     非嵌套图块先打碎以释放无用信息再重新建立原名图块。
;;     对带属性的图块，如果用普通的分解命令打碎，属性值将被缺省值所替代，而本程序中进行了特殊处理，
;;     不会影响图的原来表示。
;;  4. 整理域内填充,经常发现有人用很密的线条图案填充以达到完全涂黑(应该说这是很不正常的绘图),
;;     这使得文件过大产生一系列问题,比如显示速度慢、一般的绘图仪不能打印等等。本程序增加了将填充图案
;;     改成 SOLID. 不过在设置条件时比较难掌握。范围小会遗漏、范围大影响程序效率。本程序预设置其比例
;;     hascalsize <= 2.0 时提出询问,用户可在初始设置中确定范围。
;;  5. 清理文件
;; 本程序适用于目前所有的 AutoCAD 所有版本,如果 AutoCAD 2004 以后新版本出现并有不适应的话,
;; 编者肯定会相应修改补充。
;; 有了本程序后,可以在任何层内画任何图元,不必建立层。根据结构专业特点,您可以把同一类构件设成
;; 不同的颜色线型,用本程序处理后会分成不同的层,然后修改层定义,再执行一次本程序便能归到一起。
;; 对由本人编制的其他程序生成的特殊图层,层内的文字则要归类但不改变图层,尺寸标注仍要处理。
;; 关闭冻结锁定的图层则完全不处理,您如果不想让程序处理某一图层,可先将该图层关闭或冻结。

wyh

最初由 kirbysun 发布
[B]你改了什么参数吗
我不能修改的 [/B]

奇怪了，我什么也没有修改。你是2002吗？

kirbysun

是的
我要打更新命令的

命令: _-dimstyle
当前标注样式:STANDARD
当前标注替代:
DIMTMOVE    2
输入标注样式选项
[保存(S)/恢复(R)/状态(ST)/变量(V)/应用(A)/?] <恢复>: _appl

柔柔

从中挖一个子程序：
;;处理图块

(defun chang_blk (/ b_sset b_sslen  b_name b_pt  b_layer b_sclx b_scly b_ang  nil_en
                       kblk  bb_sset b_att att_str bname att_k)
      (setq b_sset (ssadd))
      (ssadd ename b_sset)
      (setq b_sslen 1)
   (while (> b_sslen 0)
        (setq b_att nil  att_str nil)
        (setq kblk nil)
        (setq bb_sset (ssadd))
        (setq elist (entget (ssname b_sset (setq b_sslen (1- b_sslen))))
              ename (cdr (assoc -1 elist))
              ename_bak ename
             b_name (cdr (assoc 2 elist))
               b_pt (cdr (assoc 10 elist))
            b_layer (cdr (assoc 8 elist))
             b_sclx (cdr (assoc 41 elist))
             b_scly (cdr (assoc 42 elist))
              b_ang (cdr (assoc 50 elist))
              b_ang (/ (* b_ang 180) pi)
              b_att (cdr (assoc 66 elist))
        )
        (if (and (= b_att 1) (= block_k  "block2")) ;; 带属性图块同时要全部打碎的
           (progn
               (setq vname (entnext ename)
                     vlist (entget vname)
                     att_k T
               )
                (while att_k
                    (bylayer_att-text vlist)
                    (setq olayer (cdr (assoc 8 vlist)))
                      (if (= olayer "0") (setq olayer b_layer))
                    (setq ename (entlast)
                          elist (entget ename))
                    (byl_yscl)
                    (chang_text )
                    (setq vname (entnext vname))
                    (if vname
                      (progn
                         (setq vlist (entget vname))
                         (if (= (cdr (assoc 0 vlist)) "ATTRIB") (setq att_k T) (setq att_k nil))
                      )
                    )
                )
            )
        )

        (entmakex) (setq nil_en (entlast))
        (command "_.explode" ename_bak)
        (ssdel ename_bak b_sset)
        (setq ename (entnext nil_en))
        (while ename
          (setq elist (entget ename))
          (if (= "ATTDEF" (cdr (assoc 0 elist)))
           (entdel ename)
           (progn
             (setq olayer (cdr (assoc 8 elist)))
               (if (= olayer "0") (setq olayer b_layer))
             (setq ktext nil  kdim nil)

             (byl_yscl)
             (if (= (cdr (assoc 0 elist)) "INSERT")    ;; 图块内有嵌套图块
                (progn
                   (setq  kblk T)
                   (ssadd ename b_sset)
                   (setq b_sslen (1+ b_sslen))
                )  
                (progn
                   (do_layer)
                   (if ktext
                     (progn
                       (chang_text)                     ;; 处理文字

                       (ssadd ename bb_sset)
                     )
                     (progn
                        (if kdim
                           (progn
                              (chang_dim)                ;; 处理尺寸
                              (ssadd ename bb_sset)
                           )
                           (progn
                              (chang_line)               ;; 处理线条
                              (ssadd ename bb_sset)
                           )
                        )
                     )                 
                  );END if ktext
                )
              );END if "INSERT"
             )
            )
            (setq ename (entnext ename))
          );END while ename

          (if (and (= b_att nil) (= block_k  "block1") (= b_sclx b_scly) (= kblk nil))
               (progn
                 (command "_.scale" bb_sset "" b_pt (/ 1 b_sclx))
                 (command "_.rotate" bb_sset "" b_pt (- 0 b_ang))
                 (command "_.block" b_name "y" b_pt bb_sset "" )
                 (command "_.insert" b_name b_pt b_sclx b_sclx b_ang)
                 (if (= layer_k "newlayer") (setq b_layer "BLOCK"))
                 (if un_k (setq b_layer oly_name))
                 (if (null (tblsearch "layer" b_layer))
                  (command "_.LAYER" "_M" b_layer "_Lt" "CONTINUOUS" "" "")
                 )
                 (command "_.CHANGE" (entlast) "" "P" "LA" b_layer "" )
               );END progn
           );END (if (and (= block_k  "block1") (= b_sclx b_scly) (= kblk nil))
    );END while (> b_sslen 0)
)

wyh

用什么命令执行，chang_blk没有反应。

wyh

最初由 kirbysun 发布
[B]是的
我要打更新命令的

命令: _-dimstyle
当前标注样式:STANDARD
当前标注替代:
DIMTMOVE    2
输入标注样式选项
[保存(S)/恢复(R)/状态(ST)/变量(V)/应用(A)/?] <恢复>: _appl [/B]

没有这么复杂。我用DDIM命令编辑标注样式中的DIM1，编辑完成后确定标注就更新完毕了。

kirbysun

真的不好意思
我看不懂的

柔柔

这是一段子程序（其中还有调用别的子程序的语句），不能用的！仅供想编类似程序的人参考。

wyh

输入 ddim命令出现下面的对话框

kirbysun

最初由 wyh 发布
[B]输入 ddim命令出现下面的对话框 [/B]

谢谢版主
你的方法我也用过了
我想这也许是软件的问题吧
就像我的CAD一开那张图就会坏
我现在的处理办法是先隔离图层
在全选
在用对象属性功能修改

kirbysun

再请教版主一个极菜的问题
有施工单位要我的图纸
我不希望给dwg文件
有没有批处理的软件转化为只能看的格式吗?

柔柔

这种图纸送给我也不要，还当宝贝？！
怕露出庐山真面目吧！

AFM128

最初由 kirbysun 发布
[B]再请教版主一个极菜的问题
有施工单位要我的图纸
我不希望给dwg文件
有没有批处理的软件转化为只能看的格式吗? [/B]

你这个问题在“明经”里有详细介绍以及如何操作

wyh

输出为WMF文件。