QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型* U8 T6 `! V: f( _8 d, a
求助,自動轉換 層,顏色,線型 .LSP% g  _% O) `9 t( i5 a" ?$ j
如下圖 & C( a  A8 k/ w" [. z3 h6 e' [
& Q! K9 ]; [  ]: S* h
謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;# @! _. b3 |. [" ]1 f$ m$ T5 o

$ R: z# s! D5 x  J; D' B* S8 ?) l[ 本帖最后由 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& n3 A6 v, W9 S
感謝樓上回復,不知哪裡可下載

$ i; K( u2 j4 j: s/ d% v不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。
" r! d/ [1 c5 B0 |) X5 _ BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型4 h; @( y0 q+ v7 t' Z1 L8 _+ r3 r  t: C
所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考
  1. - _9 }7 }% a- M" j. W5 e5 c7 l4 x
  2. Sub A()
    + H8 H. b1 w- L% z' i6 q' |
  3.     Dim E As AcadEntity0 ]" d( w% Y1 [! q4 V
  4.     ThisDrawing.Layers.Add "AA"
    & E1 ^, Y( ]  w8 F# t% p
  5.     LoadLineType "HIDDEN"
    % R" O0 C/ H7 l: \$ ^
  6.     LoadLineType "CENTER"
    + y6 ]( w7 o9 [' h; k- _- o+ v4 g
  7.     For Each E In ThisDrawing.ModelSpace% K! d$ Y; R2 E& G2 w
  8.         Select Case E.Layer4 b  z0 a; z) }7 Y* O: K0 v* z
  9.             Case "可见(ISO)"7 R4 W% x  B) u
  10.                 E.color = 7
    / g) c1 u) Z( ]0 y3 E& A1 N) v& j' V
  11.                 E.Linetype = "Continuous"
    ) j5 f/ {/ Q. Y
  12.             Case "窄部可见(ISO)", m* `. @, T2 k! u- f% Z! k' o
  13.                 E.color = 5
    5 q! X: S* S( j6 k
  14.                 E.Linetype = "Continuous"7 p5 o" q2 E5 [) b
  15.             Case "隐藏(ISO)"" z) K( ~7 e4 {" c6 j4 T
  16.                 E.color = 44 C& ~! V2 l% D; t0 G/ ]% y. o# R
  17.                 E.Linetype = "HIDDEN"
    ) w) U! ?0 [6 z" k. {
  18.             Case "中心线(ISO)", "中心标记(ISO)"
    % N5 W$ z# m; ~3 U
  19.                 E.color = 1
    " R0 h1 ?# q/ s$ F/ C+ @8 F  i
  20.                 E.Linetype = "CENTER"; g4 k% X+ U9 _5 t7 K' w
  21.         End Select4 H! O% W% C: ^1 W- I
  22.         E.Layer = "AA"
    3 \5 Z- P+ V! q- O' @% S2 M
  23.     Next
    4 m* s/ A7 M! v8 |% S& G
  24. End Sub' Y  _' F' f0 Y! ^% r5 ?. n/ x1 t
  25. 8 M9 f5 g2 }' P6 ~# s, |: z. ]
  26. Private Sub LoadLineType(S As String)" Y) D/ v8 f( k  e% T+ I
  27.     Dim T As AcadLineType, B As Boolean
    6 M' U! i) D& Z
  28.     For Each T In ThisDrawing.Linetypes
    ( h8 ^& w" }' E" ~
  29.         If T.Name = S Then
    . }5 k. c. X( r; N3 z
  30.             B = True
    , ]* P9 l! k" J' z0 S
  31.             Exit For
    3 ~" l0 t( B$ L8 s
  32.         End If  p3 x% z/ [8 r4 u* J( R% ~' ~
  33.     Next
    / \, r. U( J; A1 T3 |7 }& t* I0 O/ ~
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"5 N& H0 c: F) }. t; v2 n4 n
  35. End Sub; b% n9 F5 [* r# u. M! ~! t9 J  _
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:
4 P$ I0 f$ D* D9 W& R$ \( t- D0 \" X(if (not (tblsearch "layer" "xuxian"))
6 |, W* z9 I0 I( m/ Y' [# }7 n, H    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" ""), M- n& O8 p$ |6 s7 W% V
    )                                                 ;;;上面是你图上无xuxian层它自动去建立。- u8 I6 \  A1 A" J. e
                           ;;;你是在同一层上画了不同的线型* |$ ~( x: V) o$ e$ F9 Y
(defun c:chgla ()
/ y: N* `% x# S' ?" l( {  (setq en (ssget "all") n (sslength en) i 0)
$ A, @0 u5 C2 z% J  (repeat n$ [4 q& \& j& z. b9 O9 x
    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6
9 `, ^; f9 z) x$ o& Q    (if (= linee "HIDDEN")
' {9 b2 B" G' x- `       (command "change" ee """p" "la" "xuxian" "")) c7 }9 _4 A& M9 R5 K
      )
  a4 D) `' J+ G( \    (setq i (+ i 1))
- G2 X# ~) K3 i# s. f   )
: e0 `/ a4 c5 t: L)0 ^! s, S) `- @9 W2 x
  
7 N9 d- n* d  T2 J; h2 _8 [用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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