autolisp如何实现批量转换线型

275437962 · 发表于 2013-12-27 22:11:20

本帖最后由 275437962 于 2013-12-29 21:52 编辑

链接网址:http://bbs.mjtd.com/thread-108815-1-1.html

275437962 · 发表于 2013-12-30 23:02:18

唉没有人帮忙

cable2004 · 发表于 2013-12-31 09:53:46

没有表达清楚

革天明 · 发表于 2013-12-31 22:26:17

将CAD所有图层中的（直线、多段线、圆、圆弧）这四类对象的原来线型批量转换为对应的目标线型，并保证这些对象转换后所在的图层与其原来所在的图层一致。

如：X1  转为 X10
   X2  转为 X20
   X3  转为 X30
诸如此类，有很多。。。。

X1  转为 X10
这个X1和X10指的是线性比例的值吗？

312735894 · 发表于 2014-1-1 02:19:05

(defun c:tt()
(setq ent (ssget '((0 . "*LWPOLYLINE,CIRCLE,ARC,LINE"))))
(setq i 0)
(setq xxm (getstring "\n请输入线型名："))
(repeat (sslength ent)
(setq name (ssname ent i))
(setq en (entget name))
(if (assoc 6 en)
(entmod (subst (cons 6 xxm) (assoc 6 en) en))
(entmod (append en (list (cons 6 xxm))))
)
(setq i (1+ i))
(princ)
)
)

不知道是不是你想要的！

275437962 · 发表于 2014-1-3 20:37:15

312735894 发表于 2014-1-1 02:19
不知道是不是你想要的！

不是这样的，我要的是能把我上面列的线型进行批量转换，当然那只列了一部分，我还有很多线型要转换，可以自行添加！

llsheng_73 · 发表于 2014-1-4 12:37:38

首先你得弄一个原线型与目标线型的一个表lstys((“线型名1” “目标线型名1”)...(“线型名n” “目标线型名n”))，这个表你可以直接写在程序里边(这最简单也最不人性化)，当然写在文件里边用程序去读出来组成表呢应该会好一些，最好是做个对话框之类的让人选取需要转换的线型和目标线型那就更加人性化，接下来你得确保目标线型全部有效，如果没有的得想法加载它以保证它们有效
最后就相对来说比较简单，对需要处理的图元进行(SETQ EN(ENTGET ENAME) LSTYLE(ASSOC 6 EN))如果LSTYLE为nil，需要得到其图层的线型(setq LSTYLE(assoc 6(tblsearch"layer"(cdr(assoc 8 en)))))根据转换线型表得到它的目标线型(setq newlsty(assoc (cdr LSTYLE)lstys))，如果newlsty为nil，那么该图元的线型不需要进行转换，否则需要转换(entmod (append(vl-remove(assoc 6 en)en)(list(cons 6(last newlsty)))))这是不会引起除线型以外的变化的，这可以放心

275437962 · 发表于 2014-1-4 15:20:06

llsheng_73 发表于 2014-1-4 12:37
首先你得弄一个原线型与目标线型的一个表lstys((“线型名1” “目标线型名1”)...(“线型名n” “目标线型名 ...

朋友，能否帮忙写写，自己实现水平有限，谢谢了！！！

llsheng_73 · 发表于 2014-1-4 15:52:58

本帖最后由 llsheng_73 于 2014-1-4 15:59 编辑

275437962 发表于 2014-1-4 15:20
朋友，能否帮忙写写，自己实现水平有限，谢谢了！！！

要做得简单不人性化就容易，要做到最人性化就比较麻烦，那涉及到动态DCL，我还不太会，另外对于线型的加载我也不在行，这就是为什么我写了一大堆但没有把代码写出来的原因
对于我学的把新旧线型对照写到文件里边用程序读取它出来组成表是从南方cass的线型转换想到的，但它那种办法也明显还不够人性化

至于水平问题，我不认为有谁就比我差，也许仅仅只是你比我接触得晚一点点，但只要多动手写，多查资料，多看人家的，上手并不太难的

q3_2006 · 发表于 2014-1-4 18:56:30

问题解决了......

账号		自动登录	找回密码
密码			注册

[讨论] autolisp如何实现批量转换线型

相关帖子