自動轉換層，顏色，線型

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
$ {+ T/ y3 \$ U( W- r感謝樓上回復,不知哪裡可下載

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

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

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

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

VBA代码,供参考

1 g) w* J8 @- e1 c1 P
Sub A()
; G5 N- V7 u7 z* P7 j
Dim E As AcadEntity: Y2 B5 {! [2 i! O
ThisDrawing.Layers.Add "AA"
% Y% ?2 J: `4 C$ C* e
LoadLineType "HIDDEN"
( W, L7 [5 D+ g8 W2 n! p
LoadLineType "CENTER"6 I! ~4 [2 l0 m
For Each E In ThisDrawing.ModelSpace6 c& u: B6 B3 k# O: X; z3 T0 D) c: K* y
Select Case E.Layer
: N" V% ^9 B4 @9 W1 W9 y# z
Case "可见(ISO)"
0 ?: t; B) k: e2 k& h3 Y1 ^
E.color = 7
7 G, j6 u9 I% ]" I3 }/ ?
E.Linetype = "Continuous"! g! A4 z7 d7 P. u9 S9 s R* v4 d
Case "窄部可见(ISO)"( f* o. z6 B, [2 J
E.color = 53 _6 d: v' K @( Z9 l
E.Linetype = "Continuous"9 T" |' P% p9 c$ R" e; t
Case "隐藏(ISO)"/ {: G3 k5 L, q: ^( P# F: ]$ J
E.color = 4
! ~7 z& }' C, C) d
E.Linetype = "HIDDEN"
2 R( ]" d" x+ C4 @1 C+ ^
Case "中心线(ISO)", "中心标记(ISO)"
. r9 P+ C% _8 R, p* }
E.color = 1# _* y3 t ~4 X( H
E.Linetype = "CENTER"' d: F+ x" ^7 p/ N* J6 M
End Select
9 _' J8 {) F y* o. x
E.Layer = "AA"
p8 w( t( S) ?+ g9 y, O" z
Next
+ y, g5 U6 c, s. E) A
End Sub
3 H; O$ I9 D m2 i
Private Sub LoadLineType(S As String)
( }; \8 g7 t1 P1 J' k( s7 ]
Dim T As AcadLineType, B As Boolean
/ K# ` k& _& l
For Each T In ThisDrawing.Linetypes
+ ?) v4 S8 k9 B% w8 r/ D n
If T.Name = S Then% a/ r* U6 ^2 A! B( l% Y# N8 H
B = True8 C" d+ Y( [8 o
Exit For
* r+ ~7 v( x4 W! U/ S7 M5 H! l! D
End If
% B6 h# E& o9 g K, u+ e% @
Next
: a6 R1 @# A# `0 x& t" v
If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"( c: G0 C# j/ H- @0 Q& r
End Sub
* u. P! J. i: u8 S* L

复制代码

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

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

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

通知

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

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

评分

评分

评分

浏览过的版块

通知

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

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

评分

评分

评分

浏览过的版块

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