QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型* P1 H2 L# p8 ]* x, @) [
求助,自動轉換 層,顏色,線型 .LSP) s. _! [9 V" M- b& ~; X
如下圖 9 W  s1 E  p, T
- W( m, M/ @; d1 Z- O/ C
謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;& n# `' Y. y2 |5 H. J
+ G# v. M6 `( Q, T4 \. P. _, i" |
[ 本帖最后由 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
" I( G2 V1 F4 C# o% M" X感謝樓上回復,不知哪裡可下載

0 o4 P6 v# n+ ]) r不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。
+ W5 V# N) ?5 ~! N+ g8 | BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型
* y7 r3 ]% h+ V9 X# Z( t所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考
  1. / n& O6 d: p" Q! K3 k+ w/ H6 v
  2. Sub A()
    8 V8 U9 _( g6 S/ i2 Q( m# }8 F
  3.     Dim E As AcadEntity6 V/ n$ C7 |% |  V+ D, H7 X( k
  4.     ThisDrawing.Layers.Add "AA"' ~) x* J' U# X/ w, x# K
  5.     LoadLineType "HIDDEN"
    3 F2 g1 ?. {1 a5 O6 q( b& K( b
  6.     LoadLineType "CENTER"
      g; ?* t& P0 ]5 M7 u/ k! x
  7.     For Each E In ThisDrawing.ModelSpace$ [7 S8 Q/ I2 Z7 [/ B, F
  8.         Select Case E.Layer/ I9 C" c1 S* w% M$ t; n0 j; S4 s
  9.             Case "可见(ISO)". O- c( B0 t* g7 [! a. Q$ r
  10.                 E.color = 75 u- I; R$ R, V) a, I! y
  11.                 E.Linetype = "Continuous"
    1 z+ V1 f% X/ M* u7 L# ?5 O8 Q  `
  12.             Case "窄部可见(ISO)"
    7 w2 X9 q8 h+ o+ o8 ]' w; @
  13.                 E.color = 5) n1 d3 ~4 \2 |1 u7 ?) `
  14.                 E.Linetype = "Continuous"# h  h5 t$ r+ e
  15.             Case "隐藏(ISO)"
    ' g( L7 r) ?6 _; S% E
  16.                 E.color = 4
      N  w* e/ K0 b
  17.                 E.Linetype = "HIDDEN"- M, R4 p3 m4 @; d4 c# |
  18.             Case "中心线(ISO)", "中心标记(ISO)"1 n; ~+ I( D6 M/ J' S  Z1 F
  19.                 E.color = 10 {$ u8 y* I# E+ Y9 `
  20.                 E.Linetype = "CENTER"9 }# `$ c* ^; d# f" S
  21.         End Select1 o& x8 n3 Z9 N) c
  22.         E.Layer = "AA"
    # o; V% e7 m1 _& o+ D
  23.     Next
    ! ]- n4 [9 o) p! Y3 K3 L1 {
  24. End Sub$ q7 z. W( k; A+ j9 W8 z
  25. . D& g8 k" B9 h
  26. Private Sub LoadLineType(S As String)
    & G, G6 J: \6 d$ k
  27.     Dim T As AcadLineType, B As Boolean
    . M& \1 [' Z7 G7 D
  28.     For Each T In ThisDrawing.Linetypes5 b( A1 V% K5 m9 c
  29.         If T.Name = S Then
    , Y, c2 K4 L0 v: U' L) G
  30.             B = True0 |! `8 Y: [. q* w" Q
  31.             Exit For8 R( p  C% a8 @( e( B/ W; R2 t8 [) m# R
  32.         End If( q4 c& S% Y( y2 L9 `4 w! g: t
  33.     Next) \. ]3 h7 f' n7 F+ X6 `8 R
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"
    9 d! K" P. S4 @& T2 W: C! n8 N- q
  35. End Sub
    0 v+ N2 @! X, n. |( ?2 a' ^
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:
' o- c6 u! c6 X" Q  R+ _! t) j(if (not (tblsearch "layer" "xuxian"))$ E. A. f4 i# C0 N9 }+ L0 |
    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" "")
$ K; e1 B& u/ r4 Z1 h: x    )                                                 ;;;上面是你图上无xuxian层它自动去建立。2 q" b2 Z% O# ?$ i/ v3 ^
                           ;;;你是在同一层上画了不同的线型5 t' T. U4 B% T% d; {) D
(defun c:chgla ()! S' K7 q/ \) @% ?, u
  (setq en (ssget "all") n (sslength en) i 0)
$ T5 m) H1 t7 m  (repeat n
2 e3 N3 S6 m6 t9 e2 M! [/ p    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6
( p. ~* N2 _$ a/ H. P5 H* O    (if (= linee "HIDDEN")
1 S* b4 i1 I* U8 _       (command "change" ee """p" "la" "xuxian" "")2 I7 k3 U4 {: I0 [7 T
      )
/ H4 H/ |7 H( e1 |0 o. X" r    (setq i (+ i 1)), g4 W+ Q- h+ [. i$ f
   )" j# b* C! t* N6 l
)
( m) K. D9 D7 [/ U7 V( B4 N  . ^# h2 h  p$ ]; N0 f2 ?- C1 i
用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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