QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
Autodesk Inventor 3D圖轉AutoCAD 每次都要一一改,層,顏色,線型
( r. a3 `2 n2 I6 E  q7 O7 v求助,自動轉換 層,顏色,線型 .LSP4 m0 T7 Z$ x. S
如下圖 0 ^3 o1 I* r0 M+ L' ?
- h4 M, p/ |; U/ Y( g9 W6 _
謝謝 顏色,層,線型.jpg
发表于 2009-12-10 19:32:52 | 显示全部楼层 来自: 中国浙江宁波
使用命令laytrans可以图层转换,只要你有一个含有标准图层设置的样本文件(dwt)就可以方便的映射转换了;
/ {' P/ t+ J- W( h0 [1 H9 C) z2 Q$ m4 t9 N+ B' {! F+ l
[ 本帖最后由 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: U! v7 @9 G8 g! n7 r* Q& V* N
感謝樓上回復,不知哪裡可下載
+ m$ j- H; c0 s8 j! l  [
不用下载,这是CAD自带的一个功能。位置就在菜单“工具”——“CAD标准”——“图层转换器”或者输入命令LAYTRANS就可以了。
6 w/ R" W1 H8 W+ s$ f4 K/ J BZ.jpg

评分

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

查看全部评分

 楼主| 发表于 2009-12-11 19:27:33 | 显示全部楼层 来自: 中国台湾
謝謝指導!試過後不是個人所需,相同層只能同一顏色同一線型
8 E4 y4 W: ]- {0 w8 p3 x所以需要寫程式
发表于 2009-12-11 21:17:15 | 显示全部楼层 来自: 中国
VBA代码,供参考

  1. ! r) b. U/ c0 e! E# I& F7 p
  2. Sub A()
    + P* n% l. c4 H7 h& z8 q
  3.     Dim E As AcadEntity+ Q+ h# ]0 Z, z+ I2 P/ g7 T; B7 k( H
  4.     ThisDrawing.Layers.Add "AA"
    + y7 V& G# N1 {8 b1 K
  5.     LoadLineType "HIDDEN"6 b( H/ m# R. o
  6.     LoadLineType "CENTER"
    ( L" [$ }9 G; e6 q% \$ e
  7.     For Each E In ThisDrawing.ModelSpace
    - W6 u  p7 ?- C" J! T
  8.         Select Case E.Layer
    . j9 r1 \; P1 L; x; W3 v; G
  9.             Case "可见(ISO)"
    8 Q6 I% c6 t, s% ]/ i8 I3 ?
  10.                 E.color = 7
    ! }6 |  t1 G3 v0 {7 G, c
  11.                 E.Linetype = "Continuous"
    ! n. Q5 M6 `# n2 N* k3 Q( |
  12.             Case "窄部可见(ISO)"
    3 R6 A9 o( n5 X% V" `0 w
  13.                 E.color = 5
    + b; c$ l+ p$ `' `* F  v
  14.                 E.Linetype = "Continuous"0 b* h: d8 o* [6 X
  15.             Case "隐藏(ISO)"
    7 d8 c3 D/ A* M; p1 H# X# K3 l
  16.                 E.color = 4
    * s+ H9 J/ M2 ~3 `+ J9 D
  17.                 E.Linetype = "HIDDEN"& o& x0 l' R' o7 A
  18.             Case "中心线(ISO)", "中心标记(ISO)"
    9 u' A5 M6 y9 F- J
  19.                 E.color = 1) P# f8 z7 M& g+ l
  20.                 E.Linetype = "CENTER"9 H$ R, Y: @$ C" n+ @
  21.         End Select0 N5 H  G3 L4 r: C' R% ^( A" _- N
  22.         E.Layer = "AA"3 p% R, n9 m# q. q
  23.     Next
    - K2 d& C  ?. z7 `9 _/ `
  24. End Sub. b, A( c* T" a) Q: L

  25.   u; R, o3 Z$ [' Q5 n& P- J+ W) @
  26. Private Sub LoadLineType(S As String)( k# s! r$ l9 l" W* K- e# V& E
  27.     Dim T As AcadLineType, B As Boolean$ `, q/ ?& b7 `2 p6 J. t
  28.     For Each T In ThisDrawing.Linetypes
    / c4 H) V' Z! L$ ]; v) l
  29.         If T.Name = S Then( d! `( s% B. b5 U( O& n% [3 K7 C# E
  30.             B = True
    1 O7 y1 _. _5 Y- g, {8 j! \
  31.             Exit For, d# [% _3 Q5 Z# a) k1 [  p
  32.         End If/ Q8 B6 H0 V* u- ~$ Z6 k' m
  33.     Next+ {+ b$ G* r$ S
  34.     If Not B Then ThisDrawing.Linetypes.Load S, "acadiso.lin"+ y  ^4 z) Y( i: K( [
  35. End Sub
    - H/ f3 K1 q  F
复制代码

评分

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

查看全部评分

发表于 2010-1-2 17:55:56 | 显示全部楼层 来自: 中国广东汕头
用下面的程序:
5 X# u* y8 P' k+ ~; i, m(if (not (tblsearch "layer" "xuxian"))
5 R8 p( E! H/ J- Q- B5 T8 d    (command "layer" "n" "xuxian" "l" "hidden" "xuxian" "c" "3" "xuxian" "")9 e7 ~$ `- q# d2 R$ G+ x+ f
    )                                                 ;;;上面是你图上无xuxian层它自动去建立。
: S- @+ Q; t$ D7 b* ^" i7 ^                           ;;;你是在同一层上画了不同的线型4 x& w' ]( s3 C* ^
(defun c:chgla ()
, W! O  v# q4 b: K. @+ p& {! M  (setq en (ssget "all") n (sslength en) i 0)% X( r% `% w/ O3 \5 h
  (repeat n7 @  j6 W! e( M' v) p, u" N( p% E1 H
    (setq ee (ssname en i) en1 (entget ee) linee (cdr (assoc 6 en1)))    ;;;只有在同一层上画了不同的线型有6
/ A+ v, E- K0 F# g3 ]- w    (if (= linee "HIDDEN")
8 @! f4 e$ o$ M& A+ {% |       (command "change" ee """p" "la" "xuxian" "")  B9 r  X# q% N+ x  M
      )
+ \% @! `' \/ }    (setq i (+ i 1))) \3 I% D+ m1 g' z
   )4 ^+ V. q$ G- u; {# R" F
)1 w$ v7 S& j, J2 G/ t. J
  
4 o: f; ~& V- _用上面的方法可去把不同的线型分出去。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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