[求助]：线宽与厚度的匹配

qqdswan

我不知道370代表什么？是不是他就是含有线宽数据的子集的关键字呢？
如果是那样，那么含有厚度的数据的子集的关键自由是什么呢？
把t改成lw，把lw改成t，是否就可实现把厚度值付给线宽值？
我这样试了一下，系统报错，我就不知道怎么解决了。
xyp1964大哥，能告诉我吗？

xyp1964

理论上是这样的（没仔细咂摸），关键还得看是否实际可行。
把程序贴出来。

qqdswan

(defun c:xkhd ()
  (setq        ss (ssget "X" '((0 . "text,CIRCLE,ELLIPSE,*LINE,ARC")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (if        (setq lw (*(cdr (assoc XYZ (entget s1))) 0.01))
             (command "pedit" s1 "" "w" lw "")
    )
  )
  (princ)
)
(princ"\n命令 : xkhd  (线宽厚度)")
(princ)
里面的XYZ是一个关于厚度的关键字。
但我这样写还有一个问题，如果遇到直线，使用pedit时，他会提示是否转为多段线，选择“是”，然后才能选择线宽，然后才能修改。
我想应该加一个判断语句，如果是多段线就直接修改线宽
如果是直线，先转换为多段线，再修改线宽
如果是文字（text），那就用另一种方法修改（我现在还找不到修改文字线宽的命令或方法）
xyp1964大哥，能不能帮我解决呢？
还有像XYZ这样的关键字在那里能查到呢？
急盼回复！！！

xyp1964

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
14. |;
    
15. 
    
16. ;;;线厚度匹配线宽
    
17. (defun c:xkhd ()
    
18.   (setq        ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
    
19.         i  -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (if        (setq lw (* (cdr (assoc 39 (entget s1))) 0.01)) ;39厚度
    
23.       (xyp-put-CurveWeight s1 lw)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    
28. (princ "\n命令 : xkhd (线宽厚度)")
    
29. (princ)[/FONT]

[FONT=courier new]<br /> (load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> ;;;线厚度匹配线宽<br /> (defun c:xkhd ()<br />   (setq        ss (ssget '((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 39 (entget s1))) 0.01)) ;39厚度<br />       (xyp-put-CurveWeight s1 lw)<br />     )<br />   )<br />   (princ)<br /> )<br /> (princ "\n命令 : xkhd (线宽厚度)")<br /> (princ)[/FONT]

qqdswan

我按你说的方法试了，但程序不能运行，
是不是你编的xyp.lib不能再r14下运行。
我现在是在r14下运行程序的，
因为只有把厚度值付给线宽，那么屏幕才能显示线的宽度。

shuaige1468

都是高手,我直接看不明白