（更新）[原创]：“图层大挪移”V2.3

xiaping

相当不错了，但是能不能将Defpoints一类的特定图层也可一进行合并？如果可以的基本上可以起到一部分图层转换器的功能了。当然如果能够更方便一点完全取代图层管理器就更好了。

海豚

最初由 eachy 发布
[B]程序本身考虑了图块内部的情况，请将不能合并的DWG附上，谢谢。 [/B]

图形是2000格式的，如果有问题我再上传，我是用V1.3转换的，剩下以下图层不能转换。

eachy

to LUCAS

繁体版没问题，线形和颜色下午可以改好，改成可选项，颜色和线形可以继承原图层或者用新图层的

to  xiaping

除了 0 层不能删除，其他的图层都可以

to 海豚

1.4 版已解决

xiaping

相当不错，比图层转换器用起来方便。十分感谢。

LUCAS

原物件可能原來有設定顏色/線型 OR 顏色/線型是隨層,我所說KEEP COLOR AND KEEP LTYPE應為保有目前看到的,但圖層合併了,即沒有選KEEP COLOR AND KEEP LTYPE改為隨層,選了"可能"要從物件所需圖層取顏色/線型。

顯示標準的 AutoCAD 顏色選取對話方塊
(acad_colordlg colornum [flag])

引數

colornum

在 0~256 (內含) 範圍中的整數，指定某 AutoCAD 顏色號碼，作為起始預設值。

flag

如果設定為 nil，停用 BYLAYER 及 BYBLOCK 按鈕。省略 flag 引數或將它設定為非 nil 值，以啟用 BYLAYER 及 BYBLOCK 按鈕。

一個值為 0 的 colornum 內定為 BYBLOCK，及值為 256 的內定為 BYLAYER。

傳回值

使用者選擇的顏色碼，若使用者取消對話方塊，則傳回 nil。

範例

提示使用者選取顏色，且沒有選取顏色時，預設值為綠色：

(acad_colordlg 3)


;;  Acad_TrueColorDlg is somewhat similar to the existing acad_colordlg function.
;;        Signature:
;;          (acad_truecolordlg color [allowbylayer] [currentlayercolor])
;;
;;            Where "color" is a dotted pair that describes the default color. The first element
;;            of the dotted pair must be one of the color dxf group codes (62, 420, or 430).
;;            For example:
;;              (62 . ColorIndex)
;;              (420 . TrueColor)
;;              (430 . "colorbook$colorname")
;;
;;            If the optional [allowbylayer] parameter is present and non-nil, then the bylayer and
;;            byblock buttons will be enabled. If this parameter is missing, the value defaults to
;;            T and the bylayer/bylbock buttons will be enabled.
;;
;;            The optional [curLayerColor] parameter controls the color of the bylayer/byblock color
;;            in the dialog. This parameter is also a dotted pair like the first color parameter.
;;            
;;            Returns nil if the user canceled.
;;            On success, the function returns a list of one or more dotted pairs that fully describe the
;;            chosen color. The last dotted pair in this list indicates, specifically, the color that was
;;            chosen. Additional details on the return list follow...
;;
;;            ColorBook color - If the last item in the returned list is a 430 pair, then the specified
;;                              color originates from a colorbook. (This returned list will also contain
;;                              a 420 pair that describes the corresponding truecolor and a 62 pair that
;;                              describes the closest matching colorindex value.)
;;
;;            True Color      - If the returned list contains a 420 pair as the last item, then
;;                              a true color was specified (as "Red,Green,Blue"). The list will
;;                              also contain a 62 pair that indicates the closest matching colorindex.
;;                              (No 430 pair will be present)
;;
;;            Color Index     - If the last item in the list is a 62 pair, then a colorindex was chosen.
;;                              (no other dotted pairs will be present in the returned list)
;;
;;         Examples of usage:
;;                 (acad_truecolordlg '(62 . 1))
;;                 (acad_truecolordlg '(420 . 2686760))
;;                 (acad_truecolordlg '(430 . "Color Book Sample File$Sample 0C"))
;;                 (acad_truecolordlg '(420 . 2686760) nil)
;;

eachy

最初由 LUCAS 发布
[B]原物件可能原來有設定顏色/線型 OR 顏色/線型是隨層,我所說KEEP COLOR AND KEEP LTYPE應為保有目前看到的,但圖層合併了,即沒有選KEEP COLOR AND KEEP LTYPE改為隨層,選了"可能"要從物件所需圖層取顏色/線型。

顯?.. [/B]

现在默认就是保留原图层的颜色和线形，压缩包内含简体版和E文版两个文件。

LUCAS

提供測試圖,請把物件轉到0層,但保有目前看到的顏色及線型

xiaping

最初由 LUCAS 发布
[B]提供測試圖,請把物件轉到0層,但保有目前看到的顏色及線型 [/B]

用1.5转换以后除了红色保持不变以外，其他的变成黑色了。（0层的设置色是黑色）。我用的是winxp+acad2005 中文版。供eachy斑竹参考。

LUCAS

發生原因是:由於先把圖塊所屬圖層修改了,以至圖塊子實體失去原圖塊資料
解決方法:當然是先保留原始資料再修改(注意嵌套塊)

海豚

不知道该程序没有晓东工具箱的情况下是否能够运行。

eachy

最初由 LUCAS 发布
[B]提供測試圖,請把物件轉到0層,但保有目前看到的顏色及線型 [/B]

出差了两天，今天才看到。这个问题是块内 0  层实体引起的，下午会改好，下一版提供繁体界面。

to 海豚：

未注明的程序均为纯Lisp/Vlisp版，不需要任何其他外挂，运行环境CAD2000以上。

2002zjp

14版能不能用？

xiaping

最初由 2002zjp 发布
[B]14版能不能用？ [/B]

R14 不能加载VLX文件，所以无法使用。

eachy

最初由 LUCAS 发布
[B]發生原因是:由於先把圖塊所屬圖層修改了,以至圖塊子實體失去原圖塊資料
解決方法:當然是先保留原始資料再修改(注意嵌套塊) [/B]

修改完成，压缩包内包括简体中文和繁体中文两种界面文件。

Michael_66

变化这么快啊？