自動轉換層，顏色，線型

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
5 A& i3 Y+ y" I* o* b" f) {3 w感謝樓上回復,不知哪裡可下載

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

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

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

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

VBA代码,供参考

# { x1 u" C8 |6 E
Sub A()
; Y+ T) c0 J/ ?. D3 E8 k/ I
Dim E As AcadEntity& \* A- g, \' x" |# Q4 n
ThisDrawing.Layers.Add "AA". B- L: o% w4 A+ T$ Y6 R
LoadLineType "HIDDEN"9 X& s8 g1 R+ ^* Y% W8 ^+ U' Y
LoadLineType "CENTER"$ q5 n7 F; m2 r5 ] i Q2 P
For Each E In ThisDrawing.ModelSpace
6 ?% @0 o! l7 d: A
Select Case E.Layer
2 E# [9 ` \7 k7 C+ g
Case "可见(ISO)"/ w8 ~0 m% }* _
E.color = 74 V, t$ c7 V7 Q; Z. K7 p: G
E.Linetype = "Continuous"
' A9 P( k" J9 {0 V6 F- T: U' h
Case "窄部可见(ISO)". {/ Y! W% s3 A: \
E.color = 5$ } @7 y% e$ t
E.Linetype = "Continuous"
7 B6 \, L$ @! L, D/ }
Case "隐藏(ISO)"
* ~- y8 N& t! P& A
E.color = 4
1 u% X u4 c% P1 Q* o' f) {& B( j
E.Linetype = "HIDDEN"
" Y% }3 P8 ]6 k# R
Case "中心线(ISO)", "中心标记(ISO)"" f( \" b, w& W7 Q( `
E.color = 1" }$ t7 O, U# f' }5 d' f
E.Linetype = "CENTER"! {. a0 k' w& V! e1 h
End Select
2 B) C& O6 v7 K8 a
E.Layer = "AA"
4 a( ~- D3 T; K
Next2 k& `+ v1 C! v: P
End Sub4 {. {% j" _0 k: S
! C4 b) m% V* K/ t# n
Private Sub LoadLineType(S As String)" r0 x( E4 [) {/ [" H' l
Dim T As AcadLineType, B As Boolean
4 X$ {/ Z/ O0 X: o% B$ o+ y, o. X
For Each T In ThisDrawing.Linetypes
2 E% q7 `% n; }; [6 e( p# T0 O
If T.Name = S Then6 x) x% s! k0 ^' F" E9 u* G
B = True. K, C% B5 c& w } Z4 ]8 q
Exit For
1 i3 z0 _& }. M: d6 F$ x
End If
0 _3 u7 k4 L" u3 n$ m' t
Next2 v! j1 }% \6 o! h
If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"
/ S( Y( W; E, L) ]; }
End Sub
9 B) ]4 u8 k" r

复制代码

哥哥很善良 · 发表于 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))
)
)

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

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

通知

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

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

评分

评分

评分

浏览过的版块

通知

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

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

评分

评分

评分

浏览过的版块

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