QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型: Q4 |$ Q# O+ b3 H2 o
求助,自動轉換 層,顏色,線型 .LSP" y7 m( d) {; m, D
如下圖 + z. t: s1 c1 M& C5 ?( B8 w

, d7 r# j0 e/ o謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;
" ?. X8 z8 W' K. Y! f
& `3 m. Y0 i2 z7 o7 _6 I! [$ d. G[ 本帖最后由 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
: m9 r' a) [/ O) W感謝樓上回復,不知哪裡可下載
$ }( U  G' d$ x2 b6 c
不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。
2 L+ ]+ B* h" X7 {/ x BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型/ v. N) o6 f0 C' R5 n
所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考
  1. 0 X$ s" j  ~0 C, o1 A
  2. Sub A()
    5 _# d) N* C# w/ U
  3.     Dim E As AcadEntity
    % z% Z, Q+ b1 G2 T* w- Z7 w
  4.     ThisDrawing.Layers.Add "AA"  X6 O! g1 C) C1 s$ n% O; M( B7 }
  5.     LoadLineType "HIDDEN"
    4 Y; i* _. k: M, c
  6.     LoadLineType "CENTER", ]) ~* U/ a- {; V* Y; C
  7.     For Each E In ThisDrawing.ModelSpace
    1 \4 U( y$ p) ?
  8.         Select Case E.Layer- w. e# ]" @5 H' O( p
  9.             Case "可见(ISO)"* z- {2 j* U# }4 X& f; N- X9 Z
  10.                 E.color = 72 J- g) O6 D8 a* _6 g
  11.                 E.Linetype = "Continuous"
    $ }! @* W* X2 `% v
  12.             Case "窄部可见(ISO)"
    0 Q, H% V! P$ v( n' x7 l5 F& h
  13.                 E.color = 5
    - y8 Q3 F( z1 X' W" X& y
  14.                 E.Linetype = "Continuous"
    % V6 d' P4 {  p4 h9 [4 U
  15.             Case "隐藏(ISO)"
    3 e9 t0 T: X" u/ A( t
  16.                 E.color = 4. h$ v7 f! m# {- U
  17.                 E.Linetype = "HIDDEN"
    9 B0 k; a- z0 C0 e% x# s1 R) h4 @$ J9 |
  18.             Case "中心线(ISO)", "中心标记(ISO)"
    1 M: Y3 ]+ a/ m0 R) A3 H
  19.                 E.color = 13 {. ~$ M3 y& X! A8 T+ e1 _8 c& y
  20.                 E.Linetype = "CENTER"/ ~% p+ ?; _) _& q0 Q3 `. [
  21.         End Select8 n7 D8 e# U/ Q
  22.         E.Layer = "AA"" H" J2 }8 j2 G4 O, N. g: Y
  23.     Next; r2 k2 K0 j6 V
  24. End Sub& R2 v' D( L) ?! v. Q

  25. 2 T: H" m8 k) C2 \  q+ _1 K
  26. Private Sub LoadLineType(S As String)4 U) z+ u$ E$ D! m% ?
  27.     Dim T As AcadLineType, B As Boolean
    + }7 m' s* B/ D* r1 i% ]
  28.     For Each T In ThisDrawing.Linetypes
    + L' X' U2 _: ]6 c  v
  29.         If T.Name = S Then
    ' b( q- M: @& y* ~
  30.             B = True
    & ?& X' \; R, p% }
  31.             Exit For- y9 g' b3 |. t, X" m
  32.         End If$ o7 k  M0 l$ M8 g1 f& U% L; a7 t6 A
  33.     Next; y' P. K% @7 }% a& d' f0 }2 P
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"5 P/ J+ T: J  W) U
  35. End Sub
    + `$ i+ J8 C+ p/ A  l
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:6 X6 e2 J  _% p- F% U
(if (not (tblsearch "layer" "xuxian"))
6 I% j, L0 U4 |" o' A* j    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" ""), C; A, r6 P0 V: u: x/ W- _! c
    )                                                 ;;;上面是你图上无xuxian层它自动去建立。# h2 b, P* s( F3 i
                           ;;;你是在同一层上画了不同的线型/ C) E6 y4 G/ r/ ]% w8 x: X
(defun c:chgla ()+ C' G& X% e2 [4 V5 E/ Y
  (setq en (ssget "all") n (sslength en) i 0)* t( G6 S7 d! }. B: j' j$ S
  (repeat n$ s1 ?8 ^7 [2 w4 t8 p  S' v1 n0 x
    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有66 y; ^' \/ r' \! Q6 e
    (if (= linee "HIDDEN"), z- u7 K) B4 H, \8 ]
       (command "change" ee """p" "la" "xuxian" "")
% R, z3 V2 M2 ]' e      )
8 C9 X' r& f! o6 R7 |. {    (setq i (+ i 1))$ D5 z% R" A, \/ I
   )
7 D+ G& }6 q: s5 `4 l  \* [)1 I+ t+ u) d4 z3 D, ]& n9 e
  $ N3 z0 T8 H) R- x1 n3 l
用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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