自動轉換層，顏色，線型

BILL.PU · 发表于 2009-12-9 23:02:17

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層，顏色，線型
求助,自動轉換層，顏色，線型 .LSP
如下圖

謝謝顏色，層，線型.jpg

sealive_leafage · 发表于 2009-12-10 19:32:52

使用命令laytrans可以图层转换，只要你有一个含有标准图层设置的样本文件（dwt）就可以方便的映射转换了；

[ 本帖最后由 sealive_leafage 于 2009-12-10 19:34 编辑 ]

BILL.PU · 发表于 2009-12-10 20:47:41

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

rongjian · 发表于 2009-12-10 21:51:37

原帖由 BILL.PU 于 2009-12-10 20:47 发表 http://www.3dportal.cn/discuz/images/common/back.gif
" I( G2 V1 F4 C# o% M" X感謝樓上回復,不知哪裡可下載

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

BILL.PU · 发表于 2009-12-11 19:27:33

謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型
所以需要寫程式

woaishuijia · 发表于 2009-12-11 21:17:15

VBA代码,供参考

/ n& O6 d: p" Q! K3 k+ w/ H6 v
Sub A()
8 V8 U9 _( g6 S/ i2 Q( m# }8 F
Dim E As AcadEntity6 V/ n$ C7 |% | V+ D, H7 X( k
ThisDrawing.Layers.Add "AA"' ~) x* J' U# X/ w, x# K
LoadLineType "HIDDEN"
3 F2 g1 ?. {1 a5 O6 q( b& K( b
LoadLineType "CENTER"
g; ?* t& P0 ]5 M7 u/ k! x
For Each E In ThisDrawing.ModelSpace$ [7 S8 Q/ I2 Z7 [/ B, F
Select Case E.Layer/ I9 C" c1 S* w% M$ t; n0 j; S4 s
Case "可见(ISO)". O- c( B0 t* g7 [! a. Q$ r
E.color = 75 u- I; R$ R, V) a, I! y
E.Linetype = "Continuous"
1 z+ V1 f% X/ M* u7 L# ?5 O8 Q `
Case "窄部可见(ISO)"
7 w2 X9 q8 h+ o+ o8 ]' w; @
E.color = 5) n1 d3 ~4 \2 |1 u7 ?) `
E.Linetype = "Continuous"# h h5 t$ r+ e
Case "隐藏(ISO)"
' g( L7 r) ?6 _; S% E
E.color = 4
N w* e/ K0 b
E.Linetype = "HIDDEN"- M, R4 p3 m4 @; d4 c# |
Case "中心线(ISO)", "中心标记(ISO)"1 n; ~+ I( D6 M/ J' S Z1 F
E.color = 10 {$ u8 y* I# E+ Y9 `
E.Linetype = "CENTER"9 }# `$ c* ^; d# f" S
End Select1 o& x8 n3 Z9 N) c
E.Layer = "AA"
# o; V% e7 m1 _& o+ D
Next
! ]- n4 [9 o) p! Y3 K3 L1 {
End Sub$ q7 z. W( k; A+ j9 W8 z
. D& g8 k" B9 h
Private Sub LoadLineType(S As String)
& G, G6 J: \6 d$ k
Dim T As AcadLineType, B As Boolean
. M& \1 [' Z7 G7 D
For Each T In ThisDrawing.Linetypes5 b( A1 V% K5 m9 c
If T.Name = S Then
, Y, c2 K4 L0 v: U' L) G
B = True0 |! `8 Y: [. q* w" Q
Exit For8 R( p C% a8 @( e( B/ W; R2 t8 [) m# R
End If( q4 c& S% Y( y2 L9 `4 w! g: t
Next) \. ]3 h7 f' n7 F+ X6 `8 R
If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"
9 d! K" P. S4 @& T2 W: C! n8 N- q
End Sub
0 v+ N2 @! X, n. |( ?2 a' ^

复制代码

哥哥很善良 · 发表于 2010-1-2 17:55:56

用下面的程序:
(if (not (tblsearch "layer" "xuxian"))
(command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" "")
)                                              ;;;上面是你图上无xuxian层它自动去建立。
                        ;;;你是在同一层上画了不同的线型
(defun c:chgla ()
  (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" "")
   )
(setq i (+ i 1))
)
)

用上面的方法可去把不同的线型分出去。

		自动登录	找回密码
密码			注册

通知

[求助] 自動轉換層，顏色，線型

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

评分

浏览过的版块

通知

[求助] 自動轉換 層，顏色，線型

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

评分

浏览过的版块

[求助] 自動轉換層，顏色，線型