[编程申请]：劳xyp1964大哥大架帮我修改一下这个程序

qqdswan

我在运行时，程序并不能自动运行，只能在运行xkhd后，我手工全选整个图，然后才能运行，
还有，程序这能修改*line项，其他的不能，我试着做了如下修改，但老是提示程序错。
源代码如下：
；；
(defun c:xkhd ()
(setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (setq lw (* (cdr (assoc 39 (entget s1))) 0.01)) ;39厚度
(progn
(if (= (cdr (assoc 0 (entget s1))) "*LINE")
(if (= (cdr (assoc 0 (entget s1))) "LINE")
(command "pedit" s1 "y" "w" lw "")
(command "pedit" s1 "w" lw "")
)
(if (= (cdr (assoc 0 (entget s1))) "CIRCLE")
(command "pedit" s1 "y" "w" lw "")
(if (= (cdr (assoc 0 (entget s1))) "ELLIPSE")
(command "pedit" s1 "y" "w" lw "")
(if (= (cdr (assoc 0 (entget s1))) "ARC")
(command "pedit" s1 "y" "w" lw "")
)
)
)
)
)
)
)
(princ)
)
(princ "\n命令 : xkhd (线宽厚度)")
(princ)
能不能帮我看一下，
让程序把所有的（除去字体，当然如果能修改的话更好）元素都修改掉。
急盼回复！！！
谢谢大哥！！！
我等着急用！！！
急盼回复！！！

xyp1964

最初由 qqdswan 发布
[B]我在运行时，程序并不能自动运行，只能在运行xkhd后，我手工全选整个图，然后才能运行，
还有，程序这能修改*line项，其他的不能，我试着做了如下修改，但老是提示程序错。
源代码如下：
；；
(defun c:xkhd ()
... [/B]

CIRCLE，ELLIPSE，spline不能设线宽。
强烈建议你升级版本！
下面的程序未经测试（无R14程序）：

2. [FONT=courier new]
   
3. (defun c:xkhd ()
   
4.   (setq        ss (ssget '((0 . "*POLYLINE,LINE,ARC")))
   
5.         i  -1
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (setq etype (cdr (assoc 0 (entget s1))))
   
9.     (if        (setq lw (* (cdr (assoc 39 (entget s1))) 0.01)) ;39厚度
   
10.       (progn
    
11.         (if (or        (= etype "LINE")
    
12.                 (= etype "ARC")
    
13.             )
    
14.           (command "pedit" s1 "y" "w" lw "")
    
15.         )
    
16.         (if (or        (= etype "POLYLINE")
    
17.                 (= etype "LWPOLYLINE")
    
18.             )
    
19.           (command "pedit" s1 "w" lw "")
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    
26. (princ "\n命令 : xkhd (线宽厚度)")
    
27. (princ)[/FONT]

[FONT=courier new]<br /> (defun c:xkhd ()<br />   (setq        ss (ssget '((0 . "*POLYLINE,LINE,ARC")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq etype (cdr (assoc 0 (entget s1))))<br />     (if        (setq lw (* (cdr (assoc 39 (entget s1))) 0.01)) ;39厚度<br />       (progn<br />         (if (or        (= etype "LINE")<br />                 (= etype "ARC")<br />             )<br />           (command "pedit" s1 "y" "w" lw "")<br />         )<br />         (if (or        (= etype "POLYLINE")<br />                 (= etype "LWPOLYLINE")<br />             )<br />           (command "pedit" s1 "w" lw "")<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> (princ "\n命令 : xkhd (线宽厚度)")<br /> (princ)[/FONT]