自動轉換 層，顏色，線型

BILL.PU

Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層，顏色，線型
求助,自動轉換 層，顏色，線型 .LSP
  G5 L0 y: _  q* F1 U% ~如下圖
( z. J' ~6 d3 s* \1 C* L/ P4 P+ ]
% a& h9 U9 z& d6 ^% I+ F3 l# t: o! {謝謝

sealive_leafage

使用命令laytrans可以图层转换，只要你有一个含有标准图层设置的样本文件（dwt）就可以方便的映射转换了；
3 X& l) k" {. C6 W+ V5 l
9 ~: u+ p- v* C3 q[ 本帖最后由 sealive_leafage 于 2009-12-10 19:34 编辑 ]

BILL.PU

感謝樓上回復,不知哪裡可下載

rongjian

原帖由 BILL.PU 于 2009-12-10 20:47 发表 http://www.3dportal.cn/discuz/images/common/back.gif
感謝樓上回復,不知哪裡可下載

不用下载，这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。

BILL.PU

謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型
& z! n0 M9 q/ j- G所以需要寫程式

woaishuijia

VBA代码,供参考

1. 
   
2. Sub A()
   
3.     Dim E As AcadEntity
   
4.     ThisDrawing.Layers.Add "AA"
   
5.     LoadLineType "HIDDEN"
   
6.     LoadLineType "CENTER"
   
7.     For Each E In ThisDrawing.ModelSpace
   
8.         Select Case E.Layer
   . g4 V7 ?! e* M0 a% X
9.             Case "可见(ISO)"
   * |: ^; ]* ?& ]
10.                 E.color = 7
    
11.                 E.Linetype = "Continuous"
    
12.             Case "窄部可见(ISO)"
    
13.                 E.color = 5
    1 j, o$ i/ W# `: ?9 |
14.                 E.Linetype = "Continuous"
    1 D5 m% H7 B# A3 G
15.             Case "隐藏(ISO)"
    
16.                 E.color = 4
    " n$ h6 T& y( g+ {/ y& t
17.                 E.Linetype = "HIDDEN"
    
18.             Case "中心线(ISO)", "中心标记(ISO)"
    , b3 H6 T1 m8 J0 X
19.                 E.color = 1
    
20.                 E.Linetype = "CENTER"
    
21.         End Select
      G5 b% C9 d0 w: Q8 x
22.         E.Layer = "AA"
    
23.     Next
    
24. End Sub
    9 ?9 n: I2 P! B& ]! I  K
25. 
    
26. Private Sub LoadLineType(S As String)
    7 V0 G: `1 i9 c' H  j2 j6 \) K' q5 G
27.     Dim T As AcadLineType, B As Boolean
    . _; l( t( z: `  q' e
28.     For Each T In ThisDrawing.Linetypes
    ! ^8 u. w% U# @! b. F
29.         If T.Name = S Then
    
30.             B = True
    
31.             Exit For
    . f/ d& \& u  C; c$ A
32.         End If
    
33.     Next
    ) K. ?; _- ~* \* S
34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"
    
35. End Sub
    0 e4 R7 J) N  h

复制代码

哥哥很善良

用下面的程序:
(if (not (tblsearch "layer" "xuxian"))
9 ^# g( P- @7 L" J$ _% C; r    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" "")
    )                                                 ;;;上面是你图上无xuxian层它自动去建立。
7 D6 w' _: Y+ b3 Y                           ;;;你是在同一层上画了不同的线型
7 z5 X- j5 R. D1 i) T* h* I(defun c:chgla ()
! Z+ c: x! F/ y  y  (setq en (ssget "all") n (sslength en) i 0)
  (repeat n
    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6
    (if (= linee "HIDDEN")
       (command "change" ee """p" "la" "xuxian" "")
. v8 q" a# w8 q$ @      )
# b! w- G, n4 @: d! X+ z    (setq i (+ i 1))
   )
)
1 M+ p0 E: X% F% U  
用上面的方法可去把不同的线型分出去。