[编程申请]：向四位斑竹求教如何在2002下将线宽值批量付给厚度！！急需，谢谢

qqdswan

向四位斑竹求教
如何在2002下将线宽的值付给厚度，这样做后，转到R14下后才能显示线宽。我现在急需，不知斑竹能否尽快给予答复
泣血求教！！！！！！

xyp1964

试试签名栏下的“改线宽”程序！

qqdswan

xyp1964大哥，怎么要是下在得是等分线的程序呀，还有我的问题是要把2002中所有的线型的宽度值都要付给相应的厚度值，这样，每一个元素的厚度值等于线宽值了，只有这样做，转到r14后线宽才能显示线的宽度，因为我工作的下一个步骤就是要利用能显示线的宽度的r14版本cad进行处理，现在我是一筹莫展，不知道该怎么办，因为我的cad图是1:500的地籍图，里面有好多线型等元素，手工处理很慢，效率低，而且容易出错，真不知道该怎么办了。求求xyp1964大哥了，能不能帮我写一个程序，帮我解决这个问题，谢谢大哥了。
我现在着急的不行。
领导每天都催我，我快疯了。
谢谢大哥了

xyp1964

发个局部图上来，注清楚。
对R14已经不熟了，且无R14版本的程序。
你可以用dxfout生成dxf文件，在R14中用dxfin命令导入试试。

qqdswan

好的，我的意思是在2002下所看的要和在r14下看得一样，主要是显示的显得宽度问题，我给你上传一份
里面有字体，线型，还有图纸，字体线型放在默认的路径下就可以了，
你看看。能不能帮我解决

qqdswan

字体和线型库太大了，上传不上去，不过有图纸可以说明问题了，你看看，能否让图纸再2002和r14下显示的一样？
谢谢了

xyp1964

建议：将TK1层外框改为0.7线宽。
dxf文件：

qqdswan

我提供的资料是固定的，就是说里面各种设定是死的，不能做任何修改，这是甲方规定的，还有在r14下要把要把线宽的值通过厚度值显示出来，我的意思是说，要在2002下把图纸里的各种元素的线宽值都付给相应的厚度值，只有这样做，我的下一步工作才能开始。
xyp1964大哥，不知实现这样的功能程序好不好编写？
帮帮我吧
谢谢了

xyp1964

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (setq        ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
   
5.         i  -1
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (if        (setq lw (cdr (assoc 70 (entget s1))))
   
9.       (command "chprop" s1 "" "t" lw "")
   
10.     )
    
11.   )
    
12. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (setq        ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (if        (setq lw (cdr (assoc 70 (entget s1))))<br />       (command "chprop" s1 "" "t" lw "")<br />     )<br />   )<br /> )[/FONT]

qqdswan

我把代码编议成程序，在2002下加载成功了，但图里面没有反应呀？不知道还有没有其他特殊的设置没有？
能不能告诉我操作的步骤呀？
谢谢了
急盼回复！！！！！！！

xyp1964

370误写成了70，整整少了300！

2. [FONT=courier new](defun c:test ()
   
3.   (setq        ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
   
4.         i  -1
   
5.   )
   
6.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.     (if        (setq lw (cdr (assoc 370 (entget s1))))
   
8.       (command "chprop" s1 "" "t" lw "")
   
9.     )
   
10.   )
    
11. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        ss (ssget "X" '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (if        (setq lw (cdr (assoc 370 (entget s1))))<br />       (command "chprop" s1 "" "t" lw "")<br />     )<br />   )<br /> )[/FONT]

qqdswan

还是没有反应呀，我把那个值修改了，怎么还是没有反应呀？
能不能把详细的操作过程说一下，我很笨，怎么操作就是没有反应。急死我了！！

xyp1964

平面图怎能看出来！
加载xkhd(线宽厚度).LSP
运行xkhd

qqdswan

一个题外问题，我现在对cad的二次开发比较感兴趣，我想是不是把370这个改成相应的值，是否就可以实现把厚度值付给线宽值了，我想问一下，在r14下怎忙才能实现上述过程的逆过程？
能不能帮我在写一下呢？
我想，以后还会有好多的问题要请教你呢，
希望在这方面多多教教我，谢谢
急盼回复！！！