QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型
8 }% [# A$ J, g; W. a8 d求助,自動轉換 層,顏色,線型 .LSP
4 [- `0 H1 d) T9 x. ?4 O如下圖 7 X* U7 C4 T; d6 y

- i4 a/ I+ `* \3 H謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;
0 O# W" x: r# n2 T* D% b# Z8 [. Z  Q1 \7 Y7 F  n
[ 本帖最后由 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: K$ s% ]0 P6 Z6 E$ g1 @
感謝樓上回復,不知哪裡可下載
( d& \  A2 e: m/ k1 m) X& {: e
不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。1 M) X8 B! m( d8 L: `
BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型) P, h+ q- w6 O2 h! }
所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考
  1. 1 _( |6 c2 q( v9 Z/ l
  2. Sub A()
    $ m  k  N+ _9 y' v9 V
  3.     Dim E As AcadEntity/ T9 o- `) n1 q, u
  4.     ThisDrawing.Layers.Add "AA"
    % J! v% n; V! [6 M2 d$ Q4 P% _
  5.     LoadLineType "HIDDEN"
    ( A9 r7 M9 t) t& p( ~& H
  6.     LoadLineType "CENTER"
    $ }2 X6 l. S" r# u% {3 S( ]% d
  7.     For Each E In ThisDrawing.ModelSpace4 R8 R1 u# q4 K( M, h
  8.         Select Case E.Layer) H' C3 H1 r6 r  |' {
  9.             Case "可见(ISO)"" i$ V8 n/ ?+ t" [+ J
  10.                 E.color = 7
    * b  b# |  l0 I* `7 w1 D% S: I" e
  11.                 E.Linetype = "Continuous"
    2 ?& [" |# K: D) j, j
  12.             Case "窄部可见(ISO)"
    4 d- q4 L( K6 W- X* m) v3 A
  13.                 E.color = 51 |$ Y9 S% a* `' O# l# s
  14.                 E.Linetype = "Continuous"! j8 T) u& i; Y% S( s6 r" `8 q
  15.             Case "隐藏(ISO)"9 F$ r) @7 v8 G
  16.                 E.color = 4
    : }$ I- M8 s( C, S
  17.                 E.Linetype = "HIDDEN"
    1 a/ \8 Y) v0 J* T
  18.             Case "中心线(ISO)", "中心标记(ISO)"+ v4 ?; K8 t$ ?1 F! Q% Q( I/ B4 \
  19.                 E.color = 1
    " f* K, Z- C  x, w; F( c
  20.                 E.Linetype = "CENTER"
    . V9 T  d# t# Q  d0 B
  21.         End Select5 A* h) ?; f% g
  22.         E.Layer = "AA"- c* n/ D4 u3 d+ d
  23.     Next9 s6 a; y5 f$ k# f$ B. i
  24. End Sub+ c% p2 r* L& F7 A8 S

  25. % |( m+ y, T! @/ C; l" U5 @
  26. Private Sub LoadLineType(S As String)
    ; l5 K' `; c' b
  27.     Dim T As AcadLineType, B As Boolean1 Z! n6 \9 o. ]
  28.     For Each T In ThisDrawing.Linetypes  B( Q1 u7 W& B8 ~
  29.         If T.Name = S Then
    + q* T( u0 ^, s$ W: z
  30.             B = True3 o: {4 w, f5 X* d" y- F) g
  31.             Exit For  S$ ]1 a8 Y( V: Y% H9 }1 a
  32.         End If
    # `" s2 P( h8 d' l7 m2 m+ w7 g
  33.     Next5 D+ Z6 [, O& u1 K; S) x5 c
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"
    ' \1 K" C& b9 Y' b# H) z) B
  35. End Sub5 H& k. N0 Z9 T9 s, L2 V7 Y
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:
- F* `4 ^9 y# ~1 h. A6 i9 p; r4 Z(if (not (tblsearch "layer" "xuxian"))
  i5 W/ `4 b! k. i: E    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" "")
# l4 k1 E$ \1 U( R3 Y2 D. }! Z' a* e    )                                                 ;;;上面是你图上无xuxian层它自动去建立。9 [4 C* p1 d& f" ~& q8 H
                           ;;;你是在同一层上画了不同的线型
, Y. j) B1 x3 }# m3 U. `7 [(defun c:chgla ()
* u. ]' ]" `% H5 l. m  (setq en (ssget "all") n (sslength en) i 0); g$ S: e. Q- {, D2 I
  (repeat n; \6 l& A, L9 T5 i
    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6
# Y% G8 F3 x  G( f9 ?    (if (= linee "HIDDEN")
: ]. U1 N$ \  v( y       (command "change" ee """p" "la" "xuxian" "")
' @( y  y4 s! @      )
5 _# M) |: y$ K# [    (setq i (+ i 1))# w& @* \/ r8 k" G8 q/ F$ V
   )3 K- |) Y1 l! q! L& f- O" {
)) E2 r$ Y6 r% G; F2 a
  # x! Q+ j8 u' v! h0 b; Y+ q
用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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