QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型6 g" ?, ^1 q) t( ^; }
求助,自動轉換 層,顏色,線型 .LSP
  ^0 U. j- R5 L$ T( @0 ]5 E如下圖 - X: m% o1 z4 k$ H) V

8 C" W" r7 B1 e) w2 t6 v% i3 v謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;
' n& m. H& C8 G3 T1 {
6 E* m* Z" Y: E) s' _[ 本帖最后由 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 q" }5 E1 F+ Z$ S3 ~$ m感謝樓上回復,不知哪裡可下載

  Q2 y) k2 J$ R: c: H0 n不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。- N' v4 I( U# F, f
BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型
3 \9 G, g: q# e- _1 l  i所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考

  1. ; |/ P) }$ n8 h3 }: A
  2. Sub A()
    : \6 @. y( y5 V$ n5 D3 a& I7 z7 g
  3.     Dim E As AcadEntity6 Z: R/ E) m6 p  \+ k' D
  4.     ThisDrawing.Layers.Add "AA"
    / B, B9 u: p$ l
  5.     LoadLineType "HIDDEN"
    8 S6 u' n- B2 Z, {$ q2 u
  6.     LoadLineType "CENTER"5 \) b. c: z+ |+ d2 d4 v8 y- r
  7.     For Each E In ThisDrawing.ModelSpace$ h' @8 H7 X4 F: [9 d# J
  8.         Select Case E.Layer
    . i. }9 e) u. k2 H/ U- U8 m" L: O
  9.             Case "可见(ISO)"
    + R$ `5 n# Q- g/ t5 V9 e$ v
  10.                 E.color = 7
    / O5 ^5 }5 N" w  N* m4 a
  11.                 E.Linetype = "Continuous"
    % @6 C8 ~9 R' N- ?7 Q3 e
  12.             Case "窄部可见(ISO)"" T$ j% Y! i9 u1 J, u7 b
  13.                 E.color = 5, l2 M( V; L! D
  14.                 E.Linetype = "Continuous"
    . b0 ^8 \' e) Y
  15.             Case "隐藏(ISO)"
      Q6 v$ ^( A8 ^
  16.                 E.color = 4
    ; q: d2 r# K8 O: R$ S
  17.                 E.Linetype = "HIDDEN"/ {( Q7 ?; ~- `  F7 U
  18.             Case "中心线(ISO)", "中心标记(ISO)") a0 l% V( z  V
  19.                 E.color = 1
    ( D) q. x: r1 T, C* M9 m
  20.                 E.Linetype = "CENTER"
    % @6 M& U# ~) |! \
  21.         End Select, b! @- x  Z* @: P3 k4 E( g
  22.         E.Layer = "AA"4 w  j3 Q$ t2 p* k' X
  23.     Next4 t+ c; \6 D: \2 b( R
  24. End Sub
    # ~' M" G+ _+ U1 J& N+ O

  25. 8 I1 B2 ]9 A# Q
  26. Private Sub LoadLineType(S As String)
    + k- S% t; G# t2 x( j! C
  27.     Dim T As AcadLineType, B As Boolean+ n' O- Y. n0 L; l
  28.     For Each T In ThisDrawing.Linetypes/ S+ `! m) G  Z+ N  A' h+ b
  29.         If T.Name = S Then, c- ]% K) g, D% z
  30.             B = True
    + ^' {9 j* ^9 S8 [" B0 k
  31.             Exit For
    1 G4 H- O; a5 d
  32.         End If6 |  ]6 Z5 ?+ _5 j' [  p* }; B3 t
  33.     Next
    ' ]* ]5 d* U! S1 e/ a: B
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"' w0 N6 e8 z% o, f. j
  35. End Sub, c/ b0 [# I0 E7 T
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:
2 C! F9 K5 O1 E9 {(if (not (tblsearch "layer" "xuxian"))
0 d( N' p+ ]2 Y9 M. m    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" "")
5 I2 S2 k: w# r6 h2 a    )                                                 ;;;上面是你图上无xuxian层它自动去建立。0 H. `, v  O5 c/ V5 S1 V
                           ;;;你是在同一层上画了不同的线型1 c3 v# f( F, J: o0 Z- y5 z
(defun c:chgla (); K" ?" O  k& c( U- L0 ?4 {
  (setq en (ssget "all") n (sslength en) i 0)
5 Y; e! y) o/ D3 X  (repeat n
$ a+ G6 d3 K) `# B    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6. `; H" y! \: X/ Q
    (if (= linee "HIDDEN")
3 p  r# D8 s) x( E, ]7 j       (command "change" ee """p" "la" "xuxian" "")
, o( w, [/ E) K7 |      )
8 P4 U) n1 x7 |( I5 D( V    (setq i (+ i 1))7 d% ^9 ]& ?1 i3 X5 x
   )
' Q# t% k6 }: Q)" w+ ^! \) H( t% T% \% T2 w
  0 @0 k* w4 J" e: G
用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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