QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2210|回复: 6
收起左侧

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

[复制链接]
发表于 2009-12-9 23:02:17 | 显示全部楼层 |阅读模式 来自: 中国台湾

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型
" Q' q1 o- h7 ^. T求助,自動轉換 層,顏色,線型 .LSP
$ K6 T. Q( n( [3 o. B# |如下圖 * G0 V; M7 s0 K) }$ D# E
! \0 o1 j  F5 E3 g7 S6 z" o( k6 z
謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;
3 q; n0 w' e! c( V3 i4 V2 M( W' A% z; \: y7 b, M
[ 本帖最后由 sealive_leafage 于 2009-12-10 19:34 编辑 ]
未命名.JPG

评分

参与人数 1三维币 +5 收起 理由
2005llnn + 5 应助

查看全部评分

 楼主| 发表于 2009-12-10 20:47:41 | 显示全部楼层 来自: 中国台湾
感謝樓上回復,不知哪裡可下載
发表于 2009-12-10 21:51:37 | 显示全部楼层 来自: 中国江苏无锡
原帖由 BILL.PU 于 2009-12-10 20:47 发表 http://www.3dportal.cn/discuz/images/common/back.gif
" |3 A$ P  |& K! }7 H1 w感謝樓上回復,不知哪裡可下載

3 f5 C6 ]3 b2 R# v7 J+ m  `不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。
! q3 v3 K" s1 d3 P' u+ b7 d BZ.jpg

评分

参与人数 1三维币 +3 收起 理由
2005llnn + 3 应助

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型- }  n: d8 t0 m3 _
所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考
  1. 9 }  E2 w; q. g: G" S6 _/ J$ C
  2. Sub A()8 K9 N2 \9 R- N: J/ |( F* R
  3.     Dim E As AcadEntity: a9 z8 z' |3 y
  4.     ThisDrawing.Layers.Add "AA"
    6 N0 C$ X1 M6 U* m* Q
  5.     LoadLineType "HIDDEN"+ E1 g: ^5 A3 k% ^6 C# U. I
  6.     LoadLineType "CENTER"! |. ~" v( o: `  u6 [- H$ ]" }
  7.     For Each E In ThisDrawing.ModelSpace
    + y: f2 z, ?; U/ c, \  n  R8 Q
  8.         Select Case E.Layer
    8 o; A$ X, G( S" f/ v( ^' H5 K
  9.             Case "可见(ISO)"$ \& v2 G1 D: }2 |
  10.                 E.color = 7) r+ z3 T2 i, J3 K
  11.                 E.Linetype = "Continuous"; v1 |# m1 H  K8 ^/ U4 a2 i
  12.             Case "窄部可见(ISO)"
    / X  p! A% O2 b3 ?" f( a9 ^8 R1 z
  13.                 E.color = 5: i. d; R- O% u* ]# i1 `0 S
  14.                 E.Linetype = "Continuous"
    - H4 `  n* c+ ?/ }5 R9 k  @8 U! n
  15.             Case "隐藏(ISO)"
    ! j% P/ o" C% v$ j, P- w' i/ X
  16.                 E.color = 4
    2 Y' Q. N, `5 Q7 W: q
  17.                 E.Linetype = "HIDDEN"
    ' H! D* o+ ?! m: ~: \
  18.             Case "中心线(ISO)", "中心标记(ISO)"
    . C, A" e' d* \
  19.                 E.color = 1
    2 M4 g8 c( P0 ?( J% R
  20.                 E.Linetype = "CENTER"
    6 K# a5 t" N3 D6 o6 A
  21.         End Select, r% R$ i5 q) p
  22.         E.Layer = "AA"' H2 U( U3 x5 W. X, F" O- i! q, a) y
  23.     Next) \6 X( f. L8 b4 X5 n( S& h; S: I( f
  24. End Sub3 d2 e8 Q: ~/ u3 p+ \$ |0 r* c6 R
  25. ' q! q. J) [% N* n0 U0 }# z+ g9 |
  26. Private Sub LoadLineType(S As String)2 [% |6 ?" r; u* N" ?- {% Q3 z
  27.     Dim T As AcadLineType, B As Boolean$ y3 P0 s8 b8 q3 [
  28.     For Each T In ThisDrawing.Linetypes
    ' ^2 `. N+ U1 H4 Z
  29.         If T.Name = S Then
    ) a" X+ d; b9 G- c
  30.             B = True0 L. q/ c" O, h8 ?  ]" Q
  31.             Exit For
    4 S. f  c! j% ?
  32.         End If
    # _* H' \) q( G4 j/ u) S1 ~0 j
  33.     Next
    . ~" ?+ C, j1 R) g% `; {" h& Q5 f
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"
    + p& v2 a' w5 X
  35. End Sub% z9 O8 N/ G5 z
复制代码

评分

参与人数 1三维币 +5 收起 理由
2005llnn + 5 应助

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:& [% B) i0 [& L, R+ N7 s6 U
(if (not (tblsearch "layer" "xuxian"))
* Y2 x- W& _/ D4 j    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" "")& x2 P2 I& x7 P! v/ g
    )                                                 ;;;上面是你图上无xuxian层它自动去建立。4 O& \% [; l6 _7 z" {: P
                           ;;;你是在同一层上画了不同的线型
4 W- \1 j. [* R8 W(defun c:chgla ()8 s9 ~8 _; c& g8 ?( J* {# X3 ]
  (setq en (ssget "all") n (sslength en) i 0)# p  ~' \5 z$ R# v
  (repeat n7 u9 b  t! v& l' [+ f
    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6
' p5 v$ Z# V8 h% L) a  R. e% Y    (if (= linee "HIDDEN")% i" e7 F$ a0 Y# y
       (command "change" ee """p" "la" "xuxian" "")
6 v4 r3 d: Q! v" x! S  o) u      )
# M' n1 ~* j; L6 \6 \    (setq i (+ i 1))
- X. `5 K' [' r4 B* t! W1 y" n6 w# ^   ). F5 X" t3 K7 h3 \& ]( n0 t( h
)6 V# e% H( e. b5 D- a
  0 K7 e5 `% Y, I
用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表