QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型. e- s; F* }( {2 N" L
求助,自動轉換 層,顏色,線型 .LSP" `+ W' ?5 H  a# E2 L) ~
如下圖
+ e' F3 r0 K) f' ^1 \4 V! l/ |* i0 G: l9 W, g. S5 {
謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;
1 {3 b: O: O' C, s( o' i4 i! W8 E% r( K# }6 p
[ 本帖最后由 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
7 L2 x4 D& J, ?, K( X5 Q6 K: q感謝樓上回復,不知哪裡可下載

  u7 Z  w: w3 }) Q( s不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。
, F5 }  N. @1 U7 J8 O BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型
9 n. X" |- M* E) ^所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考

  1. 2 l# k! T* J* }: M1 b
  2. Sub A()1 Q5 j8 A/ \2 [
  3.     Dim E As AcadEntity
    2 T8 i, I" s4 h# N, b
  4.     ThisDrawing.Layers.Add "AA"
      @! ?/ R- \( I8 X' e5 i5 {( s
  5.     LoadLineType "HIDDEN"
    9 m" Y$ [- N% m
  6.     LoadLineType "CENTER"  K; e( h( ?% e
  7.     For Each E In ThisDrawing.ModelSpace" \9 t% f- ~3 P* V
  8.         Select Case E.Layer
    % K# o: }5 S8 L  Q
  9.             Case "可见(ISO)"
    1 t" ~( Y' O8 D
  10.                 E.color = 7
    1 o. @  N! I& M6 x! Q+ t8 O, f
  11.                 E.Linetype = "Continuous"
    ) I$ @) z$ m6 a" T5 M% G8 v+ q
  12.             Case "窄部可见(ISO)"  j1 b; h; {, G' R
  13.                 E.color = 5
    - ^# \4 y1 W; J  ?$ ]# b# ?* c/ q
  14.                 E.Linetype = "Continuous"- P) P5 u6 A; b& G6 w  z
  15.             Case "隐藏(ISO)"
    % ^5 W# Q, _  l. F$ a; f$ b! y( k
  16.                 E.color = 4
    + w% s; B9 `0 p% s, p- E
  17.                 E.Linetype = "HIDDEN"% P9 [, g' H' v0 R* y/ D! S
  18.             Case "中心线(ISO)", "中心标记(ISO)"+ o# J* f6 S7 v" y+ m4 v" }
  19.                 E.color = 1
    ( {0 b' V( Y- I1 F
  20.                 E.Linetype = "CENTER"
    6 c% W- S4 l# s. Y" o2 I) P, l8 y
  21.         End Select
    : L- @/ Q( T% C7 J; S, _* `% m
  22.         E.Layer = "AA"( r# c$ h7 A) G8 \
  23.     Next# k8 ]' N# ~2 r( R6 @& ~! ^! O
  24. End Sub
    $ L3 j8 Q: u) [
  25. : E, v+ l6 s& i; q# R
  26. Private Sub LoadLineType(S As String)
    # {( x/ o, T6 y) o
  27.     Dim T As AcadLineType, B As Boolean& @4 v; L$ e# q
  28.     For Each T In ThisDrawing.Linetypes
    + W5 W: W/ N3 `7 e
  29.         If T.Name = S Then) z  r+ G5 r7 c
  30.             B = True
    , Y1 ?, Z# Y! y% A
  31.             Exit For
    ' d7 h$ ]% L8 r
  32.         End If0 q+ _1 x# f. F0 i! W' Z4 Z
  33.     Next" O4 T1 ~. g, ]) W) h
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"7 [! M( |; J8 N) o% a
  35. End Sub2 p& _( T) K7 R
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:9 ^8 S7 F& K" r* ?$ L# Z
(if (not (tblsearch "layer" "xuxian")), c9 D; ~% u; T4 w) C4 Q
    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" ""), _8 W+ p& Z2 }# h0 c
    )                                                 ;;;上面是你图上无xuxian层它自动去建立。! L) a7 s; U4 V
                           ;;;你是在同一层上画了不同的线型
' q( z: q+ W, u4 H(defun c:chgla ()
- k& D$ w  k2 s4 g% J+ Z+ V  (setq en (ssget "all") n (sslength en) i 0): C- g. ^# N* X: @' E9 G3 J
  (repeat n4 g" @3 x5 ~4 r& h0 w. v
    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有63 P2 J4 i( \0 c% g8 L# x  Z
    (if (= linee "HIDDEN")
: v  a9 g* C8 u7 [! x       (command "change" ee """p" "la" "xuxian" ""). g/ m* c9 U) f! X/ j
      ): ~5 N8 j0 L4 K. m
    (setq i (+ i 1))( \6 \" `3 ]" r0 v
   )( b% @+ a- E' o
)
6 ~- ~$ E4 s# d  8 P- R+ `) H/ l& @, l+ m
用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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