半听可乐 发表于 2012-11-11 20:56:18

有什么办法将一张图里的所有图层信息输出到当前DWG？

有什么办法将一张图里的所有图层信息输出到当前DWG？如截图所示

smartstar 发表于 2012-11-11 20:56:19

是不是这个效果：



收个辛苦费！


已知问题：
没有做出错处理。
“实例”不是对所有非CONTINUOUS线型能够体现出真实线型

wowan1314 发表于 2012-11-11 21:03:59

vla-get-Layers
vla-get-Linetype
vla-get-Color

半听可乐 发表于 2012-11-12 06:05:55

wowan1314 发表于 2012-11-11 21:03 static/image/common/back.gif
vla-get-Layers
vla-get-Linetype
vla-get-Color

朋友，具体点呢？不会用~~

ZZXXQQ 发表于 2012-11-12 10:28:17


(defun c:tt (/ tbla)
(if (setq pt (getpoint "\n文字点 :"))
(while (setq tbla (tblnext "LAYER" (not tbla)))
   (setq txt (strcat (cdr(assoc 2 tbla)) "——" (itoa (cdr(assoc 62 tbla)))))
   (command "_.TEXT" pt "" "" txt)
   (setq pt (polar pt (/ pi -2) (getvar "TEXTSIZE")))
)
)
(princ)
)

wau2000022 发表于 2012-11-12 10:29:34

可联系我QQ：496968041

sunkunsd 发表于 2012-11-12 20:13:30

CAD的设计中心可以吗

xiabin68 发表于 2012-11-12 20:26:25

上面的程序不错啊，

soly2006 发表于 2012-11-13 10:41:20

最简单的方法把上面的做成块，需要时插入后炸开就是

highflybird 发表于 2012-11-13 11:18:33

试下这个命令：laytrans
页: [1] 2 3
查看完整版本: 有什么办法将一张图里的所有图层信息输出到当前DWG？