QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型/ Y5 T" U& Z( i& Q4 ^' B4 O& s- N! N: d
求助,自動轉換 層,顏色,線型 .LSP+ n- x9 L' E5 o  `4 x
如下圖
* m  W: h  ~& h) O
* r: i. ]# z8 X; {$ \% h謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;
  J) [" a* U: L/ E: X7 l6 Y" i* z- s/ w& ?) e. B1 C
[ 本帖最后由 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
$ {+ T/ y3 \$ U( W- r感謝樓上回復,不知哪裡可下載

9 m$ V' n3 p/ a% X8 r0 ?不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。
8 l5 y3 F% H7 }' _$ _ BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型
5 y% ?6 d# d6 _6 C# _所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考
  1. 1 g) w* J8 @- e1 c1 P
  2. Sub A()
    ; G5 N- V7 u7 z* P7 j
  3.     Dim E As AcadEntity: Y2 B5 {! [2 i! O
  4.     ThisDrawing.Layers.Add "AA"
    % Y% ?2 J: `4 C$ C* e
  5.     LoadLineType "HIDDEN"
    ( W, L7 [5 D+ g8 W2 n! p
  6.     LoadLineType "CENTER"6 I! ~4 [2 l0 m
  7.     For Each E In ThisDrawing.ModelSpace6 c& u: B6 B3 k# O: X; z3 T0 D) c: K* y
  8.         Select Case E.Layer
    : N" V% ^9 B4 @9 W1 W9 y# z
  9.             Case "可见(ISO)"
    0 ?: t; B) k: e2 k& h3 Y1 ^
  10.                 E.color = 7
    7 G, j6 u9 I% ]" I3 }/ ?
  11.                 E.Linetype = "Continuous"! g! A4 z7 d7 P. u9 S9 s  R* v4 d
  12.             Case "窄部可见(ISO)"( f* o. z6 B, [2 J
  13.                 E.color = 53 _6 d: v' K  @( Z9 l
  14.                 E.Linetype = "Continuous"9 T" |' P% p9 c$ R" e; t
  15.             Case "隐藏(ISO)"/ {: G3 k5 L, q: ^( P# F: ]$ J
  16.                 E.color = 4
    ! ~7 z& }' C, C) d
  17.                 E.Linetype = "HIDDEN"
    2 R( ]" d" x+ C4 @1 C+ ^
  18.             Case "中心线(ISO)", "中心标记(ISO)"
    . r9 P+ C% _8 R, p* }
  19.                 E.color = 1# _* y3 t  ~4 X( H
  20.                 E.Linetype = "CENTER"' d: F+ x" ^7 p/ N* J6 M
  21.         End Select
    9 _' J8 {) F  y* o. x
  22.         E.Layer = "AA"
      p8 w( t( S) ?+ g9 y, O" z
  23.     Next
    + y, g5 U6 c, s. E) A
  24. End Sub
    3 H; O$ I9 D  m2 i

  25. $ O% R8 l8 o* L2 l1 w  q  H) I9 S3 P
  26. Private Sub LoadLineType(S As String)
    ( }; \8 g7 t1 P1 J' k( s7 ]
  27.     Dim T As AcadLineType, B As Boolean
    / K# `  k& _& l
  28.     For Each T In ThisDrawing.Linetypes
    + ?) v4 S8 k9 B% w8 r/ D  n
  29.         If T.Name = S Then% a/ r* U6 ^2 A! B( l% Y# N8 H
  30.             B = True8 C" d+ Y( [8 o
  31.             Exit For
    * r+ ~7 v( x4 W! U/ S7 M5 H! l! D
  32.         End If
    % B6 h# E& o9 g  K, u+ e% @
  33.     Next
    : a6 R1 @# A# `0 x& t" v
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"( c: G0 C# j/ H- @0 Q& r
  35. End Sub
    * u. P! J. i: u8 S* L
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:6 ~2 ~- B' a1 H/ \7 M/ g
(if (not (tblsearch "layer" "xuxian"))
3 o7 m- k% U) P3 F6 ^6 S: d* o' f8 C' L    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" ""), x* L6 Z3 F' W+ d3 O8 j3 ?
    )                                                 ;;;上面是你图上无xuxian层它自动去建立。
" W! u* n& Y0 j7 A; g( E) }                           ;;;你是在同一层上画了不同的线型
# g8 z' g; d: S, b% d(defun c:chgla ()
+ g* Y) `3 D, o4 M) g- P- I  (setq en (ssget "all") n (sslength en) i 0)
; R$ l$ D1 k2 z# e4 P( S4 }  (repeat n
3 q) d1 i2 S8 h  W4 [. c    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6
0 v# a) ?% }! L, B$ ~    (if (= linee "HIDDEN")
3 L& y$ R4 ^7 j6 b, r4 e       (command "change" ee """p" "la" "xuxian" "")/ p# F: f- V: g4 d0 F  O2 Y* s+ Y& a
      )# d" q* S5 C2 P) C
    (setq i (+ i 1))
8 T& |" h7 n  Z8 n9 y7 z, B+ U7 i9 g   )
# S& P* F# X# ^/ r0 t)' i* N% \4 i0 Q' ?
  
, q- O" f- K; `; [7 ?用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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