QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型4 O* B. k# \) B/ k
求助,自動轉換 層,顏色,線型 .LSP+ P2 S! D% l5 j  m4 j3 {; T4 T
如下圖
# r1 q5 N$ A( L9 H+ i0 r2 J$ v! W% ], _3 I+ P+ T
謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;* u2 S# w2 f2 A) K- [, ?
" N7 ?% l) B7 X: p4 E
[ 本帖最后由 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.gif4 S, Y; `  ^6 k# ~5 i5 x
感謝樓上回復,不知哪裡可下載
7 ?: \: h" e0 X; X2 X& b; B
不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。+ V7 Y8 t/ p9 W! n* A& K! B% D
BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型$ V9 S* m' S1 N1 F* Y3 i
所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考
  1. % X/ t6 P0 X% ^# q
  2. Sub A()! ~" p4 U; c" e" O1 P: ~
  3.     Dim E As AcadEntity
    1 u  I1 g4 @/ R& K% V1 o
  4.     ThisDrawing.Layers.Add "AA"  [# V  [( y1 C+ Z
  5.     LoadLineType "HIDDEN"
    4 o$ N& c- u( |5 b* `! U  p
  6.     LoadLineType "CENTER"
    4 n" i8 z/ F1 J* O
  7.     For Each E In ThisDrawing.ModelSpace; v4 ?8 G5 o3 d5 b8 T* T
  8.         Select Case E.Layer
    * W4 r2 A( n. b9 v9 b  w! p
  9.             Case "可见(ISO)") x: v; l. V+ {' _
  10.                 E.color = 7* G, J9 f' c% ]" _
  11.                 E.Linetype = "Continuous"- E- b5 r3 A; h) [
  12.             Case "窄部可见(ISO)"6 p" w0 {! |+ ]3 i; [2 \
  13.                 E.color = 5  r& c/ h* @" T2 ]6 ^! X
  14.                 E.Linetype = "Continuous"1 C/ J  M+ w# p
  15.             Case "隐藏(ISO)"6 @( `  E/ U6 d* f( A( Q
  16.                 E.color = 4
    2 T  O" ~" R; M' a
  17.                 E.Linetype = "HIDDEN"5 l' A& X# L2 ~
  18.             Case "中心线(ISO)", "中心标记(ISO)"
    6 I( l2 P# W2 b. w6 ^$ S
  19.                 E.color = 1, L+ C/ v* U+ |, I2 ]: _
  20.                 E.Linetype = "CENTER"$ S' n& |9 ^  u; h* l5 x& N
  21.         End Select5 U- `# e2 S' G9 O
  22.         E.Layer = "AA"
    - ^+ p2 @9 u5 Q+ Z% J5 b7 i9 p( ^
  23.     Next
    " r6 o4 q. s5 Z. Q& H2 C
  24. End Sub  M0 W1 t# G6 g: P" X" a

  25. # B: z4 Q4 L" R3 G1 f- n
  26. Private Sub LoadLineType(S As String)2 k9 \! |2 Q1 E. ]
  27.     Dim T As AcadLineType, B As Boolean  p0 l" Z8 m  T4 K. `
  28.     For Each T In ThisDrawing.Linetypes
    $ |9 E3 a  x5 p# q, j
  29.         If T.Name = S Then
    ; f0 S9 g% `+ `$ O
  30.             B = True) N8 `- Y* d7 G7 ^) r& v1 f  L0 q1 H
  31.             Exit For. t$ T+ \. N5 R% F
  32.         End If) j1 a8 i4 w: i- E! B
  33.     Next' V+ C3 V% E: z6 N: e7 t0 S
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"
    4 f0 O7 r1 z7 j! H) f: r6 `# ~1 B# g
  35. End Sub3 e4 h5 x. J! [# j
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:
: z1 |3 U" g7 r' z6 L(if (not (tblsearch "layer" "xuxian"))
) f! O& O6 D/ \3 h2 G9 X1 ~    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" "")
3 L& O+ r: k$ O9 P; G( a0 |    )                                                 ;;;上面是你图上无xuxian层它自动去建立。
2 M6 j( o$ {( H1 R' L                           ;;;你是在同一层上画了不同的线型1 `* p* K; y: P8 x( J( ]
(defun c:chgla ()/ Q3 ^+ ]. a9 U$ f. }. s# A
  (setq en (ssget "all") n (sslength en) i 0)3 @% u% e3 @( w* c- Y. p
  (repeat n/ @  l; T% o$ R
    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6
2 i" ~. \* x9 l$ T8 p7 T, ]$ G    (if (= linee "HIDDEN")& y! P& H% r3 n6 M
       (command "change" ee """p" "la" "xuxian" "")8 K5 U6 H2 _" H& Z) j9 P
      )
$ I. p" _. [' ]1 ^    (setq i (+ i 1))2 e# G8 T5 @) A$ [' i/ l
   )2 f% u" B8 o; \0 {
)( C7 B9 W4 H  @1 Q2 P; |- x* Y6 q
  
" }" E+ m: o* n8 c! T9 b用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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