QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型; N* F7 d2 B  ?4 ?% ?
求助,自動轉換 層,顏色,線型 .LSP) J; D& j7 q, Y3 h2 k0 i; f+ J8 L0 q
如下圖 2 b, d9 M! a. S, ?% m
' x( ^# F/ g' V: U3 I
謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;7 V/ ~3 f' m0 g) v# V2 c
# d' t& k& S9 t* E. Z
[ 本帖最后由 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
8 u) B+ N1 c. O% N感謝樓上回復,不知哪裡可下載
4 M* ?* H, q5 p+ H& r
不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。
, @' A6 f" {" r) V6 \ BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型' e7 i, V- S2 r9 j$ }! |9 p
所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考

  1. 5 U  u( R3 T" D: z
  2. Sub A()
    5 [; I7 r* }& C0 ]; Z$ y
  3.     Dim E As AcadEntity% ^; }+ k3 V* M; ~/ j2 e) b) j
  4.     ThisDrawing.Layers.Add "AA"
    3 D1 O! H9 J* K
  5.     LoadLineType "HIDDEN"
    # V: R+ t3 ?! n  ?6 n
  6.     LoadLineType "CENTER"
    ; N5 B& d$ }2 H" @9 l1 \
  7.     For Each E In ThisDrawing.ModelSpace
    3 J& ^: j' R4 j5 d) l" k. U% s
  8.         Select Case E.Layer, B  v8 k3 b( P# \/ q# |/ ?
  9.             Case "可见(ISO)"
    7 u, ]8 k* T8 m
  10.                 E.color = 7" N3 X# v2 [4 w/ y" d' d3 a
  11.                 E.Linetype = "Continuous"( d, G" J) Z. m6 l
  12.             Case "窄部可见(ISO)"
    2 v: l* ?2 H- Q8 s
  13.                 E.color = 5' U: ]9 Q( y6 S0 n' h: f
  14.                 E.Linetype = "Continuous"5 ~' b* V7 A/ e, h
  15.             Case "隐藏(ISO)"
    . s  Y( D2 Q  ]. J4 P" |' o$ k3 l" m
  16.                 E.color = 4
    + |. S0 W8 h% x" n1 f: H
  17.                 E.Linetype = "HIDDEN"5 u4 C  `" O' C3 ~
  18.             Case "中心线(ISO)", "中心标记(ISO)"& N; E$ q( l. {' ~
  19.                 E.color = 1
      J) h- h( T; Y. S1 N3 G
  20.                 E.Linetype = "CENTER"
    - ~/ w. U6 U1 e( L
  21.         End Select+ t  i9 B! T  o9 Y7 A
  22.         E.Layer = "AA"" ~2 X) ~) w2 P7 X- ^% u
  23.     Next
    ; g/ U" t. n* J# z, ?2 w8 P( g$ `2 F
  24. End Sub3 \/ \/ G' \, U6 x

  25. 4 [1 j; c- y: O, T) H6 z: L( N
  26. Private Sub LoadLineType(S As String)
    # n* C% F3 z1 Z5 e+ Y# p. o
  27.     Dim T As AcadLineType, B As Boolean6 p( i1 b& Y. Z3 y: T0 u- E
  28.     For Each T In ThisDrawing.Linetypes5 ^1 f1 N) W! y8 m) b# C( G
  29.         If T.Name = S Then& y8 G4 a, o! d5 D2 d+ j# v4 ^
  30.             B = True
    / S5 S0 r% ]5 I' J
  31.             Exit For
    1 F) E/ q; `2 _- v: }! s7 a% R
  32.         End If* e( E) ^5 Q3 v1 D7 p# `" \
  33.     Next0 d! K- ?7 i2 X) T; ~" }
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"
    # [0 x4 G0 _- o7 l/ g0 D2 z- M
  35. End Sub7 j0 d3 e& w. d1 }2 @
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:
" v! i8 [2 L8 q* |7 q7 R(if (not (tblsearch "layer" "xuxian"))
+ }; Z/ s8 q6 ?$ i    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" "")
1 w1 L7 l2 T& X' E' _; M. p9 m6 B    )                                                 ;;;上面是你图上无xuxian层它自动去建立。
. ^8 ~2 z1 W$ Z' N                           ;;;你是在同一层上画了不同的线型: O& \8 @: L" M5 K$ p
(defun c:chgla ()
0 y/ E  C& ~( K  (setq en (ssget "all") n (sslength en) i 0)
' j0 i+ I( @3 _- `5 f( b7 \  (repeat n
5 P& N1 z( e0 l' I    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6
) c1 p' W6 C$ J5 ?  j1 h    (if (= linee "HIDDEN")/ g) _6 E$ h* t6 C  m$ n
       (command "change" ee """p" "la" "xuxian" "")3 ~: T. S6 c8 L4 u
      )' W- V: I' _: u
    (setq i (+ i 1))
; J" }! o9 d6 S+ _3 p   )
: ^' B+ M6 f( {6 c  ^8 u)
. l6 y/ }+ D; d$ d    b4 l: i8 U3 \
用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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